utf-8 - VBS 打开 txt - 使用 UTF-8 编码保存
问题描述
嗨,对不起,我无法弄清楚。我尝试打开一个 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"
解决方案
尝试这个 :
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
推荐阅读
- plugins - 有没有办法解决虚幻引擎 4 的块下载器插件的大小匹配错误?
- python - python read_csv 自定义分隔符
- javascript - VUEjs 3 警告:超出最大递归更新
- r - 在每个矩形内画一个圆
- android - 如何使用 PowerMockito 在演示者中使用构造函数中设置的值测试方法
- root - 将两个根文件相加得到单个根文件 file1.root + file2.root = file3.root
- java - java pojo类中serializedName字段的修改
- android - 如何在 Android 上以 Flip book 样式显示文本?
- python - 简单的 jwt 不返回刷新令牌
- graph-theory - 当图中存在不兼容的节点时如何找到集群的最大大小