[e]
.版本 2
.支持库 iext
.程序集 窗口程序集2
.程序集变量 id, 整数型
.程序集变量 找到位置, 整数型
.程序集变量 找到位置1, 整数型
.程序集变量 找到位置2, 整数型
.程序集变量 找到位置3, 整数型
.程序集变量 找到位置4, 整数型
.程序集变量 找到位置5, 整数型
.程序集变量 找到位置6, 整数型
.程序集变量 找到位置7, 整数型
.程序集变量 找到位置8, 整数型
.程序集变量 找到位置9, 整数型
.程序集变量 文本长度, 整数型
.程序集变量 文本数量, 整数型
.程序集变量 寻找文本数据, 文本型
.程序集变量 返回文本, 文本型
.程序集变量 订单号, 文本型
.程序集变量 航班信息, 文本型
.程序集变量 类型, 文本型
.程序集变量 航段, 文本型
.程序集变量 总价, 文本型
.程序集变量 起飞时间, 文本型
.程序集变量 创建时间, 文本型
.程序集变量 联系人, 文本型
.程序集变量 订单状态, 文本型
.程序集变量 分割后数据, 文本型, , "9"
.程序集变量 保留后文本, 文本型
.子程序 _状态条1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _功能窗口_创建完毕
状态条.置文本 (1, 现在时段 () + “好,亲爱的” + 用户姓名 () + “!欢迎使用系统!”)
.子程序 _按钮1_被单击
超级列表框1.全部删除 ()
得到数据 ()
.子程序 得到数据
.参数 POST地址, 文本型
.参数 计次, 整数型
.参数 表项, 整数型
.参数 POST数据, 文本型
POST地址 = “http://jipiao.trip.taobao.com/agent/ordinary_order_list.htm”
POST数据 = “startCreateDate=2012-03-06&endCreateDate=2012-03-07&vos=&depAirportCode=&arrAirportCode=&id=&passengerName=&isNeed=A&bookway=&telephone=&action=order_action&orderCategory=o&event_submit_do_search_orders=anything&event_submit_do_search_orders=%3CSPAN%3E%B2%E9%D1%AF%3C%2FSPAN%3E&pageSize=10¤tPage=1”
返回文本 = 到文本 (彗星HTTP读文件 (POST地址, “POST”, , , POST数据))
寻找文本数据 = “<td class=” + #引号 + “</td>”
文本长度 = 取文本长度 (寻找文本数据)
找到位置 = 寻找文本 (返回文本, 寻找文本数据, 0, 假)
文本数量 = 0
.判断循环首 (找到位置 ≠ -1)
文本数量 = 文本数量 + 1
找到位置 = 寻找文本 (返回文本, 寻找文本数据, 找到位置 + 文本长度, 假)
.判断循环尾 ()
.计次循环首 (文本数量, 计次)
表项 = 超级列表框1.插入表项 (, , , , , )
' id
超级列表框1.置标题 (表项, 0, 到文本 (计次))
' 订单号
文本数量 = 取文本长度 (“gl-th1”)
找到位置1 = 寻找文本 (返回文本, “</td>”, 找到位置1 + 8, 假)
保留后文本 = 取文本中间 (返回文本, 找到位置1 + 8, 100)
分割后数据 = 分割文本 (保留后文本, “<”, 100)
订单号 = 分割后数据 [1]
超级列表框1.置标题 (表项, 1, 订单号)
.计次循环尾 ()
.子程序 _标签3_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
[/e]
|