无法继续进行下去求帮助

ztalyx · 发表于 2014-8-24 17:47:31

窗口程序集名	保留	保留	备注
窗口程序集1

子程序名	返回值类型	公开	备注
_按钮_查询_被单击

变量名	类型	静态	数组	备注
返回文本	文本型
正则1	正则表达式类
计次1	整数型
原始数据1	文本型
原始数据2	文本型
处理后的数据1	文本型
处理后的数据2	文本型
过度	文本型
快递公司	文本型

编辑框2.内容＝ “”

如果 (组合框1.现行选中项＝ 0)
快递公司＝ “zhaijisong”

如果 (组合框1.现行选中项＝ 1)
快递公司＝ “shunfeng”

如果 (组合框1.现行选中项＝ 2)
快递公司＝ “tiantian”

如果 (组合框1.现行选中项＝ 3)
快递公司＝ “huitongkuaidi”

如果 (组合框1.现行选中项＝ 4)
快递公司＝ “yunda”

如果 (组合框1.现行选中项＝ 5)
快递公司＝ “ems”

如果 (组合框1.现行选中项＝ 6)
快递公司＝ “yuantong”

如果 (组合框1.现行选中项＝ 7)
快递公司＝ “shentong”

如果 (组合框1.现行选中项＝ 8)
快递公司＝ “zhongtong”

返回文本＝到文本 (网页_访问 (“http://www.kuaidi100.com/query?type=” ＋快递公司＋ “&postid=” ＋编辑框1.内容＋ “&id=1&valicode=&temp=0.3129804003971541 ”, ))

如果 (寻找文本 (返回文本, “参数”, , 假) ≠ 1)
正则1.创建 ( #引号＋ “time” ＋ “.*?” ＋ #引号＋ “ft”, 返回文本, 假, 真, 真, 假)

计次循环首 (正则1.取匹配数量 (), 计次1)
原始数据1 ＝正则1.取匹配文本 (计次1, )
处理后的数据1 ＝文本_取出中间文本 (原始数据1, #引号, #引号, 8, )
处理后的数据2 ＝文本_取出中间文本 (原始数据1, #引号, #引号, 53, )
过度＝处理后的数据1 ＋处理后的数据2 ＋ #换行符
编辑框2.内容＝过度＋编辑框2.内容

计次循环尾 ()

编辑框2.内容＝文本区分_只取汉字 (返回文本, 真)
信息框 (“完成”, 0, )

.版本 2<br />
<br />
.程序集 窗口程序集1<br />
<br />
.子程序 _按钮_查询_被单击<br />
.局部变量 返回文本, 文本型<br />
.局部变量 正则1, 正则表达式类<br />
.局部变量 计次1, 整数型<br />
.局部变量 原始数据1, 文本型<br />
.局部变量 原始数据2, 文本型<br />
.局部变量 处理后的数据1, 文本型<br />
.局部变量 处理后的数据2, 文本型<br />
.局部变量 过度, 文本型<br />
.局部变量 快递公司, 文本型<br />
<br />
编辑框2.内容 ＝ “”<br />
.如果 (组合框1.现行选中项 ＝ 0)<br />
快递公司 ＝ “zhaijisong”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 1)<br />
快递公司 ＝ “shunfeng”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 2)<br />
快递公司 ＝ “tiantian”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 3)<br />
快递公司 ＝ “huitongkuaidi”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 4)<br />
快递公司 ＝ “yunda”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 5)<br />
快递公司 ＝ “ems”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 6)<br />
快递公司 ＝ “yuantong”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 7)<br />
快递公司 ＝ “shentong”<br />
.否则<br />
.如果 (组合框1.现行选中项 ＝ 8)<br />
快递公司 ＝ “zhongtong”<br />
.否则<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
<br />
<br />
.如果结束<br />
<br />
.如果结束<br />
返回文本 ＝ 到文本 (网页_访问 (“http://www.kuaidi100.com/query?type=” ＋ 快递公司 ＋ “&postid=” ＋ 编辑框1.内容 ＋ “&id=1&valicode=&temp=0.3129804003971541 ”, ))<br />
.如果 (寻找文本 (返回文本, “参数”, , 假) ≠ 1)<br />
正则1.创建 (#引号 ＋ “time” ＋ “.*?” ＋ #引号 ＋ “ft”, 返回文本, 假, 真, 真, 假)<br />
.计次循环首 (正则1.取匹配数量 (), 计次1)<br />
原始数据1 ＝ 正则1.取匹配文本 (计次1, )<br />
处理后的数据1 ＝ 文本_取出中间文本 (原始数据1, #引号, #引号, 8, )<br />
处理后的数据2 ＝ 文本_取出中间文本 (原始数据1, #引号, #引号, 53, )<br />
过度 ＝ 处理后的数据1 ＋ 处理后的数据2 ＋ #换行符<br />
编辑框2.内容 ＝ 过度 ＋ 编辑框2.内容<br />
.计次循环尾 ()<br />
.否则<br />
编辑框2.内容 ＝ 文本区分_只取汉字 (返回文本, 真)<br />
.如果结束<br />
信息框 (“完成”, 0, )

哪里出错了