明月

fggg fdggg dfg sdfsdf fggg 

如何讀UTF8格式的..
如何在VB6裡把UTF-8格式的繁體中文字讀出,而不成亂碼?
寫程式讀檔,3不5時,會遇到有UTF-8的編碼..不幸的是.. VB6 讀進的中文字會變亂碼(不是卡通亂馬1/2喔)當然,可透過呼叫 API 來解決該問題 .. 但在這,小弟提供另兩個解決方案分享給大家參考
1.如果是 XML 檔案或資料 , 可透過 M$ 的 DOM 物件來讀入 XML 文件
2.用 M$ 開發工具寫資料庫的人, 都應該知道 ADO 在 ADODB 裡面有個Stream物件 , 可透過該物件讀檔, 再指定Charset,之後即可透過ReadText方法取回資料 如此就能解決編碼的問題囉 !
Sample :
Dim objStream As Object Set objStream = CreateObject("ADODB.Stream")
With objStream .Type = 2 .Mode = 3 .Open .LoadFromFile "檔案路徑+名稱" .Position = 0 .Charset = "Big5" ' 或 "UTF-8" 或其他編碼 取回結果 = .ReadText ' PS : 也可透過 .SaveToFile 方法把檔案存檔  .Close End With



.msgcontent .wsharing ul li { text-indent: 0; }



分享

Facebook
Plurk
YAHOO!