vba如何正确地输出UTF-8编码文件

sunsmile23 · 发表于 2013-7-17 11:23:21

Excel 电子表格的处理能力很强，支持各种编码，处理百兆以上的大文件也没有问题，而且每个电脑都有安装，不需要特别的软件。
加上vba，就更是如虎添翼，是词典制作的好帮手。
不过我遇到一个拦路虎，就是怎么尝试也无法输出正确的UTF-8编码文件，下面附上我的文件，里面有尝试的说明，望有经验者不吝赐教，本人感激不尽。

Excel文件：

write2text.zip (11.81 KB, 下载次数: 32)

peterdocter · 发表于 2013-7-17 11:36:32

本帖最后由 peterdocter 于 2013-7-17 11:38 编辑

http://blog.sina.com.cn/s/blog_40350cc7010006ch.html
http://www.phpfans.net/article/htmls/201104/MzM2NzM0.html
http://www.idiandian.com/communi ... 9b58d8db/page1.html
楼主又准备制作什么经典字典？{:soso_e179:}
有什么问题，可以先baidu再google

sunsmile23 · 发表于 2013-7-17 12:51:51

非常感谢您的回复。
不过那些方法也试过，不行。
您可以看看那个附件，其实也很简单，结果就是不行。

peterdocter · 发表于 2013-7-17 13:02:19

本帖最后由 peterdocter 于 2013-7-17 13:07 编辑

再尝试这个：
http://stackoverflow.com/questio ... vba-export-to-utf-8
http://www.knowexcel.com/view/66 ... -file-with-vba.html
http://club.excelhome.net/thread-513237-1-1.html

rayman · 发表于 2013-7-17 14:38:03

实在不行就先输出utf-16, 然后再找工具转成utf-8...

sunsmile23 · 发表于 2013-7-17 15:51:25

感谢老大出面。

我主要是想把单元格输出为mdict可编译的格式。这样可以一次成型，免得转弯抹角，浪费时间。

现在的情况主要是：
单独的单元格输出为UTF-8正常，但是单元格字符串前后加点东西，比如说超链接之类，再加点其他的汉字，就成乱码。不转换还不成，vba执行会受阻。
就是例子中单元格5所遇到的情况。

peterdocter · 发表于 2013-7-17 17:09:48

如果你用editplus，只要excel保存是cvs格式。再前者打开另存为utf-8就行了{:soso_e127:}

sunsmile23 · 发表于 2013-7-17 17:48:25

你不明白我的需求。excel 整体存取，什么编码都没有问题。

而我要直接处理单元格，直接输出maxbuilder格式的文本。何必在各种软件中换来换去，查找来替换去。
例如，我有数据：
列：A列 B列 C列
数据：a b c
上面是excel 单元格数据，我或许要经过一些变换或处理，直接输出为maxbuilder可编译的格式,如或许是这样：
a
a+c+<a href=.........b.......</a>
</>
总之，我现在的主要问题是，若单元格中没有什么特殊点的字符，啥问题都没有。gb2312就行了。但是，若单元格中有比较特殊的字符，例如第5单元格，fso写入就要出错。转成UTF-8就行了。但单独写行，前后加点东西就不行。
网上找的办法也不行。

peterdocter · 发表于 2013-7-17 18:27:10

http://d.hatena.ne.jp/niemands/20090316/1237225383
再看一个日的

chigre · 发表于 2013-7-17 19:17:29

A B C

复制代码

可以直接使用正则替代啊：
\r\n(?<sub>.*?) (?<sub>.*?) (?<sub>.*?)\r\n
替代为：
\r\n\1\r\n\1 \2 <a href="entry://\3">\r\n</>\r\n

就会成为：

A
A B <a href="entry://C">
</>

复制代码

sunsmile23 · 发表于 2013-7-17 19:38:27

本帖最后由 sunsmile23 于 2013-7-17 19:48 编辑

这个是行，但是我的数据是 excel 保存，把他另存为文本文件，再来查找替换，多别扭。excel单元格，支持换行符又不方便。
把excel数据直接变为最终可编译格式的文本文件，一次成型，不用任何查找替换，关键是省了人工而且修改方便，多方便。

另：请问，您这是在哪儿替换？是在单元格中替换吗？

Oeasy · 发表于 2013-7-17 19:59:36

本帖最后由 Oeasy 于 2013-7-17 20:12 编辑

这个是行，但是我的数据是 excel 保存，把他另存为文本文件，再来查找替换，多别扭。excel单元格，支持换行符又不方便。
把excel数据直接变为最终可编译格式的文本文件，一次成型，不用任何查找替换，关键是省了人工 ...
sunsmile23 发表于 2013-7-17 19:38

其实用正则表达式（http://baike.baidu.com/view/94238.htm）只多了一步而已。数据是.xls还是.txt，本质上都是一样的，前者有tab而已，txt间隔合适的话可以直接导入Excel。我其实一般都是新建一列（或多列，插入位置看情况，最后一列一般是</>），然后把Excel的内容复制（懒得另存为txt）到文本编辑器（一般UE或者EditPlus），再把tab（以及其他标记性的内容）替换成空格或者换行之类的就OK了。
chigre的办法更高阶，一步就搞定了，用到了 (?<sub>.*?) ，都不需要在Excel中操作。他的替换应该是在文本编辑器（Notepad++, UltraEdit, EditPlus, EmEditor等）中对txt等操作的。

sunsmile23 · 发表于 2013-7-17 20:15:11

赞！真高手，炉火纯青！

i-wiki · 发表于 2013-7-20 10:58:44

本帖最后由 i-wiki 于 2013-7-20 20:04 编辑

为什么要使用FSO？VBA有自己的文件处理语句，可以对文本或二进制数据操作，结合kernel32函数调用可完成Unicode到utf8代码转换。
程序中疑似函数tran_ado转换时，从流中读出并返回串时有问题。
ADODB的Stream本身就可以保存为文件，试一试下面代码如何？

Sub main()
Dim i As Integer
Dim sft As String
Dim spy As String
Dim szm As String
Dim s As String
Dim Stm As New ADODB.Stream
Stm.Type = adTypeText
Stm.Mode = adModeUnknown
Stm.Open
Stm.Charset = "utf-8"
For i = 1 To 7
sft = Cells(i, 1)
szm = Cells(i, 2)
spy = Cells(i, 3)
s = "<a href=""entry://" & sft & "/"">" & sft & "</a>" & spy & "/" & szm
Stm.WriteText s & vbLf
Next
If Dir("z:\vba.txt") <> "" Then Kill "z:\vba.txt"
Stm.SaveToFile "z:\vba.txt"
Stm.Close
End Sub

复制代码

sunsmile23 · 发表于 2013-7-20 15:18:51

非常感谢！解决一个大问题！

works perfectly!

peterdocter · 发表于 2013-7-20 20:21:52

我也准备说了，想不到已经有人回答。对实现不行，就用vba调用win32 api。基本啥都能干。
而且vbs调用vba再操作win32 api，这样处理就更强。不用等把所有文件内容显示完再处理...

zhezhezhe · 发表于 2013-11-24 17:53:14

学习了

[求助] vba如何正确地输出UTF-8编码文件

评分

本帖被以下淘专辑推荐: