您好,抱歉,我无法弄清楚。我尝试打开一个将其字符集更改为UTF8的txt文件,并将其保存在相同的文件名下,但这不起作用。
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"
答案 0 :(得分: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