|
地下

楼主 |
发表于 2013-3-20 16:46:50
|
只看该作者
江苏省宿迁市
附上[e]
.版本 2
.子程序 URL_UTF8编码, 文本型, 公开
.参数 Bin_URL, 文本型
返回 (URL编码 (到字节集 (Ansi转Utf8 (Bin_URL))))
.子程序 Ansi转Utf8, 字节集
.参数 ansi文本, 文本型
返回 (Unicode转Utf8 (Ansi转Unicode (ansi文本)))
.子程序 Ansi转Unicode, 字节集
.参数 Ansi文本, 文本型
.局部变量 len, 整数型, , , 单位: Word
.局部变量 Unicode字节集, 字节集
len = MultiByteToWideChar (936, 0, Ansi文本, -1, { }, 0) × 2
Unicode字节集 = 取空白字节集 (len)
MultiByteToWideChar (936, 0, Ansi文本, -1, Unicode字节集, len)
返回 (Unicode字节集)
.子程序 Unicode转Utf8, 字节集
.参数 Unicode字节集, 字节集
.局部变量 utf8_len, 整数型
.局部变量 uft8, 字节集
utf8_len = WideCharToMultiByte (65001, 0, Unicode字节集, 取字节集长度 (Unicode字节集) ÷ 2, uft8, 0, 0, 0)
uft8 = 取空白字节集 (utf8_len)
WideCharToMultiByte (65001, 0, Unicode字节集, -1, uft8, utf8_len, 0, 0)
返回 (uft8)
[/e] |
|