例如我的文本：
123456按时发生的发生（哈哈）
54s31245 的撒旦法师的发送到（哈哈）
4845撒发生地方（呵呵）
我要把在每一行中有哈哈的文本整行提取到 编辑框2 把其它文本提取到编辑框3 代码应该是怎样的？
每一行的长度是没有规律的，并且 要提取的字符在文本中的位置也是没有规律的，只有有这一个词就符合筛选要求
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 str_find, 文本型
.局部变量 str_allLine, 文本型, , "0"
.局部变量 iCountLine, 整数型
str_find ＝ “（哈哈）”
str_allLine ＝ 分割文本 (编辑框1.内容, #换行符, ) ' 获取每一行
.计次循环首 (取数组成员数 (str_allLine), iCountLine) ' 用循环遍历数组的每一个成员
.如果真 (-1 ＝ 寻找文本 (str_allLine [iCountLine], str_find, , 假)) ' 是否找到“（哈哈）”
编辑框3.加入文本 (str_allLine [iCountLine] ＋ #换行符) ' 如果没有，就提取的编辑框3
到循环尾 () ' continue循环
.如果真结束
编辑框2.加入文本 (str_allLine [iCountLine] ＋ #换行符) ' 往编辑框加入找到哈哈的行
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
编辑框1.加入文本 (“123456按时发生的发生（哈哈）” ＋ #换行符, “54s31245 的撒旦法师的发送到（哈哈）” ＋ #换行符, “4845撒发生地方（呵呵）” ＋ #换行符) ' 初始化编辑框内容Init Edit
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 str_find, 文本型
.局部变量 str_allLine, 文本型, , "0"
.局部变量 iCountLine, 整数型
str_find ＝ “（哈哈）”
str_allLine ＝ 分割文本 (编辑框1.内容, #换行符, ) ' 获取每一行
.计次循环首 (取数组成员数 (str_allLine), iCountLine) ' 用循环遍历数组的每一个成员
.如果真 (-1 ＝ 寻找文本 (str_allLine [iCountLine], str_find, , 假)) ' 是否找到“（哈哈）”
编辑框3.加入文本 (str_allLine [iCountLine] ＋ #换行符) ' 如果没有，就提取的编辑框3
到循环尾 () ' continue循环
.如果真结束
编辑框2.加入文本 (str_allLine [iCountLine] ＋ #换行符) ' 往编辑框加入找到哈哈的行
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
编辑框1.加入文本 (“123456按时发生的发生（哈哈）” ＋ #换行符, “54s31245 的撒旦法师的发送到（哈哈）” ＋ #换行符, “4845撒发生地方（呵呵）” ＋ #换行符) ' 初始化编辑框内容Init Edit
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-03-15
.版本 2
.子程序 _按钮1_被单击
.局部变量 已分割文本, 文本型, , "0"
.局部变量 n, 整数型
已分割文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (已分割文本), n)
.判断开始 (寻找文本 (已分割文本 [n], “哈哈”, , 假) ＝ -1)
编辑框3.加入文本 (已分割文本 [n] ＋ #换行符)
.默认
编辑框2.加入文本 (已分割文本 [n] ＋ #换行符)
.判断结束
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 已分割文本, 文本型, , "0"
.局部变量 n, 整数型
已分割文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (已分割文本), n)
.判断开始 (寻找文本 (已分割文本 [n], “哈哈”, , 假) ＝ -1)
编辑框3.加入文本 (已分割文本 [n] ＋ #换行符)
.默认
编辑框2.加入文本 (已分割文本 [n] ＋ #换行符)
.判断结束
.计次循环尾 ()
第2个回答 2013-03-15
用 分割 + 查找文本
判断返回值
判断返回值
