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

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

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

Excel文件：

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

; j& Z$ F @. ~3 f& }
) ?7 k# d+ V3 S! t
A B C
/ G- P' O; v' S+ v3 o
) @, r1 n3 y ~6 l: Y. r

复制代码

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

就会成为：

; O6 a8 q) s, H" t! v! S E5 X, a
) U9 g; G( f5 _7 U0 Q
A
/ w- S4 z$ _$ d6 A) i3 T& b
A B <a href="entry://C"> n' e9 p& s3 p
</>
3 W& _& s6 i8 N2 q, o
7 F l8 }; c$ g

复制代码

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单元格，支持换行符又不方便。
/ u6 p$ l6 ^' O# v# ^' u4 t把excel数据直接变为最终可编译格式的文本文件，一次成型，不用任何查找替换，关键是省了人工 ...( X/ i5 _4 ]. A9 m9 r7 i7 k
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(), Z) J! C) v: {! S0 K
Dim i As Integer2 H: u, S# h3 x1 _7 |6 G
Dim sft As String
) n O4 q0 a% i9 u) ~$ L8 B0 c& `
Dim spy As String* ~8 a' ~4 B& U6 {$ S7 W$ I9 F
Dim szm As String
. F R2 b! s/ I$ ?! P5 O
Dim s As String
. e# q/ k7 z) v9 F* X/ z/ M* [( X) }2 p
Dim Stm As New ADODB.Stream8 H( A2 F- }! c" r0 m
- i" K8 A; }) ]1 P! y) i
Stm.Type = adTypeText
9 U$ k; e- ~/ f- \
Stm.Mode = adModeUnknown
! n, I! y& D* [6 A4 c9 L& m& n
Stm.Open
+ |9 a7 \% |& Z
Stm.Charset = "utf-8"
( A5 d3 v$ @* o
% X! X) Y* Q1 t, _
For i = 1 To 7
0 `0 @0 @$ F$ u3 m
sft = Cells(i, 1)
; d6 e; d, b& h6 f
szm = Cells(i, 2)# d- a% ]4 l5 @, U1 W
spy = Cells(i, 3)4 y$ J0 D7 b9 P6 ]$ S9 m% x
s = "<a href=""entry://" & sft & "/"">" & sft & "</a>" & spy & "/" & szm* t( v6 M* i: Z( x. V8 Q, w. ?
) ^- K9 Z; w; ~( _& l
Stm.WriteText s & vbLf( D! s+ O" r7 N' D9 w* U" A& D
Next
: ]* q6 k& e* J; h+ U- b# s
5 e( C% j' s: ` `) s+ f5 ~
If Dir("z:\vba.txt") <> "" Then Kill "z:\vba.txt"
1 X: l" N# L/ |5 m: J
Stm.SaveToFile "z:\vba.txt"
8 i6 n; Z! y" `9 x
Stm.Close
" y( G0 Z( L# I m# q
End Sub& f }* F! w2 W! _$ O/ I R

复制代码

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

学习了

Okya · 发表于 2019-9-24 17:51:33

谢谢楼主。

		自动登录	找回密码
密码			免费注册

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

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

相关帖子