bgm

如何在VB6裡把UTF-8格式的繁體中文字讀出,而不成亂碼? 

寫程式讀檔3不5時 可能會遇到有UTF-8的編碼..
不幸的是.. VB6 讀進的中文字會變亂碼

亦無法像VS.Net 一樣可輕易的讀取 ..
因此在這,小弟提供另兩個解決方案分享給大家參考 ( 非API )

1.如果是 XML 檔案或資料 , 可透過 M$ 的 DOM 物件來讀入文件

2.用 M$ 開發工具寫資料庫的人, 都應該知道 ADO
        在 ADODB 裡面有個Stream物件 , 可透過該物件讀檔,
        再指定Charset,之後即可透過ReadText方法取回資料
        如此就能解決編碼的問題囉 !

Sample :

Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")

With objStream
        .Type = 2
        .Mode = 3 
        .Open 
        .Charset = "UTF-8" ' 或其他編碼 
        .LoadFromFile "檔案路徑+名稱" 
         取回結果 = .ReadText 
        ' PS : 也可透過 .SaveToFile 方法把檔案存檔 
        .Close
End With