运用pb将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)