[问题求助] 利用sed能提取出文本中的email地址吗?(已解决)

batman

荣誉版主

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

3楼

发表于 2013-7-24 17:21 | 只看该作者

太复杂了，目测sed无能为力，下面给出vbs解：

Dim objFSO, Rstr, Arr, Wstr
Set objFSO = CreateObject("Scripting.FileSystemObject")
Rstr = objFSO.OpenTextFile("a.txt").ReadAll
Arr = Split(Rstr, vbCrLf)
For Each str In Arr
  If InStr(1, str, "@gmail.com", 1) Then GetMail(str)
Next
objFSO.OpenTextFile("new.txt", 2, True).Write Wstr
Set objFSO = Nothing
CreateObject("Wscript.Shell").Run "cmd /cstart new.txt", True, True

Function GetMail(Str)
  Dim objReg
  Set objReg = New RegExp
  objReg.Global = True
  objReg.IgnoreCase = True
  objReg.Pattern = "[\s]*.*?\(*([^\(]+@gmail.com).*"
  Wstr = Wstr & objReg.Replace(Str, "$1") & vbCrLf
End Function
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

＊＊＊共同提高＊＊＊

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

4楼

发表于 2013-7-24 17:42 | 只看该作者

本帖最后由 CrLf 于 2013-7-24 17:43 编辑

如果不要求只调用一次 sed 的话，还是很简单的

sed "s/[0-9a-zA-Z.@]/\n/g" email.txt | sed "/[0-9a-zA-Z.]{1,100}@\w\w*\.\w\w*$/!d"
复制代码

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

ShadowFiend

上等兵

Rank: 1

帖子: 38
积分: 52
技术: 1
捐助: 0
注册时间: 2012-11-24

5楼

发表于 2013-7-24 18:11 | 只看该作者

[email]Abdulwahab@Gmail..com[/email]

这里的两个点怎么解释？

nevermore

PowerShell

上尉

Rank: 5 Rank: 5

帖子: 437
积分: 1319
技术: 27
捐助: 0
注册时间: 2013-6-30

6楼

发表于 2013-7-24 19:06 | 只看该作者

大多数脚本语言，处理此类问题的逻辑如下：
1 用findstr，select-string，grep，查找行首是字母，或者行首是空格，后续是任意的，再后续是gmail.com 的行。
对这样的每一行
2 掐头，去掉从行首到空格的内容。
3 去尾，去掉gmail.com 后面的内容。

脚本是写给人看的,是写给用户看的,而不是写给机子看的
用户能看懂、会修改的脚本,才是好脚本。
写易懂的powershell脚本帮人解决问题,进而让用户学会自渔,吾所愿也

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2013-7-24 19:39 | 只看该作者

忽然发现原来每行只有一个地址，那就只需要一个 sed 了

sed "s/^.*\([^0-9a-zA-Z.][0-9a-zA-Z.]{1,100}@\w\w*\.\w\w*\).*$/\1/g" a.txt
复制代码

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

terse

中将

Rank: 8 Rank: 8

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

8楼

发表于 2013-7-24 20:42 | 只看该作者

本帖最后由 terse 于 2013-7-24 20:45 编辑

sed -nr "s/.*[ (](.*@gmail[\.]+com).*/\1/ip" "a.txt"
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

Seder

一级士官

Rank: 2

帖子: 99
积分: 112
技术: 7
捐助: 0
注册时间: 2011-9-2

9楼

发表于 2013-7-24 21:04 | 只看该作者

google mail注册是有特定格式的：

您可以使用字母、数字和英文句点。

输入的字符数应在 6 到 30 之间。

Rank: 1

帖子: 19
积分: 39
技术: 0
捐助: 0
注册时间: 2012-11-29

10楼

发表于 2013-7-25 12:08 | 只看该作者

谢谢大家,我有点晕了,需要消化消化.我的环境是xp,想要的效果是这样的:
[email]Mehak@gmail.com[/email]
[email]drakeandkennedy@gmail.com[/email]
[email]Alice.williams.com@gmail.com[/email]
[email]sadia22222@gmail.com[/email]
[email]Macharla.mallikarjun@gmail.com[/email]
每行一个email地址,去掉重复的.
我也不懂使用sed实现,难不难,感觉可以的,能再看看吗?我还想通过这个事,学习熟悉sed,因为sed应该懂点嘛.

Python

少校

Rank: 6 Rank: 6

帖子: 225
积分: 2218
技术: 23
捐助: 0
注册时间: 2012-2-17

11楼

发表于 2013-7-25 14:28 | 只看该作者

回复 10# wangb70

下载一个sed.exe放到C:\Windows\system32目录下面，打开cmd窗口，执行他们帮你写的命令。

Rank: 1

帖子: 19
积分: 39
技术: 0
捐助: 0
注册时间: 2012-11-29

12楼

发表于 2013-7-25 14:34 | 只看该作者

回复 3# batman
版主好,这个方法可以
还想问问,如何去重复,可以推广应用到其他搜索引擎吗,如yahoo,必应等.

Rank: 1

帖子: 19
积分: 39
技术: 0
捐助: 0
注册时间: 2012-11-29

13楼

发表于 2013-7-25 14:42 | 只看该作者

回复 8# terse

太好了,让我佩服,sed没想到也可以,高兴.

sed能去重复吗?

Rank: 1

帖子: 19
积分: 39
技术: 0
捐助: 0
注册时间: 2012-11-29

14楼

发表于 2013-7-25 14:45 | 只看该作者

回复 11# Python

多谢提醒,我不怕大家笑话,确实是菜鸟,不过,我讨厌自己这么菜,决心慢慢摸索学习.

Rank: 1

帖子: 19
积分: 39
技术: 0
捐助: 0
注册时间: 2012-11-29

15楼

发表于 2013-7-25 14:49 | 只看该作者

回复 7# CrLf

谢谢crlf,不过好象有点问题,是不是我哪里没操作好,