ANSITOWIDE function

Purpose: ANSITOWIDE function returns a wide-character(Unicode) string converted from a character string.


 Syntax: 

 RetLPOLESTR = ANSITOWIDE(Multibyte$ [, CodePage, dwFlags])

 Parameters:

  • RetLPOLESTR Returned pointer to translated wide-character string. RetLPOLESTR should be dimensioned as a LPOLESTR.
  • Multibyte$ Points to the character string to be converted.
  • CodePage [OPTIONAL]. Default is CP_ACP. Specifies the code page to be used to perform the conversion. See the CodePage section of the MultiByteToWideChar function in your Win32 SDK or PSDK Reference help for more information.
  • dwFlags [OPTIONAL]. dwFlags is an integer which indicates how to translate Multibyte$. If flag constants are used for this parameter, the winnnls.h header, which contains the constants, must be specified. The default is MB_PRECOMPOSED. See the dwFlags section of the MultiByteToWideChar function in your Win32 SDK or PSDK Reference help for more information.

WIDETOANSI$ function

Purpose: WIDETOANSI$ function returns a character string converted from a wide-character(Unicode) string.


 Syntax: 

 RetStr$ = WIDETOANSI$(UnicodeStr [, CodePage, dwFlags])

 Parameters:

  • RetStr Returned string.
  • UnicodeStr Points to the Unicode string to be converted.
  • CodePage [OPTIONAL]. Default is CP_ACP. Specifies the code page to be used to perform the conversion. See the CodePage section of the WideCharToMultiByte function in your Win32 SDK or PSDK Reference help for more information.
  • dwFlags [OPTIONAL]. dwFlags is an integer which indicates how to translate. If flag constants are used for this parameter, the winnnls.h header, which contains the constants, must be specified. The default value is 0. See the dwFlags section of the WideCharToMultiByte function in your Win32 SDK or PSDK Reference help for more information.

Here is an example to convert a Unicode file to ANSI.


 DIM lenFile%
 lenFile% = LOF("MyUnicode.file")
 DIM a$ * lenFile%
 DIM b AS LPOLESTR
 DIM c$ *  LOF("MyUnicode.file")

 OPEN "MyUnicode.file" FOR BINARY AS fp1
 Get$ fp1, a$, lenFile%
 b =(LPOLESTR)a$
 c$ = WIDETOANSI$(b)

 PRINT c$