[文本处理] （已解决）批处理如何提取文本中的电话号码并及删除重复号

Rank: 2

帖子: 93
积分: 150
技术: 0
捐助: 0
注册时间: 2013-7-28

3楼

发表于 2013-11-10 23:22 | 只看该作者

回复 2# xxpinqz

电话： (0471)4444444
电话： (0471)4444444
电话：(0833)55555555
电话：(0833)55555555
没想到主题里面有上面号码的话，批处理后：0833正常，0471不正常。
0471
01011111111
010222222222
0103333333
0207777777
02088888888
02099999999
083355555555
4444444

Rank: 2

帖子: 93
积分: 150
技术: 0
捐助: 0
注册时间: 2013-7-28

4楼

发表于 2013-11-10 23:38 | 只看该作者

回复 3# 非常感谢
也有很多零碎的数字出现。为了把问题说清楚，我把附件上传了，谢谢您！
0311
0312
0351
03513012525
0371
0376
0378
03782827566
03782905373
0379
0411
0431
043187938111
0432
0433
04332760188
0452
0453
879169690431
87943099
87959593
87970500
87976067
87981117
88081416
8820120
88598120
88751333
88761319
88786396
88789999
8879688888766107
89176600
89363999
89615660
89671111

Rank: 2

帖子: 93
积分: 150
技术: 0
捐助: 0
注册时间: 2013-7-28

5楼

发表于 2013-11-11 00:45 | 只看该作者

本帖最后由非常感谢于 2013-11-11 00:51 编辑

回复 2# xxpinqz

自己研究了一下，大概下面这几个格式会出现零碎的数字排列。因为逗号后面的数字有些不带区号，纵向排列后，分不清楚是哪的了。
电话：(0452)2415555, 4006579989
电话：(023)67456745, 67259555
电话：025-84620871, 65018888
电话： (0471)4444444
是否可以这样，先将保留的电话那一行，逗号后半部分删除，然后对逗号前半部分删除中文和符号？至于0471那个格式，希望还是保留号码，，，谢谢了。

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

6楼

发表于 2013-11-11 01:21 | 只看该作者

那逗号后面的号码要吗？
还有电话：(022)26419999-8656 后面的 8656 怎么处理
如能把问题一次说清楚至少可以减少更改代码的次数

Rank: 2

帖子: 93
积分: 150
技术: 0
捐助: 0
注册时间: 2013-7-28

7楼

发表于 2013-11-11 04:23 | 只看该作者

本帖最后由非常感谢于 2013-11-11 04:25 编辑

回复 6# terse
1.逗号后面的号码全部不要了，缺了区号，失去意义了
2.8656 留着好了。
没能看全文件里的号码格式的多样性，抱歉了，不过上面的代码对我学习还是有帮助的，，，上传的附件是一部分，希望您参考！谢谢您！

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

8楼

发表于 2013-11-11 10:45 | 只看该作者

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=：" %%i in ('findstr /i "电话：" a.txt') do (
    set str=%%j
    set "str=!str:(=!"
    for %%a in (!str:(^=!) do (
        set "str=%%a"
        if "!str:)=!" neq "!str!" (
           set "str=!str:)=!"
           echo !str!
        ) else if "!str:-=!" == "!str!" (
               if "!str:~10!" neq "" echo !str!
          ) else echo !str:-=!
    )
)
pause
复制代码

1 评分人数

非常感谢: 谢谢热心帮助！～～技术 + 1

Rank: 2

帖子: 93
积分: 150
技术: 0
捐助: 0
注册时间: 2013-7-28

9楼

发表于 2013-11-11 12:03 | 只看该作者

回复 8# terse
简单测试了一下，貌似少了重复行过滤，下面是我测试后的数据。
0103333333
0207777777
02088888888
02099999999
01011111111
010222222222
01011111111
010222222222
01011111111
010222222222
04714444444
04714444444
083355555555
083355555555
02361560471

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

10楼

发表于 2013-11-11 13:21 | 只看该作者

回复 9# 非常感谢
恩没有对重复项处理修改之

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=：" %%i in ('findstr /i "电话：" a.txt') do (
    set s=&set str=%%j
    set "str=!str:(=!"
    for %%a in (!str:(^=!) do (
        set "str=%%a"
        if "!str:)=!" neq "!str!" (
           set "s=!str:)=!"
        ) else if "!str:-=!" == "!str!" (
               if "!str:~10!" neq "" set "s=!str!"
          ) else set "s=!str:-=!"
            if "!s!" neq "" if not defined $!s! echo !s!&set $!s!=$
    )
)
pause
复制代码

1 评分人数

非常感谢: 学习并珍藏了，谢谢您！技术 + 1

Rank: 2

帖子: 93
积分: 150
技术: 0
捐助: 0
注册时间: 2013-7-28

11楼

发表于 2013-11-11 14:26 | 只看该作者

回复 10# terse

7楼有一句：8656 留着好了。
我想知道您代码的那一行决定着它的去留？如果要去掉它，是否只需改动一行代码，想学习和了解一下。

DAIC

Rank: 8 Rank: 8

帖子: 2874
积分: 7021
技术: 336
捐助: 0
注册时间: 2011-6-2

12楼

发表于 2013-11-11 14:41 | 只看该作者

回复 11# 非常感谢

你对比一下8楼和10楼的代码就看到了吧

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

13楼

发表于 2013-11-11 14:44 | 只看该作者

本帖最后由 terse 于 2013-11-11 14:46 编辑

回复 11# 非常感谢
代码前11行都处理好了
如果要去掉这个貌似分机号的可以11行后加上

for /f %%j in ("!s:-= !") do set s=%%j
复制代码

1 评分人数

非常感谢: 感谢指导！技术 + 1

suseek

列兵

Rank: 1

帖子: 26
积分: 34
技术: 1
捐助: 0
注册时间: 2010-6-19

14楼

发表于 2013-11-12 22:37 | 只看该作者

回复10楼
第5行往下能解释一下吗,没太看明白
谢谢