VBS中使用Adodb.Stream输出不带BOM的UTF-8文件

神之泪花 2012-08-02 10:40:01

需求是在VBS中使用Adodb.Stream（或其他方法）输出不带BOM的UTF-8文件

在调用SaveToFile()方法之前，需要将流转换为二进制类型。

Set stream =  getStream()'此处获得一个不带BOM的stream

stream.Position = 0

stream.Type = 1

stream.SaveToFile fileName, 2

但是Adodb.Stream在输出的时候发现UTF-8文本流的开头缺少BOM，又会再次将其加上。
如果将流类型改为二进制，输出时就可以绕过Adodb.Stream的BOM监测了。

问题：虽然将流转换为二进制类型可以绕过Adodb.Stream的BOM监测，但是输出文件的Encoding不是UTF-8。如何能绕过Adodb.Stream的BOM监测，同时输出不带BOM的UTF-8文件呢？

谢谢

...全文

1140 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Refio 2012-08-19

打赏
举报

回复

1楼代码在哪？被删了？

神之泪花 2012-08-13

打赏
举报

回复

此问题用1楼的代码没有问题。
只不过在没有日文或是可识别为UTF-8的字符时，文件的Encoding会显示为Shift-JIS。
纠结了好久的问题，总是解决了，

Justin-Liu 2012-08-10

打赏
举报

回复

我稀罕这个头像

function putTextContent(path, data, chrs) { chrs = (chrs || "utf-8").toLowerCase(); var com = new ActiveXObject("ADODB.Stream"), utf8 = "utf-8" === chrs; com.Type = 2, com.Mode = 3, com.Charset =

文章目录1、ADODB.stream对象2、ADODB.stream对象的方法2.1、open2.2、close2.3、Write 方法2.4、WriteText 方法2.5、Read 方法2.6、ReadText 方法2.7、Flush 方法2.8、CopyTo 方法2.9、SkipLine 方法2.10、LineSeparator 属性2.11、EOS 属性2.12、SetEOS 方法2.13...

先前说到，想用ADODB.Stream 实现GB2312和UTF8编码转换未果，找了下，找到个文章：《利用ADO STREAM实现GB2312和UTF8编码转换》，试了下，在VB和VBA都没问题，但是在 ASP 和 VBS 下面就不成了，原因就是我一直纠结的，adoStream.Write bytes 失败！于是又专门找了一下 VBS 下 Byte 数组的定义方法（https://www.jb51.net/article/33247.htm），将上面的《利用ADO STREAM实现G...

后来看到有网友推荐了一个高级玩法，说前面的处理方式是要将整个字符串编码写入两个流，当字符串很长时，有空间和性能的较多开销，可以在文本流中仅写入一个字符，然后Copy到二进制流，然后在二进制流中进行以下操作：设置结尾标识，计算下流长度，然后重新定位到起始位置，更改流类型为文本流，UTF-8编码，然后再定位到第一个字符编码位置后，写入原字符串后面的所有字符信息，然后再定位到起始位置，更改流类型为二进制流，然后写入文件，这样也可以一个得到没有BOM的UTF-8的文本文件了。没有毛病，我也是这样处理的。

这两天在做一个用vba生成sql文件的工具类，要求编码格式为UTF-8.最后生成的文件是UTF-8带BOM的，在MySQL数据库运行时会报1064错误，查阅了好多文档，最终得以解决。

4,008

社区成员

3,510

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章