网页_取单条Cookie 改进建议

q292021720

精易模块源码:

  

子程序名	返回值类型	公开	备 注
网页_取单条Cookie	文本型		从左往右获取
参数名	类 型	参考	可空	数组	备 注
Cookie	文本型
名称	文本型
不附带名称	逻辑型

变量名	类 型	静态	数组	备 注
t	文本型

Cookie ＝ 删首尾空 (Cookie)
如果真 (取文本右边 (Cookie, 1) ≠ “;”)
Cookie ＝ Cookie ＋ “;”
t ＝ 取单条Cookie (Cookie, 名称)
判断 (不附带名称 或 t ＝ “”)
返回 (t)
返回 (名称 ＋ “=” ＋ t)

子程序名	返回值类型	公开	备 注
取单条Cookie	文本型
参数名	类 型	参考	可空	数组	备 注
原Cookies	文本型
单条Cookie名称	文本型

变量名	类 型	静态	数组	备 注
Cookies	文本型		0
i	整数型
Name	文本型

Cookies ＝ 分割文本 (原Cookies, “;”, )
计次循环首 (取数组成员数 (Cookies), i)
Name ＝ 文本_取左边 (删首尾空 (Cookies [i]), “=”, , )
如果真 (到小写 (Name) ＝ 到小写 (单条Cookie名称))
如果真 (寻找文本 (删首尾空 (Cookies [i]), “:”, , 假) ≠ -1)
返回 (文本_取出中间文本 (删首尾空 (Cookies [i]), “=”, “:”, ))
返回 (文本_取右边 (删首尾空 (Cookies [i]), “=”))

计次循环尾 ()
返回 (“”)

.版本 2<br /> <br /> .子程序 网页_取单条Cookie, 文本型, 公开, 从左往右获取<br /> .参数 Cookie, 文本型<br /> .参数 名称, 文本型<br /> .参数 不附带名称, 逻辑型, 可空<br /> .局部变量 t, 文本型<br /> <br /> Cookie ＝ 删首尾空 (Cookie)<br /> .如果真 (取文本右边 (Cookie, 1) ≠ “;”)<br />     Cookie ＝ Cookie ＋ “;”<br /> .如果真结束<br /> t ＝ 取单条Cookie (Cookie, 名称)<br /> .判断开始 (不附带名称 或 t ＝ “”)<br />     返回 (t)<br /> .默认<br />     返回 (名称 ＋ “=” ＋ t)<br /> .判断结束<br /> <br /> <br /> .子程序 取单条Cookie, 文本型<br /> .参数 原Cookies, 文本型<br /> .参数 单条Cookie名称, 文本型<br /> .局部变量 Cookies, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 Name, 文本型<br /> <br /> Cookies ＝ 分割文本 (原Cookies, “;”, )<br /> .计次循环首 (取数组成员数 (Cookies), i)<br />     Name ＝ 文本_取左边 (删首尾空 (Cookies <i>), “=”, , )<br />     .如果真 (到小写 (Name) ＝ 到小写 (单条Cookie名称))<br />         .如果真 (寻找文本 (删首尾空 (Cookies <i>), “:”, , 假) ≠ -1)<br />             返回 (文本_取出中间文本 (删首尾空 (Cookies <i>), “=”, “:”, ))<br />         .如果真结束<br />         返回 (文本_取右边 (删首尾空 (Cookies <i>), “=”))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)

优化代码[正则] : ---->>>

  

子程序名	返回值类型	公开	备 注
正则_取单条Cookie	文本型
参数名	类 型	参考	可空	数组	备 注
Cookie	文本型
名称	文本型
不附带名称	逻辑型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
正则	正则表达式
结果	搜索结果
值	文本型

正则.创建 (“(?:^|;+|\s+)*(” ＋ 删首尾空 (名称) ＋ “=(?:([^;]*)))”, 区分大小写)
结果 ＝ 正则.搜索 (Cookie, 1, )
值 ＝ 结果.取子匹配文本 (Cookie, 选择 (不附带名称, 2, 1), )
返回 (删首尾空 (值))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 正则_取单条Cookie, 文本型, 公开<br /> .参数 Cookie, 文本型<br /> .参数 名称, 文本型<br /> .参数 不附带名称, 逻辑型, 可空<br /> .参数 区分大小写, 逻辑型, 可空<br /> .局部变量 正则, 正则表达式<br /> .局部变量 结果, 搜索结果<br /> .局部变量 值, 文本型<br /> <br /> 正则.创建 (“(?:^|;+|\s+)*(” ＋ 删首尾空 (名称) ＋ “=(?:([^;]*)))”, 区分大小写)<br /> 结果 ＝ 正则.搜索 (Cookie, 1, )<br /> 值 ＝ 结果.取子匹配文本 (Cookie, 选择 (不附带名称, 2, 1), )<br /> 返回 (删首尾空 (值))

有何不同?  对比一下:

