使用Adodb.Stream判断文件编码及进行编码转换（Unicode，Utf-8，GB2312等)

明天の晨曦

liucqa 老师您好，我想转换xml的编码从UTF到ansi，用您的编码转换为什么中文字符会变成“???”
Sub FileZM(sFile As String, sCode As String, dFile As String, dCode As String)
Dim ObjStream As Object

Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
    .Mode = 2         'adModeReadWrite = 3 ' 指示读/写权限。
    .Type = 1         'adTypeBinary = 1
    .Open
    .LoadFromFile sFile   '源文件

    .Position = 0
    .Type = 2         'adTypeText = 2
    .Charset = sCode
    sCode = .ReadText '读取文本到sCode
   
    .Position = 0     ' 这只是定位到文件头，保留
    .SetEOS           ' 完全重写不要漏了这个,通过使当前 Position 成为流的结尾来更新 EOS 属性的值。当前位置后面的所有字节或字符都将被截断
    .Type = 2         'adTypeText = 2
    .Charset = dCode       '指定输出编码
    .WriteText sCode       '写入指定的文本数据到Adodb.Stream
     .SaveToFile dFile, 2
    .Close
End With
Set ObjStream = Nothing
End Sub

Private Sub CommandButton4_Click()
FileZM "C:\Users\User\Desktop\life\life.xml", "UTF-8", "C:\Users\User\Desktop\life\2.xml", "iso-8859-1"
End Sub

明天の晨曦

谢谢老师，但是我改成ansi为啥还是问号呢

明天の晨曦

好的，谢谢老师知指导