正则表达匹配到的文本 怎么只导入不重复的文本到超级列表框

lineno

.版本 2
.支持库 json
.支持库 iext

    返回文本1 ＝ 编码转换_Utf8转ansi (http.取字节集 ())
    处理事件 ()
    Sleep (到整数 (编辑框5.内容))
    正则.创建 (#文本正则, 返回文本1, 真, 真, 真)


    .计次循环首 (正则.取匹配数量 (), 次数)
        临时表项 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (临时表项, 0, 正则.取子匹配文本 (次数, 1))
        处理事件 ()
    .计次循环尾 ()

    .计次循环首 (正则.取匹配数量 (), 次数)
        返回文本3 ＝ 返回文本3 ＋ 正则.取子匹配文本 (次数, 1) ＋ #换行符
        写到文件 (取运行目录 () ＋ “\成功的公司名.txt”, 到字节集 (返回文本3))
    .计次循环尾 ()

运行发现 重复数据还是继续一直不停的提取

Themoder

例子.zip (1.59 KB, 下载次数: 41)

2013-12-24 16:03 上传

点击文件名下载附件 就这样吧，你应该能看懂。。。

Themoder

.计次循环首 (正则.取匹配数量 (), 次数)
        返回文本3 ＝ 返回文本3 ＋ 正则.取子匹配文本 (次数, 1) ＋ #换行符
        
    .计次循环尾 ()

写到文件 (取运行目录 () ＋ “\成功的公司名.txt”, 到字节集 (返回文本3))

写到文件可以放在循环外面，只要写出一次就ok了，你开始的时候已经将返回文本3累加了

至于你说的文本数据重复问题，应该指的是你的原始数据里面就有重复（我猜的），你用下精易模块的里面的数组去重复。。。。具体你看命令注释就ok了

冰点

你是要将 超级列表框的数据写到本地？ 那直接计次循环超级列表框的项目数就好啦，就可以不要用匹配了

lineno

烂好人 发表于 2013-12-24 15:25
.计次循环首 (正则.取匹配数量 (), 次数)
        返回文本3 ＝ 返回文本3 ＋ 正则.取子匹配文本 (次数, 1 ...

返回文本1 ＝ 编码转换_Utf8转ansi (http.取字节集 ()) 是不停采集 数据返回源码  如果跳出 就不采集数据了

lineno

冰点 发表于 2013-12-24 15:39
你是要将 超级列表框的数据写到本地？ 那直接计次循环超级列表框的项目数就好啦，就可以不要用匹配了

不是 是通过不停采集网站 返回的数据    返回文本1 ＝ 编码转换_Utf8转ansi (http.取字节集 ())   返回源码  怎么过滤重复采集

Themoder

我懂你的意思了，你一直在采集数据，保存也是时时保存？你在加入超级列表框的时候循环判断一次 是否已经存在应该就行了，在你每次加入的时候和已经存在的一一对比一次

lineno

烂好人 发表于 2013-12-24 15:45
我懂你的意思了，你一直在采集数据，保存也是时时保存？你在加入超级列表框的时候循环判断一次 是否已经存 ...

是这样的  但不知道怎么写 才能表达你说的那样意思

冰点

烂好人 说的对，因为你是通过超级列表作为中转的，所以在加入的时候，就判断是否数据重复，重复就不加入到 超级列表框就可以，然后，你就只管保存 超级列表框中不重复的数据啦

冰点

好像又比烂好人慢了，，我的话，例子就没了。 告诉你方法吧 - -，往超级列表框添加数据的时候，用  超级列表框1.查找表项（）  命令先查找一下，找到了就会返回 大于 -1 的 整数，就不添加进去，没找到，就返回-1，这个就添加进去。就是这样了。。 至于及时保存，方法就很多了