|
20易积分
本帖最后由 zssm 于 2020-12-24 00:02 编辑
变量 取回的信息 为 文本型
变量 标题 为 文本型
变量 价格 为 文本型
变量 地址 为 文本型
变量 介绍 为 文本型
变量 库存 为 文本型
取回的信息 = "http://m.qpic.cn/ps8b?/V12FxILq1BMX1c/zIwEn8AV1v6fRPvlw10LJWqLI7c9ZZaD1YB**wZ0Sts!/b/dLYAAAAAAAAA&bo=OASgBTgEoAURCT4!&rf=viewer_4|.+.|板凳(6成新)|.+.|100|.+.|5|.+.|寄售商品|.+.||.*.|http://m.qpic.cn/ps8b?/V12FxILq1BMX1c/zIwEn8AV1v6fRPvlw10LJWqLI7c9ZZaD1YB**wZ0Sts!/b/dLYAAAAAAAAA&bo=OASgBTgEoAURCT4!&rf=viewer_4|.+.|板凳(6成新)|.+.|100|.+.|7|.+.|寄售商品|.+.||.*.|http://m.qpic.cn/ps8b?/V12FxILq1BMX1c/zIwEn8AV1v6fRPvlw10LJWqLI7c9ZZaD1YB**wZ0Sts!/b/dLYAAAAAAAAA&bo=OASgBTgEoAURCT4!&rf=viewer_4|.+.|板凳(6成新)|.+.|100|.+.|8|.+.|寄售商品|.+.||.*.|"
变量 待分割文本 为 文本型
变量 子文本数组 为 文本型()
变量 子文本 为 文本型()
变量 a 为 整数型=0
变量 计次 为 整数型=0
待分割文本 = 取回的信息
子文本数组 = 分割文本(待分割文本,"|.*.|")
判断循环首 a < 取数组成员数(子文本数组)
子文本 = 分割文本(子文本数组(a),"|.+.|")
地址 = 子文本(0)
标题 = 子文本(1)
价格 = 子文本(2)
库存 = 子文本(3)
介绍 = 子文本(4)
a = a + 1
判断循环首 计次 < 取数组成员数(子文本数组)
购物列表框1.添加项目(地址,标题,价格,库存,"",介绍,"","","",假)
计次 = 计次 + 1
判断循环尾
判断循环尾
这种方式只能取到一个 不能循环添加! 我理想目的是: 取到的源码分割并且添加到购物列表款中!(不重复)
已搞定!请勿回复!
源码如下:
过程 开始解析图片地址()
取回的信息 = MySQL_查询记录(表名,字段,"")
变量 待分割文本 为 文本型
变量 全文本数组 为 文本型()
变量 取出文本 为 文本型()
变量 计次 为 整数型
待分割文本 = 取回的信息
全文本数组 = 分割文本(待分割文本,"|.*.|")
判断循环首 计次 < 取数组成员数(全文本数组)
取出文本 = 分割文本(全文本数组(计次),"|.+.|")
地址 = 地址 & 取出文本(0) & "=="
标题 = 标题 & 取出文本(1) & "=="
价格 = 价格 & 取出文本(2) & "=="
库存 = 库存 & 取出文本(3) & "=="
介绍 = 介绍 & 取出文本(4) & "=="
计次 = 计次 + 1
判断循环尾
开始匹配文本()
结束 过程
过程 开始匹配文本()
变量 全标题 为 文本型()
变量 全价格 为 文本型()
变量 全库存 为 文本型()
变量 全地址 为 文本型()
变量 全介绍 为 文本型()
变量 计次 为 整数型 = 0
全标题 = 分割文本(标题,"==")
全价格 = 分割文本(价格,"==")
全库存 = 分割文本(库存,"==")
全地址 = 分割文本(地址,"==")
全介绍 = 分割文本(介绍,"==")
判断循环首 计次 < 取数组成员数(全标题)
购物列表框1.添加项目(全地址(计次),全标题(计次),全价格(计次),"库存:"&全库存(计次),"",全介绍(计次),"","","",假)
计次 = 计次 + 1
判断循环尾
结束 过程
事件 购物列表框1.表项被单击(索引 为 整数型)
仿IOS对话框1.弹出对话框2("详情",购物列表框1.取项目标记(索引),"OK",真)
结束 事件
|
-
|