易语言汉字转utf8编码

Question

好的话我会加分的。

Answer 1

.版本 2
.支持库 spec

.子程序 彗星URL编码_UTF8, 文本型, 公开, 返回已编码的URL
.参数 Bin_URL, 文本型, 可空, GBK版
.参数 字节集, 字节集, 可空, unicode版
.局部变量 局部_数据, 字节集
.局部变量 局部_数据1, 字节集
.局部变量 i, 整数型
.局部变量 ii, 文本型
.局部变量 临时, 字节集

.如果 (Bin_URL ≠ “”)
    局部_数据 ＝ 到字节集 (Ansi转Utf8 (Bin_URL))
.否则
    彗星URL解码_UTF8 (到文本 (字节集), 临时)
    局部_数据 ＝ Unicode转Utf8 (临时) ＋ { 0 }
    调试输出 (到文本 (局部_数据), “uni”)
.如果结束

局部_数据 ＝ 取字节集左边 (局部_数据, 取字节集长度 (局部_数据) － 1)
.计次循环首 (取字节集长度 (局部_数据), i)
    .如果 (到整数 (局部_数据 [i]) ≥ 48 且 到整数 (局部_数据 [i]) ≤ 57 或 到整数 (局部_数据 [i]) ≥ 65 且 到整数 (局部_数据 [i]) ≤ 90 或 到整数 (局部_数据 [i]) ≥ 65 且 到整数 (局部_数据 [i]) ≤ 90 或 到整数 (局部_数据 [i]) ≥ 97 且 到整数 (局部_数据 [i]) ≤ 122)
        ii ＝ ii ＋ 字符 (局部_数据 [i])
    .否则
        ii ＝ ii ＋ “%” ＋ 取十六进制文本 (局部_数据 [i])
    .如果结束

.计次循环尾 ()
返回 (ii)

.子程序 Ansi转Utf8, 字节集
.参数 ansi文本, 文本型

返回 (Unicode转Utf8 (Ansi转Unicode (ansi文本)))

.子程序 Ansi转Unicode, 字节集
.参数 Ansi文本, 文本型
.局部变量 len, 整数型, , , 单位: Word
.局部变量 Unicode字节集, 字节集

len ＝ MultiByteToWideChar (936, 0, Ansi文本, -1, {  }, 0)
Unicode字节集 ＝ 取空白字节集 (len × 2)
MultiByteToWideChar (936, 0, Ansi文本, -1, Unicode字节集, len × 2)
返回 (Unicode字节集)

.子程序 Unicode转Utf8, 字节集
.参数 Unicode字节集, 字节集
.局部变量 utf8_len, 整数型
.局部变量 unicode_len, , , , word
.局部变量 uft8, 字节集

unicode_len ＝ 取字节集长度 (Unicode字节集) ÷ 2
utf8_len ＝ WideCharToMultiByte (65001, 0, Unicode字节集, unicode_len, uft8, 0, 0, 0)
uft8 ＝ 取空白字节集 (utf8_len)
' 输出调试文本 (utf8_len)
WideCharToMultiByte (65001, 0, Unicode字节集, -1, uft8, utf8_len, 0, 0)
返回 (uft8)

 

汉字是GBK，你在彗星URL编码的参数一填你想要转换的汉字，返回的就是UTF8

Answer 2

当热可以,不过回答问题 是不允许留下qq的啊,,我要如何给你啊