|
|
|
| |
|
open 方法打开文本文件经常遇到乱码问题,今天俺尝试打开一法文文本 和 英文文本,notepad 中出现问题,后来在 CSDN 重赏,竟然无人能解决.,查了两天,也无结果.无意中在 microsoft msdn 新闻组中发现 adodb.stream 在上传下载中可以进行 charset , 正合吾意, 马上试试,果然成功.
不要用 StrConv(InputB$(LOF(hFile), #hFile), vbUnicode) 这种方式来解决问题,因为你打开的文本编码是不确定的,另外还存在大容量文本的问题.
现归纳成如下函数,该函数能解决由于 utf-8,unicode,ansi,..... 等任何已知编码出现的乱码问题.
' http://spaces.msn.com/members/standardtrip
Function UTFDecode(filePathName As String, writeCode As String, readCode As String) As String
Dim adoSd As ADODB.Stream
Set adoSd = New ADODB.Stream
'adoSd.Mode = adModeRecursive
adoSd.Type = adTypeText
adoSd.Open
adoSd.Charset = writeCode 'UTF-8
adoSd.LoadFromFile filePathName
adoSd.Position = 0
adoSd.Charset = readCode 'gb2312
UTFDecode = adoSd.ReadText
adoSd.Close
Set adoSd = Nothing
End Function |
|
| |
|
|
|
