运用pb将unicode文本文件转换为ANSI文本文件

编者注：pb10以下不支持unicode，碰到unicode文件得转换之才能应用，比起API和其它方法将unicode文件转换为ansi文件，都无法跟下面的方法用起来简单方便。

 

 

Integer li_file
blob     lb_text
string   ls_text
string   ls_temptextfile
long     li_filetwo

string   ls_unicodefile = 'c:/target.txt'

ls_temptextfile = 'c:/txt_temp.txt'

li_file = FileOpen(ls_unicodefile ,StreamMode!)

FileSeek(li_file, 2)

//输出到blob

FileRead(li_file, lb_text)

 

If li_file < 1 Then

 FileClose(li_file)
 Return

end if

FileClose(li_file)

//转换为string文本

ls_text = FromUnicode(lb_text)

//ansi码制写入临时文本文件

li_filetwo = FileOpen(ls_temptextfile,StreamMode!, Write!)

FileWrite(li_filetwo, ls_text)

FileClose(li_filetwo)

 

关键字：FromUnicode