The Will Will Web

記載著 Will 在網路世界的學習心得與技術分享

VB 如何轉存文字檔案為 UTF-8 編碼格式

如果你在寫 ASP 或 VB 且一定要將文字儲存成 UTF-8 編碼,這個 Function 應該可以幫你的忙:

Function SaveTextAsUTF8(filePath, Text)
        Const adTypeText = 2
        Const adSaveCreateOverWrite = 2

        'Create Stream object
        Dim TextStream
        Set TextStream = CreateObject("ADODB.Stream")
        With TextStream
                .Open
                .CharSet = "UTF-8"
                .Position = TextStream.Size
                .WriteText Text
                .SaveToFile filePath, adSaveCreateOverWrite
                .Close
        End With
        Set TextStream = Nothing
       
End Function

留言評論