Cookie文本	取值	网页_取单条Cookie	正则_取单条Cookie
取重复文本(20,"a=1;b=2;c=3;d=4;e=5;")+"z=100;"	z	执行10000次4.649秒	执行10000次0.671秒
a=1;b=2;c=3;d=4;e=5;z=100;	z	取值正常	取值正常
; ;a=1; ; b=2;c=3;d=4;e=5; ; z=100 ; ;	z	取值正常	取值正常
a=1;b=2;c=3;d=4;e=5;z=k=1*100	z	值等于1*100	值等于k=1*100
a=1;b=2;c=3;d=4;e=5;y=100	Y	不支持区分大小写	支持区分大小写

为何要区分大小写?

1. 原文  http://www.cftea.com/c/823.asp
   
2. 
   
3. cookie 名称区分大小写吗？
   
4. 
   
5. ASP 里 cookie 名称是不区分大小写的，比如：
   
6. response.cookies("aa") 与 response.cookies("AA") 是指的同一个 cookie。
   
7. 
   
8. 但 JS(JavaScript) 里则是区分大小写的，比如：
   
9. document.cookie = "aa=1";
   
10. document.cookie = "AA=2";
    
11. 运行这两句之后，就存在两个 cookie。
    
12. 
    
13. 其实，cookie 名称本是区分大小写的，只不过由于 ASP 进行了封装，使得 cookie 名称不区分大小写，我们也可以对 JS 封装，以使 cookie 名称不区分大小写。

复制代码

哦, 对了, 精易模块的原则是不调用核心库以外的其他库,
那么, 正则对象吧

  

子程序名	返回值类型	公开	备 注
正则_取单条Cookie2	文本型
参数名	类 型	参考	可空	数组	备 注
Cookie	文本型
名称	文本型
不附带名称	逻辑型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
正则	对象
搜索	变体型
结果	对象
匹配	对象
值	文本型

正则.创建 (“VBScript.RegExp”, )
正则.写属性 (“IgnoreCase”, 区分大小写)
正则.写属性 (“Pattern”, “(?:^|;+|\s+)*(” ＋ 删首尾空 (名称) ＋ “=(?:([^;]*)))”)
搜索.赋值 (Cookie, )
结果 ＝ 正则.对象型方法 (“Execute”, 搜索)
匹配 ＝ 结果.读对象型属性 (“Item”, 0)
值 ＝ 匹配.读属性 (“Item”, 选择 (不附带名称, 1, 0)).取文本 ()
返回 (删首尾空 (值))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 正则_取单条Cookie2, 文本型, 公开<br /> .参数 Cookie, 文本型<br /> .参数 名称, 文本型<br /> .参数 不附带名称, 逻辑型, 可空<br /> .参数 区分大小写, 逻辑型, 可空<br /> .局部变量 正则, 对象<br /> .局部变量 搜索, 变体型<br /> .局部变量 结果, 对象<br /> .局部变量 匹配, 对象<br /> .局部变量 值, 文本型<br /> <br /> 正则.创建 (“VBScript.RegExp”, )<br /> 正则.写属性 (“IgnoreCase”, 区分大小写)<br /> 正则.写属性 (“Pattern”, “(?:^|;+|\s+)*(” ＋ 删首尾空 (名称) ＋ “=(?:([^;]*)))”)<br /> 搜索.赋值 (Cookie, )<br /> 结果 ＝ 正则.对象型方法 (“Execute”, 搜索)<br /> 匹配 ＝ 结果.读对象型属性 (“Item”, 0)<br /> 值 ＝ 匹配.读属性 (“Item”, 选择 (不附带名称, 1, 0)).取文本 ()<br /> 返回 (删首尾空 (值))

不过 , 这么一改之后.....

Cookie文本	取值	网页_取单条Cookie	正则_取单条Cookie
取重复文本(20,"a=1;b=2;c=3;d=4;e=5;")+"z=100;"	z	执行10000次4.649秒	执行10000次10.905秒
a=1;b=2;c=3;d=4;e=5;z=100;	z	取值正常	取值正常
; ;a=1; ; b=2;c=3;d=4;e=5; ; z=100 ; ;	z	取值正常	取值正常
a=1;b=2;c=3;d=4;e=5;z=k=1*100	z	值等于1*100	值等于k=1*100
a=1;b=2;c=3;d=4;e=5;y=100	Y	不支持区分大小写	支持区分大小写

算了, 就当是一次学习笔记吧...恩




.

love886

每次我遇见此类贴子时，我都会不由自主的盘膝而坐、气沉丹田，红唇白齿间冷爆出一句 厉害

a7435984

我轻轻的来正如我轻轻的走！！

lzgxyz

这样取，有什么优势呢，多谢分享

5600636

我轻轻的来正如我轻轻的走！！

雅蠛蝶~

正则要初始化com库吧

已注销427693

如果只是单纯的网页取单条cookie，不用这么复杂，直接取就行了。