网页_Cookie合并更新() 和 内部_Cookie取名() 改进建议

小小n

  

子程序名	返回值类型	公开	备 注
网页_Cookie合并更新	文本型		返回更新后的Cookie
参数名	类 型	参考	可空	数组	备 注
旧Cookie	文本型				a=1; b=2
新Cookie	文本型				a=1; b=2

变量名	类 型	静态	数组	备 注
局_新Cookie组	文本型		0
局_合并Cookie组	文本型		0
局_计次	整数型
初步合并	文本型
已存在名称	文本型		0
C	整数型
倒序索引	整数型
i	整数型
是否存在	逻辑型
名称	文本型
值	文本型

' 初步合并 顺序：旧→新
' 能处理单次http请求返回多个同名Cookie的情况,例如同时存在 Set-Cookie: a=1;  和 Set-Cookie: a=2; 这种情况以后者为新
初步合并 ＝ 旧Cookie ＋ 选择 (旧Cookie ≠ “” 且 新Cookie ≠ “”, “; ”, “”) ＋ 新Cookie
输出调试文本 (“初步合并: ” ＋ 初步合并)
局_合并Cookie组 ＝ 分割文本 (初步合并, “;”, )
C ＝ 取数组成员数 (局_合并Cookie组)
计次循环首 (C, 局_计次)
' 更新 倒序：新→旧，名称已记录的Cookie一定是更加新的Cookie
倒序索引 ＝ C ＋ 1 － 局_计次
名称 ＝ 内部_Cookie取名 (删首尾空 (局_合并Cookie组 [倒序索引]))
值 ＝ 内部_Cookie取值 (删首尾空 (局_合并Cookie组 [倒序索引]))
如果 (名称 ≠ “”)  ' 过滤
是否存在 ＝ 假
计次循环首 (取数组成员数 (已存在名称), i)
如果真 (已存在名称 [i] ＝ 名称)
是否存在 ＝ 真
跳出循环 ()

计次循环尾 ()
如果 (是否存在 ＝ 假)
如果 (值 ≠ “” 且 到小写 (值) ≠ “deleted”)  ' 过滤
输出调试文本 (“有效[” ＋ 名称 ＋ “=” ＋ 值 ＋ “]”)
加入成员 (局_新Cookie组, 局_合并Cookie组 [倒序索引])
输出调试文本 (“名称[” ＋ 名称 ＋ “]过滤无效值”)
加入成员 (已存在名称, 名称)
输出调试文本 (“名称[” ＋ 名称 ＋ “]已存在”)

输出调试文本 (“过滤无效名称[” ＋ 局_合并Cookie组 [倒序索引] ＋ “]”)

计次循环尾 ()
旧Cookie ＝ “”
计次循环首 (取数组成员数 (局_新Cookie组), i)
如果真 (旧Cookie ≠ “”)
旧Cookie ＝ “;” ＋ 旧Cookie
旧Cookie ＝ 局_新Cookie组 [i] ＋ 旧Cookie
计次循环尾 ()
返回 (旧Cookie)

.版本 2<br /> <br /> .子程序 网页_Cookie合并更新, 文本型, 公开, 返回更新后的Cookie<br /> .参数 旧Cookie, 文本型, 参考, a=1; b=2<br /> .参数 新Cookie, 文本型, , a=1; b=2<br /> .局部变量 局_新Cookie组, 文本型, , "0"<br /> .局部变量 局_合并Cookie组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 初步合并, 文本型<br /> .局部变量 已存在名称, 文本型, , "0"<br /> .局部变量 C, 整数型<br /> .局部变量 倒序索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 是否存在, 逻辑型<br /> .局部变量 名称, 文本型<br /> .局部变量 值, 文本型<br /> <br /> ' 初步合并 顺序：旧→新<br /> ' 能处理单次http请求返回多个同名Cookie的情况,例如同时存在 Set-Cookie: a=1;  和 Set-Cookie: a=2; 这种情况以后者为新<br /> 初步合并 ＝ 旧Cookie ＋ 选择 (旧Cookie ≠ “” 且 新Cookie ≠ “”, “; ”, “”) ＋ 新Cookie<br /> 输出调试文本 (“初步合并: ” ＋ 初步合并)<br /> 局_合并Cookie组 ＝ 分割文本 (初步合并, “;”, )<br /> C ＝ 取数组成员数 (局_合并Cookie组)<br /> .计次循环首 (C, 局_计次)<br />     ' 更新 倒序：新→旧，名称已记录的Cookie一定是更加新的Cookie<br />     倒序索引 ＝ C ＋ 1 － 局_计次<br />     名称 ＝ 内部_Cookie取名 (删首尾空 (局_合并Cookie组 [倒序索引]))<br />     值 ＝ 内部_Cookie取值 (删首尾空 (局_合并Cookie组 [倒序索引]))<br />     .如果 (名称 ≠ “”)  ' 过滤<br /> <br />         是否存在 ＝ 假<br />         .计次循环首 (取数组成员数 (已存在名称), i)<br />             .如果真 (已存在名称 <i> ＝ 名称)<br />                 是否存在 ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果 (是否存在 ＝ 假)<br />             .如果 (值 ≠ “” 且 到小写 (值) ≠ “deleted”)  ' 过滤<br />                 输出调试文本 (“有效[” ＋ 名称 ＋ “=” ＋ 值 ＋ “]”)<br />                 加入成员 (局_新Cookie组, 局_合并Cookie组 [倒序索引])<br />             .否则<br />                 输出调试文本 (“名称[” ＋ 名称 ＋ “]过滤无效值”)<br />             .如果结束<br />             加入成员 (已存在名称, 名称)<br />         .否则<br />             输出调试文本 (“名称[” ＋ 名称 ＋ “]已存在”)<br />         .如果结束<br /> <br />     .否则<br />         输出调试文本 (“过滤无效名称[” ＋ 局_合并Cookie组 [倒序索引] ＋ “]”)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 旧Cookie ＝ “”<br /> .计次循环首 (取数组成员数 (局_新Cookie组), i)<br />     .如果真 (旧Cookie ≠ “”)<br />         旧Cookie ＝ “;” ＋ 旧Cookie<br />     .如果真结束<br />     旧Cookie ＝ 局_新Cookie组 <i> ＋ 旧Cookie<br /> .计次循环尾 ()<br /> 返回 (旧Cookie)

  

子程序名	返回值类型	公开	备 注
内部_Cookie取名	文本型
参数名	类 型	参考	可空	数组	备 注
Cookie	文本型

变量名	类 型	静态	数组	备 注
位置	整数型
结果	文本型

位置 ＝ 寻找文本 (Cookie, “=”, , 假)
判断 (位置 ≠ -1)
' 输出调试文本 (Cookie, 位置)
结果 ＝ 取文本左边 (Cookie, 位置 － 1)
结果 ＝ “”  ' 无效名称应返回空
返回 (删首尾空 (结果))

.版本 2<br /> <br /> .子程序 内部_Cookie取名, 文本型<br /> .参数 Cookie, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 位置 ＝ 寻找文本 (Cookie, “=”, , 假)<br /> .判断开始 (位置 ≠ -1)<br />     ' 输出调试文本 (Cookie, 位置)<br />     结果 ＝ 取文本左边 (Cookie, 位置 － 1)<br /> .默认<br />     结果 ＝ “”  ' 无效名称应返回空<br /> .判断结束<br /> 返回 (删首尾空 (结果))

青帝

精易最近的版本 网页_取cookie 一直都有问题，半年多了，一直没解决。