文本查找每行关键字并取出

btyu5010

大概数据有1万多条

比如 我要   查找  出现 "张家口市"   的我把这一行的内容保存在新的文本里面
---------------------------------------------------
河北张家口市11111
河北张家口市22221
河北张家口市22221
河北张家口市33333
河北张家口市11111
河北张家口市33333
河北张家口市55555
河北张家口市66666
河北张家口市77777
河北张家口市11111

-----------------------------------------
以下是一部分 查找文本的内容
河北保定市
河北保定市
河北张家口市11111
河北张家口市22221
河北张家口市22221
河北唐山市
河北唐山市
河北张家口市33333
河北张家口市11111
河北张家口市33333
河北唐山市
河北唐山市
河北唐山市
河北张家口市55555
河北张家口市66666
河北唐山市
河北唐山市
河北唐山市
河北保定市
河北保定市
河北张家口市77777
河北张家口市11111

sgw15099991207

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
list	文本型		0
n	整数型

' 编辑框1内容=你的文本
' 编辑框2内容等于处理好的
list ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (list), n)
如果真 (寻找文本 (list [n], “河北张家口”, , 假) ≠ -1)
编辑框2.加入文本 (list [n] ＋ #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 list, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> ' 编辑框1内容=你的文本<br /> ' 编辑框2内容等于处理好的<br /> <br /> list ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (list), n)<br />     .如果真 (寻找文本 (list [n], “河北张家口”, , 假) ≠ -1)<br />         编辑框2.加入文本 (list [n] ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

洋滨

用换行符分割文本，遍历行文本，找到内容写到另一个文本

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型

文本 ＝ 分割文本 (编辑框1.内容, “,”, )
计次循环首 (取数组成员数 (文本), n)
如果真 (寻找文本 (文本 [n], “张家口市”, , 假) ＞ 0)
文本2 ＝ 文本2 ＋ 文本 [n] ＋ #换行符

计次循环尾 ()
调试输出 (文本2)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, “,”, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果真 (寻找文本 (文本 [n], “张家口市”, , 假) ＞ 0)<br />         文本2 ＝ 文本2 ＋ 文本 [n] ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文本2)

南影

  

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

变量名	类 型	静态	数组	备 注
快速文本	快速文本对象
分割的文本	文本型		0
i	整数型
找到文本	文本型

快速文本.从文件读 ()  ' 读入大文件
分割的文本 ＝ 快速文本.分割文本 ( #换行符, )
计次循环首 (取数组成员数 (分割的文本), i)
如果真 (寻找文本 (分割的文本 [i], “张家口市”, , 假) ≠ -1)
找到文本 ＝ 找到文本 ＋ 分割的文本 [i] ＋ #换行符

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\新文件.txt”, 到字节集 (找到文本))

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 子程序1<br /> .局部变量 快速文本, 快速文本对象<br /> .局部变量 分割的文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 找到文本, 文本型<br /> <br /> 快速文本.从文件读 ()  ' 读入大文件<br /> 分割的文本 ＝ 快速文本.分割文本 (#换行符, )<br /> .计次循环首 (取数组成员数 (分割的文本), i)<br />     .如果真 (寻找文本 (分割的文本 <i>, “张家口市”, , 假) ≠ -1)<br />         找到文本 ＝ 找到文本 ＋ 分割的文本 <i> ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\新文件.txt”, 到字节集 (找到文本))