* 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>Hi.