如何用VFP判断文本文件的编码格式?

文本(文件)数据问题 | 2015-04-09 00:51:44 | 阅读 997 次 | 评论(0)

作者:十豆三

*--文本文件的编码格式手动查看方法:

*--用记事本打开文本后,点击菜单上的“另存为”,编码格式在出现的对话框下方。
*--那用VFP如何取得文本文件的编码格式呢,如下:

lcFileName='C:/A.txt'    &&文本文件名
lcStr=Filetostr(lcFileName)
lcStrType=Createbinary(Substr(lcStr,1,2))
Do Case
    Case lcStrType=0hEFBB    &&VFP6.0不支持此种方式,此实列是在VFP9.0+SP2下测试的。
        lcCode='UTF-8'
    Case lcStrType=0hFFFE
        lcCode='Unicode'
    Case lcStrType=0hFEFF
        lcCode='Unicode big endian'
    Otherwise
        lcCode='ANSI'
Endcase
?'此文本的编码格式为:',lcCode


文章评论,共0条
游客请输入验证码
浏览234094次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...