精易模块6.5 网页_Cookie合并更新 bug

cfgrpg

1. .版本 2
   
2. 
   
3. .子程序 网页_Cookie合并更新, 文本型, 公开, 返回更新后的Cookie
   
4. .参数 旧Cookie, 文本型, 参考
   
5. .参数 新Cookie, 文本型
   
6. .局部变量 局_旧Cookie组, 文本型, , "0"
   
7. .局部变量 局_新Cookie组, 文本型, , "0"
   
8. .局部变量 局_计次, 整数型
   
9. .局部变量 局_合并cookie, 文本型
   
10. 
    
11. ' 初步格式化
    
12. 旧Cookie ＝ 删首尾空 (旧Cookie)
    
13. 新Cookie ＝ 删首尾空 (新Cookie)
    
14. ' 开始更新Cookie
    
15. 局_旧Cookie组 ＝ 分割文本 (旧Cookie, “;”, )
    
16. 局_新Cookie组 ＝ 分割文本 (新Cookie, “;”, )
    
17. .计次循环首 (取数组成员数 (局_旧Cookie组), 局_计次)
    
18.     .如果真 (内部_数组成员是否存在1 (局_新Cookie组, 内部_Cookie取名 (局_旧Cookie组 [局_计次])) ＝ 假)
    
19.         加入成员 (局_新Cookie组, 局_旧Cookie组 [局_计次])
    
20.     .如果真结束
    
21. 
    
22. .计次循环尾 ()
    
23. ' 去除无效的Cookie
    
24. 局_合并cookie ＝ “”
    
25. .计次循环首 (取数组成员数 (局_新Cookie组), 局_计次)
    
26.     .如果真 (取文本右边 (局_新Cookie组 [局_计次], 8) ≠ “=deleted”)
    
27.         局_合并cookie ＝ 局_合并cookie ＋ 局_新Cookie组 [局_计次] ＋ “;”
    
28.     .如果真结束
    
29. 
    
30. .计次循环尾 ()
    
31. 局_合并cookie ＝ 取文本左边 (局_合并cookie, 取文本长度 (局_合并cookie) － 2)
    
32. ' 对重复的Cookie进行合并
    
33. 局_合并cookie ＝ 文本_去重复文本 (局_合并cookie, “;”)
    
34. 旧Cookie ＝ 局_合并cookie
    
35. 返回 (局_合并cookie)
    

复制代码

我的天，这么重要的函数居然出错。基本导致所有的网页函数不能正常使用！
局_合并cookie ＝ 局_合并cookie ＋ 局_新Cookie组 [局_计次] ＋ “;”        分号少了一个空格，下面的 局_合并cookie ＝ 取文本左边 (局_合并cookie, 取文本长度 (局_合并cookie) － 2)回溯2个字符，导致这个函数每调用一次，cookies的最后一个项的值就会少一位！

zhangge

这问题害死我了

newok1

怪不得用最新版本模块网页访问返回空的  用旧版本毫无问题

项目部002

此问题已记录，下个版本发布前修复此问题，感谢反馈

孤胆飞鹰

shituo 发表于 2018-7-3 23:27
.版本 2

.子程序 COOKIE合并更新_, 文本型, , 返回更新后的COOKIE

你这个没有取文本右边_极速 寻找文本_极速 这些子程序。。。

shituo

.版本 2

.子程序 COOKIE合并更新_, 文本型, , 返回更新后的COOKIE
.参数 原COOKIE, 文本型, 参考
.参数 本次COOKIE, 文本型
.局部变量 COOKIE分组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 COOKIE变量, 文本型
.局部变量 位置, 整数型

原COOKIE ＝ 删首尾空 (原COOKIE)
本次COOKIE ＝ 删首尾空 (本次COOKIE)
.如果真 (取文本右边_极速 (原COOKIE, 1) ≠ “;” 且 原COOKIE ≠ “”)
    原COOKIE ＝ 原COOKIE ＋ “;”
.如果真结束

.如果真 (取文本右边_极速 (本次COOKIE, 1) ≠ “;” 且 本次COOKIE ≠ “”)
    本次COOKIE ＝ 本次COOKIE ＋ “;”
