Function UTFTOASCII(ByVal text As WString Ptr) As String
Преобразует строку Unicode в строку Ascii
text - адрес буфера со строкой Unicode
Windows
#Include "window9.bi"
Dim As WString Ptr pwStr
Dim As String String_="Здравствуй мир!"
? String_
pwStr = ASCIITOUTF(String_)
? *pwStr
? UTFTOASCII(pwStr)
Sleep
DeAllocate(pwStr)
╟фЁртёЄтєщ ьшЁ!
Здравствуй мир!
╟фЁртёЄтєщ ьшЁ!
Created with the Personal Edition of HelpNDoc: Free help authoring tool