Re: REXX: cp win-> cp os/2

Autor: Adam Płaszczyca (_555_at_irc.pl)
Data: Sun 27 Apr 2003 - 00:07:07 MET DST

• Następna wiadomość: Ninik: "Re: REXX: cp win-> cp os/2"
• Poprzednia wiadomość: Ninik: "REXX: cp win-> cp os/2"
• W odpowiedzi na: Ninik: "REXX: cp win-> cp os/2"
• Następna w wątku: Ninik: "Re: REXX: cp win-> cp os/2"
• Odpowiedz: Ninik: "Re: REXX: cp win-> cp os/2"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

Ninik <ninik_at_dominik.kei.pl> wrote:
> Witam

> Czy ktoś z was kiedyś popełnił taki skrypt już? trzeba mi do poprawienia
> sobie jednego widgeta na xcenter.

Pewnie.
/* HAU! */
/*konwersja plików z CP852 na ISO-88592*/
do while CHARS()>0
   znak=CHARIN()
   pozycja=POS(znak,"ĄĆĘŁÓŃŚŹŻąćęłńóśźż")
   IF pozycja=0 THEN nznak=znak
      ELSE nznak=SUBSTR("šćęłń󜟿ąĆĘŁŃӌƯ",pozycja,1)
   rc=CHAROUT(,nznak)
end

-- 
     ___________ (R)  
    /_  _______      Adam 'Trzypion' Płaszczyca (+48 502) 122 688
  ___/ /_  ___       ul. Ludwiki 1 m. 74, 01-226 Warszawa
 _______/ /_     IRC: _555, http://mike.oldfield.org.pl/
___________/     mail: _555_at_irc.pl UIN: 4098313 GG: 3524356

• Następna wiadomość: Ninik: "Re: REXX: cp win-> cp os/2"
• Poprzednia wiadomość: Ninik: "REXX: cp win-> cp os/2"
• W odpowiedzi na: Ninik: "REXX: cp win-> cp os/2"
• Następna w wątku: Ninik: "Re: REXX: cp win-> cp os/2"
• Odpowiedz: Ninik: "Re: REXX: cp win-> cp os/2"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:43:14 MET DST