Autor: Rafał Zawiślak (rafalz_at_box43.pl)
Data: Fri 17 Aug 2001 - 12:50:26 MET DST
Leszek KUBRAK napisał(a):
>
> Albo pamięć ma już nie tą, albo ktoś się chwalił skryptem REXXowym
> do konwersji CP-852 <==> 8859-2.
>
> Będę baaaardzo wdzięczny.
A więc dokładny cytat bez zgody autora (ów?):
===============================
Temat: Re: Makro konwertujÓce polskie litery do StarOffice
Data: Thu, 10 Feb 2000 11:39:07 GMT
Nadawca: mpc_at_chzgoda.pl (Marcin P. Ciaszczyk)
Organizacja: TPNET - http://www.tpnet.pl
Grupy dyskusyjne: pl.comp.os.os2
On Sun, 10 Feb 3900 12:19:07, dobrawka_at_obta.uw.edu.pl (Przemyslaw
Dobrowolski) wrote:
> On Thu, 10 Feb 2000 12:08:36 +0100 (MET), Jan N. Waliszewski wrote:
>
> >1. swego czasu widzia em tu makro umo liwiaj ce konwersjÓ polskich liter
> >w StarOffice pomiÓdzy CP1250 a CP852. Czy mo e mi je kto˙ podrzucię na
> >konto prywatne (nie bardzo mam ochotÓ wymy˙laę je samemu...). BTW: makro
> >takie mog oby siÓ pojawię na stronach Teamu....
>
> Te˙ poproszŕ...
>
To znalazlem w poscie od Leszka Gerwatowskiego z 28.08.99
/* CYTATA */
Sub win2iso
ActiveWindow.ReplaceAll(Chr(185),Chr(177))
ActiveWindow.ReplaceAll(Chr(156),Chr(182))
ActiveWindow.ReplaceAll(Chr(159),Chr(188))
ActiveWindow.ReplaceAll(Chr(165),Chr(161))
ActiveWindow.ReplaceAll(Chr(140),Chr(166))
ActiveWindow.ReplaceAll(Chr(143),Chr(172))
End Sub
Sub iso2win
ActiveWindow.ReplaceAll(Chr(177),Chr(185))
ActiveWindow.ReplaceAll(Chr(182),Chr(156))
ActiveWindow.ReplaceAll(Chr(188),Chr(159))
ActiveWindow.ReplaceAll(Chr(161),Chr(165))
ActiveWindow.ReplaceAll(Chr(166),Chr(140))
ActiveWindow.ReplaceAll(Chr(172),Chr(143))
End Sub
-- o------------------o ___ |Leszek Gerwatowski| _/_|_\ o------------------o (o\__/o)=))))))))))))) "Don't fix it if it isn't broken" /* END CYTATA */ na cp852 to ja to sobie przerobilem zmieniajac kody wyjsciowe Pozdrawiam i przepraszam za cytowanie bez zgody autora :) mpc === Koniec cytatu ============ -- zdrówko OS/2 i takie tam - http://strony.wp.pl/wp/sysopy/ icq: 22797583
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:33:25 MET DST