【VB6】把BSTR和ANSI/UNICODE/UNICODE-BE/UTF8字符串互相转换

Golden Blonde · 发表于 2021-9-3 15:28:19

欢迎访问技术宅的结界，请注册或者登录吧。

您需要登录才可以下载或查看，没有账号？立即注册→加入我们

×

首先说明：ANSI、UNICODE、UNICODE-BE（UNICODE BIG ENDIAN）的名称可能有歧义，以上名称来自WINDOWS记事本“另存为”对话框的【编码选择】处。

BSTR就是VB的STRING字符串，它本质上是UNICODE字符串。但讽刺的是，VB的自带控件竟然都不支持UNICODE。比如你想在中文系统上用VB自带控件（比如LABEL和TEXTBOX）正确显示德语的变音字母，是不可能的。要做的这点，必须用API自行创建控件。

ANSI字符串是最常见的，等同于C语言里的CHAR[]，它的格式可以简单理解为“英文字符1字节+非英文字符2字节”。它的缺点在于非英文字符的编码有N种方法，比如简体中文WINDOWS系统的汉字编码是GBK（兼容GB2312），繁体中文WINDOWS系统的汉字编码是BIG5。如果在繁体中文WINDOWS系统上保存一个ANSI格式文本文件放到简体中文WINDOWS系统上打开就会显示为乱码，反之亦然。如果你的程序用了A版本的API，比如【MessageBoxA(0,"字符串",0,0)】，那么在非简体中文WINDOWS系统上看到的弹框将会是乱码；如果你的程序用的是W版本的API，比如【MessageBoxW(0,L"字符串",0,0)】，那么在非简体中文WINDOWS系统上看到的弹框则是正常的。

UNICODE字符串等同于C语言里的WCHAR[]，所有字符就一律2个字节。该编码全球通用，不受地区和系统的影响。但如果字符串主要由英文字符组成时，会造成大量空间浪费。比如ABCD的ANSI编码是\x41\x42\x43\x44，但UNICODE编码则是\x41\x0\x42\x0\x43\x0\x44\x0。

UNICODE-BE字符串就是把UNICODE字符串的2个字节的位置调换了一下。比如某个字符的UNICODE编码是0xAA55，那么UNICODE-BE的编码就是0x55AA。该编码全球通用，不受地区和系统的影响。

综合ANSI和UNICODE的优缺点，于是就有了UTF8。对于纯英文字符，UTF8和ANSI是兼容的；对于非英文字符，UTF8有一套固定编码方法。该编码全球通用，不受地区和系统的影响。UTF8的缺点是一个中文字符的长度可能高达3字节甚至4字节。

使用MultiByteToWideChar和WideCharToMultiByte能让VB字符串（BSTR）和其它字符串相互转换。

以下是测试（把代码复制并保存为FRM文件即可运行）：

游客，如果您要查看本帖隐藏内容请回复

0xAA55 · 发表于 2021-9-4 19:46:34

其实你所说的“UNICODE”是Win32编程里的“UNICODE宏”的概念，需要和Unicode编码形式的概念区分开。

Unicode使用32位整数存储每个字符，比如ABCD其实是41 00 00 00 42 00 00 00 43 00 00 00 44 00 00 00，看起来非常占空间，但它能表达的字符种类非常多，其中还包含了相当多的数量的Emoji表情字符等。

Win32编程的“UNICODE”其实使用的是UTF-16编码。其和UTF-8一样，是Unicode的压缩形式。通过判断高位的Bit组合来决定后续字节是否与当前字节共同组合为一个字符。

UTF-8、UTF-16都是Unicode的压缩形式，其压缩解压的算法十分简单，参考这个帖子可以不借助API进行其中的互转：10972

也可以参考这个更加早期的帖子：1676

顺带一提，VB6自带“StrConv”函数，可以进行字符串编码转换，和MultiByteToWideChar、WideCharToMultiByte的功能相同。

Golden Blonde · 发表于 2021-9-6 22:10:47

0xAA55 发表于 2021-9-4 19:46
其实你所说的“UNICODE”是Win32编程里的“UNICODE宏”的概念，需要和Unicode编码形式的概念区分开。

Unic ...

StrConv不好使，只能和UNICODE互相转换。

但是BSTR和UNICODE互相转换可以直接使用“等号”实现。

ps122 · 发表于 2021-9-11 08:50:53

谢谢分享，学习了

xiongsx · 发表于 2021-11-12 21:19:07

dfdfdfdfdfdf

VB小白 · 发表于 2022-4-5 11:23:57

谢谢分享，学习了

xiawan · 发表于 2022-5-13 15:37:14

此贴必火，占位刘留名~~~~

系统消息 · 发表于 2022-5-20 12:42:46

其实VB6点TextBox是可以做到显示Unicode字符的，首先需要给exe加入comctl32.dll 6.0清单，让控件获得视觉主题，然后文本不要通过.Text属性赋值，而是用GetClassInfoW去获取原生的W版Edit控件的WndProc，最后用CallWindowProcW来调用它并传人WM_SETTEXT消息。同理我们也可以利用DefWindowProcW函数来实现让VB6的Form窗口标题栏现实Unicode文本。

Golden Blonde · 发表于 2022-5-20 14:53:14

系统消息发表于 2022-5-20 12:42
其实VB6点TextBox是可以做到显示Unicode字符的，首先需要给exe加入comctl32.dll 6.0清单，让控件获得视觉主 ...

口说无凭，你也弄个DEMO并放出源码来。

https://www.0xaa55.com/thread-26616-1-1.html

tlwh163 · 发表于 2022-5-20 17:20:26

认真学习

sml2 · 发表于 2022-5-24 13:51:43

杠起来了？

scdn2022 · 发表于 2023-5-6 17:23:24

6

zhaoliang · 发表于 2023-5-11 22:53:05

谢谢高手

wgwangjiang · 发表于 2023-7-5 11:44:26

学习一下

liu496324 · 发表于 2023-7-6 10:22:11

来晚了啊

get43639 · 发表于 2023-8-19 15:12:39

vb6 編碼就新手而言是個困擾，感謝分享學習。

smartgkk · 发表于 2023-9-26 18:00:27

谢谢分享！

liu496324 · 发表于 2024-6-1 11:48:46

大佬，请问如何识别这些字符是什么字符呢？

v855617 · 发表于 2024-6-25 11:45:07

最近在处理旧程式中ANSI与Unicode处理，不知转换后与写入文档与读取文档是不是也是要历经相同步骤？

账号		自动登录	找回密码
密码			立即注册→加入我们

【VB6】把BSTR和ANSI/UNICODE/UNICODE-BE/UTF8字符串互相转换

欢迎访问技术宅的结界，请注册或者登录吧。

本帖被以下淘专辑推荐:

点评

点评