Question

易语言怎么将编辑框内容转为unicode， 求源码

Answer 1

.版本 2

.子程序 工具_编码转换, 文本型
.参数 文本, 文本型, , 待转换的文本
.参数 源编码, 整数型, , 源编码，用#CP查找，也可直接输入整数
.参数 目标编码, 整数型, , 目标编码，用#CP查找，也可直接输入整数
.局部变量 Len, 整数型
.局部变量 r, 整数型
.局部变量 目标文本, 文本型
.局部变量 szUnicode, 文本型

Len ＝ _取目标编码长度 (源编码, 0, 文本, -1, 0, 0) × 2
szUnicode ＝ 取空白文本 (Len)
' 转换为 UNICODE
.子程序 gbk2utf8, 文本型
.参数 文本型, 文本型

返回 (工具_编码转换 (文本型, 936, 65001))

.子程序 gbk到utf8, 字节集
.参数 文本型, 文本型

返回 (到字节集 (工具_编码转换 (文本型, 936, 65001)))

.子程序 utf8到gbk, 文本型
.参数 字节集, 字节集

返回 (工具_编码转换 (到文本 (字节集), 65001, 936))

.DLL命令 _生成, 整数型, , "WideCharToMultiByte", , WideCharToMultiByte
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 _字符编码, 整数型, , "MultiByteToWideChar", , MultiByteToWideChar
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cbMultiByte, 整数型

.DLL命令 _编码转换, 整数型, , "WideCharToMultiByte", , WideCharToMultiByte
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 整数型
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 _取目标编码长度, 整数型, , "MultiByteToWideChar", , MultiByteToWideChar
    .参数 CodePage, 整数型, , CP_ACP CP_UTF8
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 整数型
    .参数 cbMultiByte, 整数型

如果要编辑框支持unicode 请用黑月+黑月界面类的unicode版

否则易语言不支持Unicode的控件

如果只是单纯的转unicode (->UTF-8)，看上面的代码

Answer 2

直接找个编码转换模块就行了
编辑框2.内容 ＝ 到文本 (Ansi到Unicode (编辑框1.内容))
易语言默认都是Ansi编码，其他编辑都要进行转换

追问

 其实不用这么麻烦！分我给上面的了

#编码_UTF_16就是UniCode，#编码_GBK就是ANSI

1. 所以编码转换 (到字节集 (编辑框1.内容), #编码_GBK, #编码_UTF_16, )