>>* Very simple converting functions from Win1250 to ISO-8859-2 >>* Get Code table >>LOCAL lcCT >>=GetCTWIN2ISO(@lcCT) >>* Covert Win1250 to ISO >>?WIN2ISO("Any czech string. Nějaký český text.",lcCT) >> >> >>*********************** >>* ISO-8859-2 to WIN 1250 >>*********************** >>PROCEDURE GetCTISO2WIN(lcCT) >>*@lcCT - code table >> >>lcCT="" >>FOR lii=1 TO 255 >> lcCT=lcCT+CHR(lii) >>NEXT >> >>lcCT=STUFF(lcCT,0xB5,1,CHR(0xBE)) >>lcCT=STUFF(lcCT,0xBE,1,CHR(0x9E)) >>lcCT=STUFF(lcCT,0xAE,1,CHR(0x8E)) >>lcCT=STUFF(lcCT,0xBB,1,CHR(0x9D)) >>lcCT=STUFF(lcCT,0xAB,1,CHR(0x8D)) >>lcCT=STUFF(lcCT,0xB9,1,CHR(0x9A)) >>lcCT=STUFF(lcCT,0xA9,1,CHR(0x8A)) >>lcCT=STUFF(lcCT,0xA5,1,CHR(0xBC)) >>ENDPROC >> >> >>* WIN 1250 to ISO-8859-2 >>*********************** >>PROCEDURE GetCTWIN2ISO(lcCT) >>*@lcCT - Code table >> >>LOCAl lcCT >>lcCT="" >>FOR lii=1 TO 255 >> lcCT=lcCT+CHR(lii) >>NEXT >> >>lcCT=STUFF(lcCT,0xBE,1,CHR(0xB5)) >>lcCT=STUFF(lcCT,0x9E,1,CHR(0xBE)) >>lcCT=STUFF(lcCT,0x8E,1,CHR(0xAE)) >>lcCT=STUFF(lcCT,0x9D,1,CHR(0xBB)) >>lcCT=STUFF(lcCT,0x8D,1,CHR(0xAB)) >>lcCT=STUFF(lcCT,0x9A,1,CHR(0xB9)) >>lcCT=STUFF(lcCT,0x8A,1,CHR(0xA9)) >>lcCT=STUFF(lcCT,0xBC,1,CHR(0xA5)) >>ENDPROC >> >>******************************************** >>* >>********************************************* >>PROCEDURE ISO2WIN(lcString,lcCT) >>RETURN SYS(15,lcCT,lcString) >>ENDPROC >> >>******************************************** >>* >>********************************************* >>PROCEDURE WIN2ISO(lcString,lcCT) >>RETURN SYS(15,lcCT,lcString) >>ENDPROC >> >>>>