Re: ISO

Autor: Tomasz Stelmaszczuk (hal9000_at_calder.com.pl)
Data: Sat 14 Jun 1997 - 00:02:02 MET DST

• Następna wiadomość: Adam Bielak: "siadly mi partycje i to jak!!!!!!!"
• Poprzednia wiadomość: Tomasz Stelmaszczuk: "Re: ISO"
• W odpowiedzi na: Grzegorz Szyszlo: "Re: ISO"
• Następna w wątku: A_J_P_at_it.com.pl: "Re: ISO"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

Grzegorz Szyszlo wrote:
> a moze ktos by sie rzucil na maly skrypcik w rexx'ie ? w koncu system
> ma gotowe moduly sluzace konwersjom z wszystkiego na wszystko.

Napisałem kiedyś taki mały. Myslałem nad nim krócej niż pisałem,
więc nie oczekujcie, że będzie upiornie szybki i wygodny.
W każdym razie działa.

/* */
 plik = 'Polski.html'
 DO count = 1 until lines() = 0 /* dopóki nie natrafi na koniec pliku
*/
     out = CHARIN()
     SELECT
       WHEN out = "ą"
         THEN CALL CHAROUT plik , "œ"
       WHEN out = "Ą"
         THEN CALL CHAROUT plik , "í"
       WHEN out = "ć"
         THEN CALL CHAROUT plik , "Š"
       WHEN out = "Ć"
         THEN CALL CHAROUT plik , "Ă"
       WHEN out = "ę"
         THEN CALL CHAROUT plik , "ŕ"
       WHEN out = "Ę"
         THEN CALL CHAROUT plik , "‰"
       WHEN out = "ł"
         THEN CALL CHAROUT plik , ""
       WHEN out = "Ł"
         THEN CALL CHAROUT plik , "ú"
       WHEN out = "ń"
         THEN CALL CHAROUT plik , "˝"
       WHEN out = "Ń"
         THEN CALL CHAROUT plik , "Đ"
       WHEN out = "ó"
         THEN CALL CHAROUT plik , "ˇ"
       WHEN out = "Ó"
         THEN CALL CHAROUT plik , "Ë"
       WHEN out = "ś"
         THEN CALL CHAROUT plik , "Â"
       WHEN out = "Ś"
         THEN CALL CHAROUT plik , "Ž"
       WHEN out = "ź"
         THEN CALL CHAROUT plik , "…"
       WHEN out = "Ź"
         THEN CALL CHAROUT plik , "Č"
       WHEN out = "ż"
         THEN CALL CHAROUT plik , "“"
       WHEN out = "Ż"
         THEN CALL CHAROUT plik , "Ÿ"
     OTHERWISE
         CALL CHAROUT plik, out
     END
 END /* koniec czytania i kopiowania */
 CALL LINEOUT plik /* zamyka plik */

                          best regards
                       Tomasz Stelmaszczuk
IBM BESTeam TeamOS/2
Official OS/2 Ambassador Certified OS/2 Engineer
____________________________________________________________
http://www.calder.com.pl e-mail: hal9000_at_calder.com.pl

• Następna wiadomość: Adam Bielak: "siadly mi partycje i to jak!!!!!!!"
• Poprzednia wiadomość: Tomasz Stelmaszczuk: "Re: ISO"
• W odpowiedzi na: Grzegorz Szyszlo: "Re: ISO"
• Następna w wątku: A_J_P_at_it.com.pl: "Re: ISO"
• 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:11:49 MET DST