精易论坛

标题: 解析table标签-子程序,不使用DOM操作 [打印本页]

作者: lzq91514    时间: 2017-2-7 15:21
标题: 解析table标签-子程序,不使用DOM操作
本帖最后由 兔子君 于 2017-2-7 15:53 编辑





直接解析网页源码,返回值每个TD值用逗号分隔,每行用|分隔,有需要的请自行修改,对了默认处理了空格和换行
  
子程序名返回值类型公开备 注
解析table文本型 源码,|分行 ,分列
参数名类 型参考可空数组备 注
table标签源码文本型
变量名类 型静态数组备 注
除去空格和换行文本型 
局行_正则正则表达式类此类为精易模块里面的正则类,精易模块下载地址:www.3600gz.cn/thread-1177-1-1.html
局_匹配数整数型 
局行_计次整数型 
局列_计次整数型 
总行数整数型 
局列_正则正则表达式类 
列数整数型 
返回值文本型 
列返回值文本型 
除去空格和换行 = 文本_替换 (table标签源码, , , , “ ”, “”, #换行符, “”, 字符 ( #Tab键 ), “”, 字符 ( #回车键 ), “”)
局行_正则.创建 (“[tr]”, 除去空格和换行, 假, 假, 真, )
总行数 = 局行_正则.取匹配数量 ()
如果真 (总行数 > 0)
返回值 = “”
计次循环首 (总行数, 局行_计次)
局列_正则.创建 (“[td]”, 局行_正则.取匹配文本 (局行_计次), 假, 假, 真, )  ' 用第一行的td数做总列数
列数 = 局列_正则.取匹配数量 ()
列返回值 = “”
计次循环首 (列数, 局列_计次)
' 调试输出 (局列_正则.取匹配文本 (局列_计次))
如果 (列返回值 = “”)
列返回值 = 网页_取文本_reg (局列_正则.取匹配文本 (局列_计次))
列返回值 = 列返回值 + “,”网页_取文本_reg (局列_正则.取匹配文本 (局列_计次))

计次循环尾 ()
如果 (返回值 = “”)
返回值 = 列返回值
返回值 = 返回值 + “|” + 列返回值

计次循环尾 ()
返回 (返回值)

[tr][td]

附件:

作者: zzh233    时间: 2017-2-7 15:35
下载看看 干嘛用的

作者: 2446789312    时间: 2017-2-7 16:53
不知道是干嘛用的
作者: 夏木Frank    时间: 2017-2-7 18:44
提示: 作者被禁止或删除 内容自动屏蔽
作者: 网络注册会员    时间: 2017-2-7 19:31
顶一下我顶
作者: qiuyingjia    时间: 2017-2-8 08:21
来看看,支持
作者: 358379357    时间: 2017-2-8 10:41
谢谢分享啊
作者: useryg188    时间: 2017-2-8 11:06
用处是大大的有
作者: 小堆    时间: 2017-2-10 00:04
就是不知道效率怎么样
作者: WintersN    时间: 2017-12-2 17:40
谢谢分享谢谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4