1个回答
展开全部
.版本 2
.子程序 _按钮1_被单击
.局部变量 文本组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 index, 整数型
文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
.计次循环首 (取数组成员数 (文本组), i)
index ＝ 寻找文本 (文本组 [i], “1”, , 假)
.如果真 (index ≠ -1)
.如果真 (寻找文本 (文本组 [i], “1”, index ＋ 1, 假) ≠ -1)
编辑框2.加入文本 (文本组 [i] ＋ #换行符)
.如果真结束
.如果真结束
.计次循环尾 ()
试试看吧
追问
那要是取2 2数字怎么改 一定要出现两个2才可以提取哦。
追答
举一反三…… 你把里面的“1”改为“2”就好了
.版本 2
.子程序 查找数字, 文本型
.参数 原内容, 文本型
.参数 a, 文本型
.参数 b, 文本型
.局部变量 index, 整数型
.局部变量 文本组, 文本型, , "0"
.局部变量 wb, 文本型
.局部变量 i, 整数型
文本组 ＝ 分割文本 (原内容, #换行符, )
.计次循环首 (取数组成员数 (文本组), i)
index ＝ 寻找文本 (文本组 [i], a, , 假)
.如果真 (index ≠ -1)
.如果真 (寻找文本 (文本组 [i], b, 选择 (a ＝ b, index ＋ 1, 1), 假) ≠ -1)
wb ＝ wb ＋ 文本组 [i] ＋ #换行符
.如果真结束
.如果真结束
.计次循环尾 ()
返回 (wb)
.子程序 _按钮1_被单击
编辑框2.内容=查找数字(编辑框1.内容，“2”，“2”)‘给你写了个通用的查找子程序 只要修改里面的两个数字就可以了 相同的不同的都可以查了’
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
