解决多国语言乱码的编码问题

解决多国语言乱码的编码问题   忙呼了几天,终于解决多国语言乱码的编码问题  open 方法打开文本文件经常遇到乱码问题,今天俺尝试打开一法文文本 和 英文文本,notepad 中出现问题,后来在 重赏,竟然无人能解决.,查了两天,也无结果.无意中在 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