also jetzt beim test von ANSI/OEM bin ich in ein Problem gelaufen :
was macht man eigendlich wenn man einen OEM-String mit
cBad := ConvToOemCP( cOem ) behandelt hat und der nun
so in der DBF/FTP steht ?
ein ConvToAnsiCP( ConvToAnsiCP( cBad ) ) bringt nichts ...
gruss by OHR
Jimmy
Code: Alles auswählen
PROCEDURE Main
LOCAL cAnsi, cOem,cBad
cAnsi := Chr(196)+Chr(228)+Chr(214)+Chr(246)+Chr(220)+Chr(252)
cOem := Chr(142)+Chr(132)+Chr(153)+Chr(148)+Chr(154)+Chr(129)
SET ALTERNATE TO Oem_Oem.txt
SET ALTERNATE ON
? "OEM" , cOem
? "OEM" , CHR_IST( cOem )
? ""
? "ANSI" , cAnsi
? "ANSI" , CHR_IST( cAnsi )
? ""
? "BAD OEM2OEM", cBad := ConvToOemCP( cOem )
? "value", CHR_IST(cBad)
? ""
? ""
? "try 2x ConvToAnsiCP ", ConvToAnsiCP( ConvToAnsiCP( cBad ) )
SET ALTERNATE TO
SET ALTERNATE OFF
RETURN
PROCEDURE CHR_IST(cString)
LOCAL i
FOR i = 1 TO 6
? ASC( SUBSTR(cString,i,1) )
NEXT
RETURN
*
* eof
*