解析table标签-子程序，不使用DOM操作

lzq91514

直接解析网页源码，返回值每个TD值用逗号分隔，每行用|分隔，有需要的请自行修改，对了默认处理了空格和换行

  

子程序名	返回值类型	公开	备 注
解析table	文本型		源码,|分行 ,分列
参数名	类 型	参考	可空	数组	备 注
table标签源码	文本型

变量名	类 型	静态	数组	备 注
除去空格和换行	文本型
局行_正则	正则表达式类			此类为精易模块里面的正则类，精易模块下载地址：www.3600gz.cn/thread-1177-1-1.html
局_匹配数	整数型
局行_计次	整数型
局列_计次	整数型
总行数	整数型
局列_正则	正则表达式类
列数	整数型
返回值	文本型
列返回值	文本型

除去空格和换行 ＝ 文本_替换 (table标签源码, , , , “ ”, “”, #换行符, “”, 字符 ( #Tab键 ), “”, 字符 ( #回车键 ), “”)
局行_正则.创建 (“[tr]”, 除去空格和换行, 假, 假, 真, 真)
总行数 ＝ 局行_正则.取匹配数量 ()
如果真 (总行数 ＞ 0)
返回值 ＝ “”
计次循环首 (总行数, 局行_计次)
局列_正则.创建 (“[td]”, 局行_正则.取匹配文本 (局行_计次), 假, 假, 真, 真)  ' 用第一行的td数做总列数
列数 ＝ 局列_正则.取匹配数量 ()
列返回值 ＝ “”
计次循环首 (列数, 局列_计次)
' 调试输出 (局列_正则.取匹配文本 (局列_计次))
如果 (列返回值 ＝ “”)
列返回值 ＝ 网页_取文本_reg (局列_正则.取匹配文本 (局列_计次))
列返回值 ＝ 列返回值 ＋ “,” ＋ 网页_取文本_reg (局列_正则.取匹配文本 (局列_计次))

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

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

.版本 2<br /> <br /> .子程序 解析table, 文本型, , 源码,|分行 ,分列<br /> .参数 table标签源码, 文本型<br /> .局部变量 除去空格和换行, 文本型<br /> .局部变量 局行_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：<a href="http://www.3600gz.cn/thread-1177-1-1.html" target="_blank">www.3600gz.cn/thread-1177-1-1.html</a><br /> .局部变量 局_匹配数, 整数型<br /> .局部变量 局行_计次, 整数型<br /> .局部变量 局列_计次, 整数型<br /> .局部变量 总行数, 整数型<br /> .局部变量 局列_正则, 正则表达式类<br /> .局部变量 列数, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 列返回值, 文本型<br /> <br /> 除去空格和换行 ＝ 文本_替换 (table标签源码, , , , “ ”, “”, #换行符, “”, 字符 (#Tab键), “”, 字符 (#回车键), “”)<br /> 局行_正则.创建 (“[tr]”, 除去空格和换行, 假, 假, 真, 真)<br /> 总行数 ＝ 局行_正则.取匹配数量 ()<br /> .如果真 (总行数 ＞ 0)<br />     返回值 ＝ “”<br />     .计次循环首 (总行数, 局行_计次)<br />         局列_正则.创建 (“[td]”, 局行_正则.取匹配文本 (局行_计次), 假, 假, 真, 真)  ' 用第一行的td数做总列数<br />         列数 ＝ 局列_正则.取匹配数量 ()<br />         列返回值 ＝ “”<br />         .计次循环首 (列数, 局列_计次)<br />             ' 调试输出 (局列_正则.取匹配文本 (局列_计次))<br />             .如果 (列返回值 ＝ “”)<br />                 列返回值 ＝ 网页_取文本_reg (局列_正则.取匹配文本 (局列_计次))<br />             .否则<br />                 列返回值 ＝ 列返回值 ＋ “,” ＋ 网页_取文本_reg (局列_正则.取匹配文本 (局列_计次))<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         .如果 (返回值 ＝ “”)<br />             返回值 ＝ 列返回值<br />         .否则<br />             返回值 ＝ 返回值 ＋ “|” ＋ 列返回值<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (返回值)

[tr][td]

附件： table解析可直接放入源码.rar (557.74 KB, 下载次数: 62)

2017-2-7 15:20 上传

点击文件名下载附件

WintersN

谢谢分享谢谢分享

小堆

就是不知道效率怎么样

useryg188

用处是大大的有

358379357

谢谢分享啊

qiuyingjia

来看看，支持

网络注册会员

顶一下我顶

夏木Frank

666，支持下，谢谢分享！

2446789312

不知道是干嘛用的

zzh233

下载看看 干嘛用的