1. 程式人生 > >運用pb將unicode文字檔案轉換為ANSI文字檔案

運用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)