VBS 打开 txt - 使用 UTF-8 编码保存

Question

您好，很抱歉，我无法弄清楚。我尝试打开一个 txt 将其字符集更改为 UTF8 并将其保存在相同的文件名下，但这不起作用。

Dim Dateisystem, Textdatei, text
Set Dateisystem = CreateObject("Scripting.FileSystemObject")
Set Textdatei = Dateisystem.OpenTextFile("titel.txt")
text = Textdatei.ReadAll


Const adModeReadWrite = 3
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

Sub SaveToFile(text, filename)
  With CreateObject("ADODB.Stream")
    .Mode = adModeReadWrite
    .Type = adTypeText
    .Charset = "UTF-8"
    .Open
    .SaveToFile filename, adSaveCreateOverWrite
    .Close
  End With
End Sub

SaveToFile text, "titel.txt"

Answer 1

试试这个：

Set stream = CreateObject("ADODB.Stream")
Set fso = CreateObject("Scripting.FileSystemObject")
stream.Open
stream.Type = 2 'text
stream.Charset = "utf-8"
stream.LoadFromFile "C:\Your-File-Here(Input).txt"
text = stream.ReadText
stream.Close
Set f = fso.OpenTextFile("C:\Your-File-Here(Output).txt", 2, True, True)
f.Write text
f.Close