字符编码转换问题

banditson · 发表于 2022-12-30 08:19

已知扫描枪扫描结果字符编码为windows-1252或iso-8859-1，如何将这任意一种编码转换成EXCEL能识别的GBK（通过乱码在线恢复http://www.mytju.com/classcode/tools/messycoderecover.asp可以转换）。

test.rar (9.57 KB, 下载次数: 12)

perfect131 · 发表于 2022-12-31 14:28

1. 复制到 txt 用 vba 一次性转换
2. 用 vbs 直接转换，vba 不能直接转换，vbe 无法识别你的字符串 °ü×°ò»2¿
参考转码函数：https://blog.csdn.net/weixin_34166472/article/details/85364216
3. 用别的语言比如python

'°ü×°ò»2¿'.encode('ISO-8859-1').decode('gbk')

perfect131 · 发表于 2022-12-31 16:48

原来 vbe无法正常显示也能转换

banditson · 发表于 2023-1-5 10:08

本帖最后由 banditson 于 2023-1-5 11:14 编辑

perfect131 发表于 2022-12-31 16:48
原来 vbe无法正常显示也能转换

老大，用你的文件可以转换，但把模块复制到其它文件中就报错，麻烦麻烦帮我号下脉~~~~

test.rar (16.37 KB, 下载次数: 3)

banditson · 发表于 2023-1-5 12:01

perfect131 发表于 2022-12-31 16:48
原来 vbe无法正常显示也能转换

我把部分代码改为以下内容，就可以了，谢谢啦。。。。
         .Charset = "iso-8859-1"
         .Open
         .WriteText arr(i, 1), 0
         .Position = 0
         .Type = 1
         Bytes = .Read()
         .Close
         .Open
         .Type = 1
         .Write Bytes
         .Position = 0
         .Type = 2
         .Charset = "gbk"
         arr(i, 1) = .ReadText()
         ADODB_Stream.Close

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

字符编码转换问题

评分