我也来发个取URL参数

凌哥 · 发表于 2018-10-1 16:04:06

https://125.confly.eu.org/thread-14241261-1-1.html

https://125.confly.eu.org/thread-14241714-1-1.html

嘿嘿...

子程序名	返回值类型	公开	备注
L_网页_解析请求参数	逻辑型		如 http://127.0.0.1:81/?b=456&ab=123 解析的是 b=456;ab=123 这些内容
参数名	类型	参考	可空	数组	备注
url	文本型				可以是完整url，也可以是页面地址
Utf8解码	逻辑型				是否对url信息进行utf8解码，默认为假
返回_请求参数	L_网页_请求参数				接收请求参数的数组变量，数据类型：L_网页_请求参数

变量名	类型	静态	数组	备注
局_首次分割	文本型		0
局_问号位置	整数型
局_临时文本	文本型
局_成员数	整数型
局_等号位置	整数型
局_name	文本型
局_value	文本型
局_计次	整数型
i	整数型

清除数组 (返回_请求参数)
局_问号位置＝寻找文本 (url, “?”, , 假)

如果真 (局_问号位置＝ -1)

返回 (假)
局_临时文本＝取文本右边 (url, L_文本_取长度 (url) －局_问号位置)
局_首次分割＝分割文本 (局_临时文本, “&”, )
局_成员数＝ L_数组_取成员数 (局_首次分割)
重定义数组 (返回_请求参数, 假, 局_成员数)

计次循环首 (局_成员数, i)

局_等号位置＝寻找文本 (局_首次分割 [i], “=”, , 假)

如果真 (局_等号位置 ≠ -1)

局_name ＝取文本左边 (局_首次分割 [i], 局_等号位置－ 1)

如果真 (局_name ＝ “”)

到循环尾 ()

局_value ＝取文本右边 (局_首次分割 [i], L_文本_取长度 (局_首次分割 [i]) －局_等号位置)

局_计次＝局_计次＋ 1

如果真 (Utf8解码)

局_name ＝ L_编码_url解码_utf8 (局_name)

局_value ＝ L_编码_url解码_utf8 (局_value)

返回_请求参数 [局_计次].name ＝局_name

返回_请求参数 [局_计次].value ＝局_value

计次循环尾 ()
重定义数组 (返回_请求参数, 真, 局_计次)
返回 (真)

数据类型名	公开	备注
L_网页_请求参数
成员名	类型	传址	数组	备注
name	文本型
value	文本型

.版本 2<br />
<br />
.子程序 L_网页_解析请求参数, 逻辑型, 公开, 如 http://127.0.0.1:81/?b=456&ab=123 解析的是 b=456;ab=123 这些内容<br />
.参数 url, 文本型, , 可以是完整url，也可以是页面地址<br />
.参数 Utf8解码, 逻辑型, 可空, 是否对url信息进行utf8解码，默认为假<br />
.参数 返回_请求参数, L_网页_请求参数, 可空 数组, 接收请求参数的数组变量，数据类型：L_网页_请求参数<br />
.局部变量 局_首次分割, 文本型, , "0"<br />
.局部变量 局_问号位置, 整数型<br />
.局部变量 局_临时文本, 文本型<br />
.局部变量 局_成员数, 整数型<br />
.局部变量 局_等号位置, 整数型<br />
.局部变量 局_name, 文本型<br />
.局部变量 局_value, 文本型<br />
.局部变量 局_计次, 整数型<br />
.局部变量 i, 整数型<br />
<br />
清除数组 (返回_请求参数)<br />
局_问号位置 ＝ 寻找文本 (url, “?”, , 假)<br />
.如果真 (局_问号位置 ＝ -1)<br />
    返回 (假)<br />
.如果真结束<br />
局_临时文本 ＝ 取文本右边 (url, L_文本_取长度 (url) － 局_问号位置)<br />
局_首次分割 ＝ 分割文本 (局_临时文本, “&”, )<br />
局_成员数 ＝ L_数组_取成员数 (局_首次分割)<br />
重定义数组 (返回_请求参数, 假, 局_成员数)<br />
.计次循环首 (局_成员数, i)<br />
    局_等号位置 ＝ 寻找文本 (局_首次分割 <i>, “=”, , 假)<br />
    .如果真 (局_等号位置 ≠ -1)<br />
        局_name ＝ 取文本左边 (局_首次分割 <i>, 局_等号位置 － 1)<br />
        .如果真 (局_name ＝ “”)<br />
            到循环尾 ()<br />
        .如果真结束<br />
        局_value ＝ 取文本右边 (局_首次分割 <i>, L_文本_取长度 (局_首次分割 <i>) － 局_等号位置)<br />
        局_计次 ＝ 局_计次 ＋ 1<br />
        .如果真 (Utf8解码)<br />
            局_name ＝ L_编码_url解码_utf8 (局_name)<br />
            局_value ＝ L_编码_url解码_utf8 (局_value)<br />
        .如果真结束<br />
        返回_请求参数 [局_计次].name ＝ 局_name<br />
        返回_请求参数 [局_计次].value ＝ 局_value<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
重定义数组 (返回_请求参数, 真, 局_计次)<br />
返回 (真)<br />
.版本 2<br />
<br />
.数据类型 L_网页_请求参数, 公开<br />
    .成员 name, 文本型<br />
    .成员 value, 文本型