例如我的文本:
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
用 分割 + 查找文本
判断返回值
判断返回值