急求ISO-8859-1到GB/GBK的转换方法

Question

急求ISO-8859-1到GB/GBK的转换方法如：字符串：“關閉 ”怎样转成 “关闭”

Answer 1

利用 adodb.stream 技术来转换 或者用 XML 来转换,

Answer 2

示例: (网上转)
现归纳成如下函数,该函数能解决由于 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