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)