Hi, Emerson!
Below is a function, that, may be, will be usefull for You.
FUNCTION udf_CPConverter()
Lparameters nCurrentCodePage, nNewCodePage, cString )
Declare Integer IsValidCodePage in WIN32API ;
integer nCodePage
Declare Integer MultiByteToWideChar in WIN32API ;
integer CodePage,;
integer Flags,;
string MultyByteStr,;
integer MultiByteStrLen,;
string @ WideCharStr,;
integer WideCharStrLen
Declare Integer WideCharToMultiByte in WIN32API ;
integer CodePage,;
integer Flags,;
string MultyByteStr,;
integer MultiByteStrLen,;
string @ WideCharStr,;
integer WideCharStrLen,;
integer ,;
integer
If IsValidCodePage(nCurrentCodePage) = 0
Error 1914
Return ""
EndIf
If IsValidCodePage(nNewCodePage) = 0
Error 1914
Return ""
EndIf
Local WideCharBuf, MultiByteBuf
WideCharBuf=Replicate(Chr(0),Len(cString)*2)
MultiByteBuf=Replicate(Chr(0),Len(cString))
MultiByteToWideChar;
(nCurrentCodePage;
,0;
,cString;
,Len(cString);
,@WideCharBuf;
,Len(WideCharBuf))
WideCharToMultiByte;
(nNewCodePage;
,0;
,WideCharBuf;
,Len(WideCharBuf);
,@MultiByteBuf;
,Len(MultiByteBuf);
,0,0)
Return MultiByteBuf
Code Page Identifiers for ISO-8859 are:
28591 ISO 8859-1 Latin I
28592 ISO 8859-2 Central Europe
28593 ISO 8859-3 Latin 3
28594 ISO 8859-4 Baltic
28595 ISO 8859-5 Cyrillic
28596 ISO 8859-6 Arabic
28597 ISO 8859-7 Greek
28598 ISO 8859-8 Hebrew
28599 ISO 8859-9 Latin 5
28605 ISO 8859-15 Latin 9
This code I have received from my friend - Vadim Pirozkov.