VB打开UTF-8的文本文件乱码

[小怪兽Max]

如题··
然后我把文本用TXT打开另存为ANSI格式的，用VB打开正常，但是我文件比较多，不可能一一另存，想请高手帮个忙
如何使UTF-8文件打正常显示

[zhao370]

up

[赵4老师]

用convertz批转成ANSI的

[纠结的程序猿]

用PilotEdit可以一次转换多个文件, www.pilotedit.com

[纠结的程序猿]

http://www.pilotedit.com

[「已注销」]

ADODB.Stream

[贝隆]

围观先

[小怪兽Max]

已经找到解决方法··http://zhidao.baidu.com/question/123224632.html?fr=im2。
还有就是楼上的··我看不懂··

[Tiger_Zhao]

Function LoadUTF8(ByVal FileName As String) As String
    Dim oStream     As ADODB.Stream
    
    Set oStream = New ADODB.Stream
    oStream.Open
    oStream.Charset = "UTF-8"
    oStream.LoadFromFile FileName
    
    LoadUTF8 = oStream.ReadText()
    
    oStream.Close
End Function

[小怪兽Max]

哎，果然还是不行

[赵4老师]

用convertz批转成ANSI的