易语言url编码源码（url编码教程）
本文目录一览：
易语言将编辑框内容转换成url编码，怎么写？
收集自网上的俩子程序命令，复制到易语言代码里，调用 URL编码(编辑框.内容) 这个命令就可以了
.版本 2
.子程序 URL编码, 文本型, ,
.参数 URL, 文本型
.局部变量 Len, 整数型
.局部变量 循环容器, 整数型
.局部变量 Asc, 整数型
.局部变量 目标, 文本型
.局部变量 临时, 文本型
Len ＝ 取文本长度 (URL)
.变量循环首 (1, Len, 1, 循环容器)
Asc ＝ 取代码 (URL, 循环容器)
Asc ＝ 选择 (Asc ＜ 0, 256 ＋ Asc, Asc)
.如果 (Asc ＜ 42 或 Asc ＝ 43 或 Asc ＞ 57 且 Asc ＜ 64 或 Asc ＞ 90 且 Asc ＜ 95 或 Asc ＝ 96 或 Asc ＞ 122)
临时 ＝ 取十六进制文本 (Asc)
目标 ＝ 目标 ＋ 选择 (取文本长度 (临时) ＜ 2, “%0” ＋ 临时, “%” ＋ 临时)
.否则
目标 ＝ 目标 ＋ 字符 (Asc)
.如果结束
.变量循环尾 ()
返回 (目标)
.子程序 URL解码, 文本型, ,
.参数 URL, 文本型
.局部变量 循环容器, 整数型
.局部变量 Len, 整数型
.局部变量 HEX, 文本型
.局部变量 目标, 文本型
.局部变量 H, 整数型
.局部变量 L, 整数型
Len ＝ 取文本长度 (URL)
循环容器 ＝ 1
HEX ＝ “0123456789ABCDEF”
.判断循环首 (循环容器 ≤ Len)
.判断开始 (取文本中间 (URL, 循环容器, 1) ≠ “%”)
目标 ＝ 目标 ＋ 取文本中间 (URL, 循环容器, 1)
.默认
循环容器 ＝ 循环容器 ＋ 1
H ＝ 寻找文本 (HEX, 到大写 (取文本中间 (URL, 循环容器, 1)), , 假) － 1
循环容器 ＝ 循环容器 ＋ 1
L ＝ 寻找文本 (HEX, 到大写 (取文本中间 (URL, 循环容器, 1)), , 假) － 1
目标 ＝ 目标 ＋ 字符 (H × 16 ＋ L)
.判断结束
循环容器 ＝ 循环容器 ＋ 1
.判断循环尾 ()
返回 (目标)
易语言 URL编码问题，一个链接地址只对汉字进行编码，结果却是不行
'不用模块
编辑框1.内容 ＝ 到文本 (编码转换 (到字节集 (“地址”), #编码_GB2312, #编码_UTF_8, ))
'只转中文，如果全英语取出来是空白
求易语言URL编码解码源码
.版本 2
.子程序 URL编码, 文本型, , 作者:陈均匀 QQ:54501020
.参数 URL, 文本型
.局部变量 Len, 整数型
.局部变量 循环容器, 整数型
.局部变量 Asc, 整数型
.局部变量 目标, 文本型
.局部变量 临时, 文本型
Len ＝ 取文本长度 (URL)
.变量循环首 (1, Len, 1, 循环容器)
Asc ＝ 取代码 (URL, 循环容器)
Asc ＝ 选择 (Asc ＜ 0, 256 ＋ Asc, Asc)
.如果 (Asc ＜ 42 或 Asc ＝ 43 或 Asc ＞ 57 且 Asc ＜ 64 或 Asc ＞ 90 且 Asc ＜ 95 或 Asc ＝ 96 或 Asc ＞ 122)
临时 ＝ 取十六进制文本 (Asc)
目标 ＝ 目标 ＋ 选择 (取文本长度 (临时) ＜ 2, “%0” ＋ 临时, “%” ＋ 临时)
.否则
目标 ＝ 目标 ＋ 字符 (Asc)
.如果结束
.变量循环尾 ()
返回 (目标)
.子程序 URL解码, 文本型, , 作者:陈均匀 QQ:54501020
.参数 URL, 文本型
.局部变量 循环容器, 整数型
.局部变量 Len, 整数型
.局部变量 HEX, 文本型
.局部变量 目标, 文本型
.局部变量 H, 整数型
.局部变量 L, 整数型
Len ＝ 取文本长度 (URL)
循环容器 ＝ 1
HEX ＝ “0123456789ABCDEF”
.判断循环首 (循环容器 ≤ Len)
.判断开始 (取文本中间 (URL, 循环容器, 1) ≠ “%”)
目标 ＝ 目标 ＋ 取文本中间 (URL, 循环容器, 1)
.默认
循环容器 ＝ 循环容器 ＋ 1
H ＝ 寻找文本 (HEX, 到大写 (取文本中间 (URL, 循环容器, 1)), , 假) － 1
循环容器 ＝ 循环容器 ＋ 1
L ＝ 寻找文本 (HEX, 到大写 (取文本中间 (URL, 循环容器, 1)), , 假) － 1
目标 ＝ 目标 ＋ 字符 (H × 16 ＋ L)
.判断结束
循环容器 ＝ 循环容器 ＋ 1
.判断循环尾 ()
返回 (目标)
