taofan712

回复 4# 523066680
谢谢版主，请问有批处理方案吗？
新人刚开始学【绝非伸手党】，有个大概思路：

@echo off
echo on
setlocal enabledelayedexpansion
for %%a in (134 135 136 137 138 139 150 151 152 158 159 157 182 187 188 147  130 131 132 155 156  185 186   133 153  180 189) do (set 3a=%%a
for /f "delims=!3a! tokens=1*" %%b  in ('type a.txt^|find "!3a!"') do (
rem 我这个只能查到第一个出现数字的地方，这个delims和tokens要怎么写才能把每一行的所有数字都查到呢
set 8b=%%c
set "8b=!8b:~0,8!"
rem 这里判断变量8b是否全部是数字 if "!8b!"==(全部是数字) 
echo,!3a!!8b!>>phnum.txt
)
)
pause>nul
复制代码

523066680

perl

$all = `type src.txt`;
$all =~ s/\r?\n//g;
while ($all=~s/[^\d]?(\d{11})[^\d]?//)
{
    print "$1\n";
}
复制代码

taofan712

回复 2# B魔方大人

以中国手机号为标准 ，固定11位。因为需要从各个杂乱文本中提取手机号码，组成www.bathome.com\sub\13344445555这样的网址，所以我想先把它取出来单独保存。
另外 13555557777 这个号码你没提取到。

B魔方大人

首先手机号是一串数字,至于多长,是不一定的.如果单纯以移动联通为标准.那么哥已经帮你提取出来了.就这两条.不客气.
13311111111
13788889999