……
lcStr=FILETOSTR(lctxt)
If Left(lcStr,2)=Chr(0xFF)+Chr(0xFE)
&&&
如果文档的编码为Unicode格式,则
myfile3=STRCONV(lcStr,6)
&&&&
将Unicode编码的文本转换为ANSI编码的文本。
ELSE
If Left(lcStr,3)=Chr(0xEF)+Chr(0xBB)+Chr(0xBF)
&&&
如果文档的编码为UTF-8格式,则
myfile3=STRCONV(lcStr,11)
&&&&
将 UTF-8 编码的文本文档转换为ANSI编码的文本
ELSE
myfile3=FILETOSTR(lctxt)
ENDIF
ENDIF
STRTOFILE(myfile3,"temp.txt")
myfile=FOPEN("temp.txt")
……
*VFP8.0测试成功