求助，VB6如何把文本文件由默认的ANSI编码格式存为UTF-8编码格式

Question

文本文件的格如何存为UTF-8格式
文本文件中的中文如何转为UTF-8编码格式

Answer 1

Dim objStream As Object
Dim str as string 
Set objStream = CreateObject("ADODB.Stream")With objStream
        .Type = 2
        .Mode = 3 
        .Open 
        .Charset = "UTF-8" 
        .LoadFromFile "c:\1.txt"   'ANSI编码格式 
        str = .ReadText 
        .SaveToFile "c:\utf8.txt"  'UTF-8编码格式
        .Close
End With 文件的编码格式倒是变为了UTF-8编码格式
但是生成出来的文本中的内容完全错掉了，我用读取UTF8的编码格式的程序读不到原来的中文值

Answer 2

http://blog.csdn.net/zyl910/archive/2006/05/30/762693.aspx

Answer 3

Dim objStream As New ADODB.Stream
Dim str As StringWith objStream
    .Type = 2
    .Mode = 3
    .Open
    .Charset = "UTF-8"
    .WriteText "中华人民共和国", adWriteLine
    .SaveToFile "c:\utf8.txt", adSaveCreateOverWrite
    .Close
End With

Answer 4

谢谢各位的帮忙，下面是一个读取UTF8格式的代码

Answer 5

应该读文件完了再设置Charset吧

Answer 6

为了读文本文件要引用ADODB.Stream zyl910的专栏给出了目前中国最好的VB读文本文件的Sorce Code.
http://blog.csdn.net/zyl910/archive/2006/05/30/762693.aspx另外，
http://www.chenoe.com/blog/article.asp?id=2030也是转自zyl910