[解析Table]可以解析html中的table以及子标签

lzq91514

.版本 2

.子程序 解析table, 文本型, , 源码,|分行 ,分列
.参数 table标签源码, 文本型
.局部变量 除去空格和换行, 文本型
.局部变量 局行_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：www.3600gz.cn/thread-1177-1-1.html
.局部变量 局_匹配数, 整数型
.局部变量 局行_计次, 整数型
.局部变量 局列_计次, 整数型
.局部变量 总行数, 整数型
.局部变量 局列_正则, 正则表达式类
.局部变量 列数, 整数型
.局部变量 返回值, 文本型
.局部变量 列返回值, 文本型

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

        .计次循环尾 ()
        .如果 (返回值 ＝ “”)
            返回值 ＝ 列返回值
        .否则
            返回值 ＝ 返回值 ＋ “|” ＋ 列返回值
        .如果结束

    .计次循环尾 ()

.如果真结束
返回 (返回值)

lzq91514

还有就是，不能够重复使用啊，销毁都销毁整个程序了

lzq91514

这个是子程序啊，不是你说的创建类的方法

dudugou

太过激动，模块都忘了哈哈

ck66

这个厉害了哦

Aliman

感谢分享，试试好用不

零碎不堪

1aa82e 发表于 2017-1-23 11:56
模块呢？？？

你不说我都给忘了。。。

1aa82e

模块呢？？？