|  | 
 
 发表于 2024-9-27 21:14:11
|
显示全部楼层
   河北省廊坊市 
  
| .版本 2 
 .子程序 编码_utf8到gb2312, 文本型, 公开,utf8到gb2312
 .参数 欲转换的源码, 文本型
 
 返回 (Unicode到Ansi (Ansi到Unicode (欲转换的源码), 936))  ' 从utf8到gb2312
 
 .子程序 Unicode到Ansi, 文本型
 .参数 Unicode, 字节集
 .参数 目标编码, 整数型, 可空
 .局部变量 Ansi, 文本型
 .局部变量 长度, 整数型
 
 .如果真 (是否为空 (目标编码))
 目标编码 = 0
 .如果真结束
 长度 = _Unicode转Ansi (0, 0, Unicode, -1, “”, 0, 0, 0)
 Ansi = 取空白文本 (长度 × 2)
 _Unicode转Ansi (目标编码, 0, Unicode, -1, Ansi, 长度 × 2, 0, 0)
 返回 (Ansi)
 
 .子程序 Ansi到Unicode, 字节集
 .参数 Ansi, 文本型
 .参数 原始编码, 整数型, 可空
 .局部变量 Unicode, 字节集
 .局部变量 长度, 整数型
 
 .如果真 (是否为空 (原始编码))
 原始编码 = 65001
 .如果真结束
 长度 = MultiByteToWideChar (0, 0, Ansi, -1, {  }, 0)
 Unicode = 取空白字节集 (长度 × 2)
 MultiByteToWideChar (原始编码, 0, Ansi, -1, Unicode, 长度)
 返回 (Unicode)
 
 .DLL命令 _Unicode转Ansi, 整数型, "kernel32.dll", "WideCharToMultiByte"
 .参数 CodePage, 整数型
 .参数 dwFlags, 整数型, , 0
 .参数 lpWideCharStr, 字节集
 .参数 cchMultiByte, 整数型, , -1
 .参数 lpMultiByteStr, 文本型, 传址
 .参数 cchMultiByte, 整数型
 .参数 默认文本, 整数型, , 0
 .参数 使用默认文本, 整数型, , 0
 
 .DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar", 公开
 .参数 CodePage, 整数型
 .参数 dwFlags, 整数型
 .参数 lpMultiByteStr, 文本型
 .参数 cchMultiByte, 整数型
 .参数 lpWideCharStr, 字节集
 .参数 cchWideChar, 整数型
 
 
 | 
 评分
| 参与人数 1 | 荣誉 +1 | 收起
理由 |  
|  笨潴 | + 1 | 热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |  
查看全部评分
 |