我正在使用 vbscript 从 db2 提取数据并写入文件。
写入文件如下:
Set objTextFile = objFSO.CreateTextFile(sFilePath, True, True)
以 unicode 创建文件。但那是 xml 文件并且它使用 UTF-8。
因此,当我使用 MS XML 记事本打开 xml 文件时,它会抛出错误:
“十六进制值 0x00 是无效字符”
所以我用 TextPad 打开这个文本文件并以 UTF-8 保存。之后 XML 打开就没有任何问题。
我可以通过 vbScript 将文件从 Unicode 转换为 UTF-8 吗?
使用 Stream 对象以 utf-8 字符集保存文件可能更适合您;这是一个简单的 .vbs 函数,您可以在数据上进行测试:
Option Explicit
Sub Save2File (sText, sFile)
Dim oStream
Set oStream = CreateObject("ADODB.Stream")
With oStream
.Open
.CharSet = "utf-8"
.WriteText sText
.SaveToFile sFile, 2
End With
Set oStream = Nothing
End Sub
' Example usage: '
Save2File "The data I want in utf-8", "c:\test.txt"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)