如何在一段文本中，只取出手机号？

枫叶成霜

如何在一段文本中，只取出手机号？
比如文本可能是这样：我我15555555555
或者是这样：14756252354 9394
或者是这样：13986524514-564
或者是这样：65 18958545265

--------------------------------------

只需要取出里面的手机号。



补充内容 (2023-4-23 10:10):
意思反正就是，前后都可能有中文啊，符号啊，空格数字字母等。

d9905l

就用了精易模块，很简单！！！！！！！！！！！你看是不是这样的效果！

枫叶成霜

  

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索	搜索结果		0
计次	整数型
文本	文本型

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

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索, 搜索结果, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 正则.创建 (“[0-9]{11}”, )<br /> <br /> 搜索 ＝ 正则.搜索全部 (编辑框1.内容)<br /> <br /> .计次循环首 (取数组成员数 (搜索), 计次)<br /> <br />     文本 ＝ 搜索 [计次].取匹配文本 (编辑框1.内容, )<br /> <br />     编辑框2.加入文本 (文本, #换行符)<br /> <br /> .计次循环尾 ()

钥匙key

  

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索	搜索结果		0
计次	整数型
文本	文本型

正则.创建 (“0?(13|14|15|17|18|19)[0-9]{9}”, )
搜索 ＝ 正则.搜索全部 (编辑框1.内容)
计次循环首 (取数组成员数 (搜索), 计次)
文本 ＝ 搜索 [计次].取匹配文本 (编辑框1.内容, )
编辑框2.加入文本 (文本, #换行符 )
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索, 搜索结果, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 正则.创建 (“0?(13|14|15|17|18|19)[0-9]{9}”, )<br /> <br /> 搜索 ＝ 正则.搜索全部 (编辑框1.内容)<br /> <br /> .计次循环首 (取数组成员数 (搜索), 计次)<br /> <br />     文本 ＝ 搜索 [计次].取匹配文本 (编辑框1.内容, )<br /> <br />     编辑框2.加入文本 (文本, #换行符)<br /> <br /> .计次循环尾 ()

afu45

忽略掉超过11位的数字，例如 99188888888888，并不是手机号，则不会只取一部分作为手机号，会整个忽略掉

  

子程序名	返回值类型	公开	备 注
正则匹配

变量名	类 型	静态	数组	备 注
表达式	正则表达式类
i

表达式.创建 ("\b1\d{10}\b", #常量1, 假, 假, 真, 真)
计次循环首 (表达式.取匹配数量 (), i)
调试输出 (表达式.取匹配文本 (i, ))
计次循环尾 ()

.版本 2<br /> <br /> .子程序 正则匹配<br /> .局部变量 表达式, 正则表达式类<br /> .局部变量 i<br /> <br /> 表达式.创建 ("\b1\d{10}\b", #常量1, 假, 假, 真, 真)<br /> .计次循环首 (表达式.取匹配数量 (), i)<br />     调试输出 (表达式.取匹配文本 (i, ))<br /> .计次循环尾 ()

afu45

新建 易程序 5.e (948.3 KB, 下载次数: 3)

2023-4-23 15:59 上传

点击文件名下载附件

美稀宗

运营商那看实际情况自行添加

  

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

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型		0
i	整数型

a ＝ “如何在一段文本中，只取出手机号？比如文本可能是这样：我我15555555555或者是这样：14756252354 9394或者是这样：13986524514-564或者是这样：65 18958545265”
b ＝ 分割文本 (a, “|”, )
计次循环首 (取数组成员数 (b), i)
调试输出 (b [i])
读取初始化 (b [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
读取初始化
参数名	类 型	参考	可空	数组	备 注
文本行	文本型

变量名	类 型	静态	数组	备 注
文本内容	字节集
号码数组	文本型		0
i	整数型

文本内容 ＝ 到字节集 (文本行)
号码初筛 (文本内容, 号码数组)
如果真 (取数组成员数 (号码数组) ≥ 1)
计次循环首 (取数组成员数 (号码数组), i)
调试输出 (号码数组 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
号码初筛
参数名	类 型	参考	可空	数组	备 注
文本内容	字节集
号码数组	文本型

变量名	类 型	静态	数组	备 注
号码验证	字节集
i	整数型
k	整数型
号码	字节集
号码_集	文本型

重定义数组 (号码数组, 假, 0)
号码验证 ＝ 到字节集 (“0123456789”)
如果真 (取字节集长度 (文本内容) ≥ 11)
计次循环首 (取字节集长度 (文本内容), i)
如果真 (取字节集中间 (文本内容, i, 1) ＝ 到字节集 (“1”))
如果 (取字节集长度 (文本内容) － i ＜ 10)
跳出循环 ()


计次循环首 (11, k)
号码 ＝ 取字节集中间 (文本内容, i ＋ k － 1, 1)
如果真 (寻找字节集 (号码验证, 号码, 1) ＜ 0)
跳出循环 ()
号码_集 ＝ 号码_集 ＋ 到文本 (号码)
计次循环尾 ()
如果真 (取文本长度 (号码_集) ＝ 11)
如果真 (号码二筛 (号码_集) ＝ 真)  ' 根据实际情况自行决定是否做进一步判断
加入成员 (号码数组, 号码_集)

号码_集 ＝ “”
i ＝ i ＋ k － 1


计次循环尾 ()

子程序名	返回值类型	公开	备 注
号码二筛	逻辑型
参数名	类 型	参考	可空	数组	备 注
号码_集	文本型

判断 (虚拟运营商号段 (号码_集, ) ＝ 真)
返回 (真)
判断 (上网卡专属号段 (号码_集, ) ＝ 真)
返回 (真)
判断 (广电号段 (号码_集, ) ＝ 真)
返回 (真)
判断 (电信号段 (号码_集, ) ＝ 真)
返回 (真)
判断 (联通号段 (号码_集, ) ＝ 真)
返回 (真)
判断 (移动号段 (号码_集, ) ＝ 真)
返回 (真)


返回 (假)

子程序名	返回值类型	公开	备 注
号段分割	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
号段	文本型

变量名	类 型	静态	数组	备 注
号段数组	文本型		0
i	整数型

号段数组 ＝ 分割文本 (号段, “|”, )
计次循环首 (取数组成员数 (号段数组), i)
如果真 (寻找文本 (文本内容, 号段数组 [i], , 假) ＝ 1)
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
移动号段	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
移动号码	文本型

变量名	类 型	静态	数组	备 注
移动号段	文本型

移动号段 ＝ “134|135|136|137|138|139|1440|147|148|150|151|152|157|158|159|172|178|182|183|184|187|188|195|197|198”
如果真 (号段分割 (文本内容, 移动号段) ＝ 真)
如果真 (是否为空 (移动号码) ＝ 假)
加入成员 (移动号码, 文本内容)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
联通号段	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
联通号码	文本型

变量名	类 型	静态	数组	备 注
联通号段	文本型

联通号段 ＝ “130|131|132|145|155|156|166|167|171|175|176|185|186|196”
如果真 (号段分割 (文本内容, 联通号段) ＝ 真)
如果真 (是否为空 (联通号码) ＝ 假)
加入成员 (联通号码, 文本内容)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
电信号段	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
电信号码	文本型

变量名	类 型	静态	数组	备 注
电信号段	文本型

电信号段 ＝ “133|149|153|173|177|180|181|189|190|191|193|199”
如果真 (号段分割 (文本内容, 电信号段) ＝ 真)
如果真 (是否为空 (电信号码) ＝ 假)
加入成员 (电信号码, 文本内容)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
广电号段	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
广电号码	文本型

变量名	类 型	静态	数组	备 注
广电号段	文本型

广电号段 ＝ “192”
如果真 (号段分割 (文本内容, 广电号段) ＝ 真)
如果真 (是否为空 (广电号码) ＝ 假)
加入成员 (广电号码, 文本内容)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
上网卡专属号段	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
上网卡专属号码	文本型

变量名	类 型	静态	数组	备 注
上网卡专属号段	文本型

上网卡专属号段 ＝ “145|147|149”
如果真 (号段分割 (文本内容, 上网卡专属号段) ＝ 真)
如果真 (是否为空 (上网卡专属号码) ＝ 假)
加入成员 (上网卡专属号码, 文本内容)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
虚拟运营商号段	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型
虚拟运营商号码	文本型

变量名	类 型	静态	数组	备 注
虚拟运营商号段	文本型

虚拟运营商号段 ＝ “1700|1701|1702|162|1703|1705|1706|165|1704|1707|1708|1709|171|167|1349|174|140|141|144|146|148”
如果真 (号段分割 (文本内容, 虚拟运营商号段) ＝ 真)
如果真 (是否为空 (虚拟运营商号码) ＝ 假)
加入成员 (虚拟运营商号码, 文本内容)
返回 (真)
返回 (假)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> a ＝ “如何在一段文本中，只取出手机号？比如文本可能是这样：我我15555555555或者是这样：14756252354 9394或者是这样：13986524514-564或者是这样：65 18958545265”<br /> b ＝ 分割文本 (a, “|”, )<br /> .计次循环首 (取数组成员数 (b), i)<br />     调试输出 (b <i>)<br />     读取初始化 (b <i>)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 读取初始化<br /> .参数 文本行, 文本型<br /> .局部变量 文本内容, 字节集<br /> .局部变量 号码数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本内容 ＝ 到字节集 (文本行)<br /> 号码初筛 (文本内容, 号码数组)<br /> .如果真 (取数组成员数 (号码数组) ≥ 1)<br />     .计次循环首 (取数组成员数 (号码数组), i)<br />         调试输出 (号码数组 <i>)<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 号码初筛<br /> .参数 文本内容, 字节集<br /> .参数 号码数组, 文本型, 参考 数组<br /> .局部变量 号码验证, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 号码, 字节集<br /> .局部变量 号码_集, 文本型<br /> <br /> 重定义数组 (号码数组, 假, 0)<br /> 号码验证 ＝ 到字节集 (“0123456789”)<br /> .如果真 (取字节集长度 (文本内容) ≥ 11)<br />     .计次循环首 (取字节集长度 (文本内容), i)<br />         .如果真 (取字节集中间 (文本内容, i, 1) ＝ 到字节集 (“1”))<br />             .如果 (取字节集长度 (文本内容) － i ＜ 10)<br />                 跳出循环 ()<br />             .否则<br /> <br />                 .计次循环首 (11, k)<br />                     号码 ＝ 取字节集中间 (文本内容, i ＋ k － 1, 1)<br />                     .如果真 (寻找字节集 (号码验证, 号码, 1) ＜ 0)<br />                         跳出循环 ()<br />                     .如果真结束<br />                     号码_集 ＝ 号码_集 ＋ 到文本 (号码)<br />                 .计次循环尾 ()<br />                 .如果真 (取文本长度 (号码_集) ＝ 11)<br />                     .如果真 (号码二筛 (号码_集) ＝ 真)  ' 根据实际情况自行决定是否做进一步判断<br />                         加入成员 (号码数组, 号码_集)<br />                     .如果真结束<br /> <br />                 .如果真结束<br />                 号码_集 ＝ “”<br />                 i ＝ i ＋ k － 1<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 号码二筛, 逻辑型<br /> .参数 号码_集, 文本型<br /> <br /> .判断开始 (虚拟运营商号段 (号码_集, ) ＝ 真)<br />     返回 (真)<br /> .判断 (上网卡专属号段 (号码_集, ) ＝ 真)<br />     返回 (真)<br /> .判断 (广电号段 (号码_集, ) ＝ 真)<br />     返回 (真)<br /> .判断 (电信号段 (号码_集, ) ＝ 真)<br />     返回 (真)<br /> .判断 (联通号段 (号码_集, ) ＝ 真)<br />     返回 (真)<br /> .判断 (移动号段 (号码_集, ) ＝ 真)<br />     返回 (真)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (假)<br /> <br /> .子程序 号段分割, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 号段, 文本型<br /> .局部变量 号段数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 号段数组 ＝ 分割文本 (号段, “|”, )<br /> .计次循环首 (取数组成员数 (号段数组), i)<br />     .如果真 (寻找文本 (文本内容, 号段数组 <i>, , 假) ＝ 1)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 移动号段, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 移动号码, 文本型, 参考 可空 数组<br /> .局部变量 移动号段, 文本型<br /> <br /> 移动号段 ＝ “134|135|136|137|138|139|1440|147|148|150|151|152|157|158|159|172|178|182|183|184|187|188|195|197|198”<br /> .如果真 (号段分割 (文本内容, 移动号段) ＝ 真)<br />     .如果真 (是否为空 (移动号码) ＝ 假)<br />         加入成员 (移动号码, 文本内容)<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 联通号段, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 联通号码, 文本型, 参考 可空 数组<br /> .局部变量 联通号段, 文本型<br /> <br /> 联通号段 ＝ “130|131|132|145|155|156|166|167|171|175|176|185|186|196”<br /> .如果真 (号段分割 (文本内容, 联通号段) ＝ 真)<br />     .如果真 (是否为空 (联通号码) ＝ 假)<br />         加入成员 (联通号码, 文本内容)<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 电信号段, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 电信号码, 文本型, 参考 可空 数组<br /> .局部变量 电信号段, 文本型<br /> <br /> 电信号段 ＝ “133|149|153|173|177|180|181|189|190|191|193|199”<br /> .如果真 (号段分割 (文本内容, 电信号段) ＝ 真)<br />     .如果真 (是否为空 (电信号码) ＝ 假)<br />         加入成员 (电信号码, 文本内容)<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 广电号段, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 广电号码, 文本型, 参考 可空 数组<br /> .局部变量 广电号段, 文本型<br /> <br /> 广电号段 ＝ “192”<br /> .如果真 (号段分割 (文本内容, 广电号段) ＝ 真)<br />     .如果真 (是否为空 (广电号码) ＝ 假)<br />         加入成员 (广电号码, 文本内容)<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> <br /> .子程序 上网卡专属号段, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 上网卡专属号码, 文本型, 参考 可空 数组<br /> .局部变量 上网卡专属号段, 文本型<br /> <br /> 上网卡专属号段 ＝ “145|147|149”<br /> .如果真 (号段分割 (文本内容, 上网卡专属号段) ＝ 真)<br />     .如果真 (是否为空 (上网卡专属号码) ＝ 假)<br />         加入成员 (上网卡专属号码, 文本内容)<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 虚拟运营商号段, 逻辑型<br /> .参数 文本内容, 文本型<br /> .参数 虚拟运营商号码, 文本型, 参考 可空 数组<br /> .局部变量 虚拟运营商号段, 文本型<br /> <br /> 虚拟运营商号段 ＝ “1700|1701|1702|162|1703|1705|1706|165|1704|1707|1708|1709|171|167|1349|174|140|141|144|146|148”<br /> .如果真 (号段分割 (文本内容, 虚拟运营商号段) ＝ 真)<br />     .如果真 (是否为空 (虚拟运营商号码) ＝ 假)<br />         加入成员 (虚拟运营商号码, 文本内容)<br />     .如果真结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)