.如果真结束
COOKIE分组 ＝ 分割文本 (本次COOKIE, “;”, )
.计次循环首 (取数组成员数 (COOKIE分组), i)
    .如果真 (文本_是否存在 (COOKIE分组 , “=”))
        COOKIE变量 ＝ 取文本左边 (COOKIE分组 , 寻找文本_极速 (COOKIE分组 , “=”) － 1)
        .如果 (文本_是否存在 (原COOKIE, COOKIE变量))
            原COOKIE ＝ 子文本替换 (原COOKIE, 取文本中间2 (原COOKIE, COOKIE变量, “;”), COOKIE分组 , , , 假)
        .否则
            原COOKIE ＝ 原COOKIE ＋ COOKIE分组 ＋ “;”
        .如果结束

    .如果真结束

.计次循环尾 ()
COOKIE分组 ＝ 分割文本 (原COOKIE, “;”, )
原COOKIE ＝ “”
.计次循环首 (取数组成员数 (COOKIE分组), i)
    .如果真 (取文本右边 (COOKIE分组 , 1) ≠ “=” 且 取文本右边 (COOKIE分组 , 8) ≠ “=deleted”)
        原COOKIE ＝ 原COOKIE ＋ 删首尾空 (COOKIE分组 ) ＋ “; ”
    .如果真结束

.计次循环尾 ()
原COOKIE ＝ 删首尾空 (原COOKIE)
返回 (原COOKIE)


用我这个吧

1. .版本 2
   
2. 
   
3. .子程序 COOKIE合并更新_, 文本型, , 返回更新后的COOKIE
   
4. .参数 原COOKIE, 文本型, 参考
   
5. .参数 本次COOKIE, 文本型
   
6. .局部变量 COOKIE分组, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. .局部变量 COOKIE变量, 文本型
   
9. .局部变量 位置, 整数型
   
10. 
    
11. 原COOKIE ＝ 删首尾空 (原COOKIE)
    
12. 本次COOKIE ＝ 删首尾空 (本次COOKIE)
    
13. .如果真 (取文本右边_极速 (原COOKIE, 1) ≠ “;” 且 原COOKIE ≠ “”)
    
14.     原COOKIE ＝ 原COOKIE ＋ “;”
    
15. .如果真结束
    
16. 
    
17. .如果真 (取文本右边_极速 (本次COOKIE, 1) ≠ “;” 且 本次COOKIE ≠ “”)
    
18.     本次COOKIE ＝ 本次COOKIE ＋ “;”
    
19. .如果真结束
    
20. COOKIE分组 ＝ 分割文本 (本次COOKIE, “;”, )
    
21. .计次循环首 (取数组成员数 (COOKIE分组), i)
    
22.     .如果真 (文本_是否存在 (COOKIE分组 [i], “=”))
    
23.         COOKIE变量 ＝ 取文本左边 (COOKIE分组 [i], 寻找文本_极速 (COOKIE分组 [i], “=”) － 1)
    
24.         .如果 (文本_是否存在 (原COOKIE, COOKIE变量))
    
25.             原COOKIE ＝ 子文本替换 (原COOKIE, 取文本中间2 (原COOKIE, COOKIE变量, “;”), COOKIE分组 [i], , , 假)
    
26.         .否则
    
27.             原COOKIE ＝ 原COOKIE ＋ COOKIE分组 [i] ＋ “;”
    
28.         .如果结束
    
29. 
    
30.     .如果真结束
    
31. 
    
32. .计次循环尾 ()
    
33. COOKIE分组 ＝ 分割文本 (原COOKIE, “;”, )
    
34. 原COOKIE ＝ “”
    
35. .计次循环首 (取数组成员数 (COOKIE分组), i)
    
36.     .如果真 (取文本右边 (COOKIE分组 [i], 1) ≠ “=” 且 取文本右边 (COOKIE分组 [i], 8) ≠ “=deleted”)
    
37.         原COOKIE ＝ 原COOKIE ＋ 删首尾空 (COOKIE分组 [i]) ＋ “; ”
    
38.     .如果真结束
    
39. 
    
40. .计次循环尾 ()
    
41. 原COOKIE ＝ 删首尾空 (原COOKIE)
    
42. 返回 (原COOKIE)
    

复制代码

freexx

想要更新到完美不知要到何时

不苦小和尚

谢谢反馈，希望早点出6.5.1