怎么改成多线程搜索文本

czp666 · 发表于昨天 19:12

数据多，单线程搜索太慢了
.版本 2
.支持库 iext

.程序集窗口程序集_启动窗口
.程序集变量集_首次分割, 文本型, , "0"
.程序集变量集_二次分割, 文本型, , "0"
.程序集变量集_文本, 文本型

.子程序 __启动窗口_创建完毕

线程_启动 (&首次分割文本)  ' 实际文本里面有上万条数据，怎么用多线程搜索的更快。
' 文本内容
' 111=AAA
' 222=AAB
' 333=BBB
' 444=CCC
' 555=ABC
' 666=CCB
' 777=ACB
' =左边相当于ID唯一，右边相等于名可能有某个字一样，需要模糊搜索。

.子程序首次分割文本

集_文本＝ “111=AAA” ＋ #换行符＋ “222=AAB” ＋ #换行符＋ “333=BBB” ＋ #换行符＋ “444=CCC” ＋ #换行符＋ “555=ABC” ＋ #换行符＋ “666=CCB” ＋ #换行符＋ “777=ACB”
集_首次分割＝分割文本 (集_文本, #换行符, )

.子程序 _按钮_cha询_被单击

线程_启动 (&cha询, , )

.子程序 cha询
.局部变量 i, 整数型
.局部变量索引, 整数型

按钮_cha询.禁止＝真
超级列表框_cha询结果.全部删除 ()
超级列表框_cha询结果.禁止重画 ()
.计次循环首 (取数组成员数 (集_首次分割), i)
.如果真 (文本_寻找文本 (集_首次分割 [i], 编辑框_搜索框.内容, ) ≠ -1)
      集_二次分割＝分割文本 (集_首次分割 [i], “=”, )
      索引＝超级列表框_cha询结果.插入表项 (-1, 到文本 (超级列表框_cha询结果.取表项数 () ＋ 1), , , , )
      超级列表框_cha询结果.置标题 (索引, 1, 集_二次分割 [1])
      超级列表框_cha询结果.置标题 (索引, 2, 集_二次分割 [2])
.如果真结束

.计次循环尾 ()
超级列表框_cha询结果.允许重画 ()
按钮_cha询.禁止＝假

花间一壶酒 · 发表于昨天 19:12

子程序名	返回值类型	公开	备注
cha询1

变量名	类型	静态	数组	备注
正则	正则表达式类
i	整数型
索引	整数型

按钮_cha询.禁止＝真
超级列表框_cha询结果.全部删除 ()
超级列表框_cha询结果.禁止重画 ()
正则.创建 (“(.*)=((?=.*” ＋编辑框_搜索框.内容＋ “).*)”, #文本, , 真, 真, )

如果真 (正则.取匹配数量 () ＞ 0)

计次循环首 (正则.取匹配数量 (), i)

索引＝超级列表框_cha询结果.插入表项 (, , , , , )

超级列表框_cha询结果.置标题 (索引, 0, 到文本 (索引＋ 1))

超级列表框_cha询结果.置标题 (索引, 1, 正则.取子匹配文本 (i, 1, ))

超级列表框_cha询结果.置标题 (索引, 2, 正则.取子匹配文本 (i, 2, ))

计次循环尾 ()
超级列表框_cha询结果.允许重画 ()
按钮_cha询.禁止＝假

i支持库列表	支持库注释
iext	扩展界面支持库一

花间一壶酒 · 发表于昨天 19:14

你这直接正则不就好了

		自动登录	找回密码
密码			注册

[已解决] 怎么改成多线程搜索文本

最佳答案