Question

从多行文本中提取数字QQ号码，请问下，易语言如何操作？

例如下列文本：
-65865549----等级64--10元
-65815549----等级61--30元
65865540----等级60--60元
-65865559----等级61--40元
-6586559----等级65--30-

我需要得到的结果是这样的
65865549
65815549
65865540
65865559
6586559

求源码
如果有源码且测试成功，加财富值奖励

Answer 1

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 分割后的文本, 文本型, , "0"
.程序集变量 x, 整数型
.程序集变量 取后的文本, 文本型, , "0"
.程序集变量 取后的文本2, 文本型, , "0"
.程序集变量 取后的文本3, 文本型, , "0"
.程序集变量 y, 整数型

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

分割后的文本 ＝ 分割文本 (编辑框1.内容, “元”, )
.计次循环首 (取数组成员数 (分割后的文本), x)
加入成员 (取后的文本, 取文本左边 (分割后的文本 [x], 12))
.计次循环尾 ()
.计次循环首 (取数组成员数 (取后的文本), x)
清除数组 (取后的文本2)
加入成员 (取后的文本2, 分割文本 (取后的文本 [x], “-”, ))
.计次循环首 (取数组成员数 (取后的文本2), y)
.如果 (取文本长度 (取后的文本2 [y]) ＞ 4)
加入成员 (取后的文本3, 取后的文本2 [y])
跳出循环 ()
.否则

.如果结束

.计次循环尾 ()
.计次循环尾 ()
调试输出 (取后的文本3)

Answer 2

.版本 2
.支持库 RegEx

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 正则表达式, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"
.局部变量 计数, 整数型

编辑框2.内容 ＝ “”
正则表达式.创建 (“[1-9][0-9]{4,}”, )
搜索结果 ＝ 正则表达式.搜索全部 (编辑框1.内容)
.计次循环首 (取数组成员数 (搜索结果), 计数)
编辑框2.加入文本 (搜索结果 [计数].取匹配文本 (编辑框1.内容, ) ＋ #换行符)
.计次循环尾 ()