pb6.5怎么把unicode乱码转成正常汉字？

[lsypinghong]

integer li_fileone, li_filetwo

blob lb_text
string ls_native
li_fileone = FileOpen("D:\ua\Bin\wz.ini", StreamMode!)
// Move the file pointer so that Unicode
// identifying characters aren't copied
FileSeek(li_Fileone, 2)
// Read the data in the file into a blob
FileRead(li_fileone, lb_text)
FileClose(li_fileone)
// Convert the Unicode blob to a string
//ls_native=string(blob(lb_text,encodingutf16le!),encodingansi!)
//ls_native=Fromunicode(lb_text)
// Open a second file to copy the string to
li_filetwo = FileOpen("D:\ua\Bin\wz1.ini",StreamMode!, Write!)
FileWrite(li_filetwo, ls_native)
FileClose(li_filetwo)

提示没有定义fromunicode函数，怎么解？

[猎奇567]

PB 6.5没Fromunicode这个函数。 建议调用win32 api: WideCharToMultiByte 可以把 Unicode strings 转换为 ANSI strings FUNCTION long WideCharToMultiByte(uint CodePage, ulong dwFlags, ref blob lpWideCharStr, long cchWideChar, ref blob lpMultiByteStr, long cbMultiByte, long lpDefaultChar,long lpUsedDefaultChar) Library "kernel32.dll" 我没用过这个函数，具体你进一步了解下。