中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-11 23:20

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 过滤出EMAIL 地址『已结』查看 864　回复 10

楼主 过滤出EMAIL 地址『已结』发表于 2009-05-14 01:45　·　新加坡

uiopuiop

中级用户

★★

积分 400
发帖 211
注册 2007-09-30 18:02
18年会员
UID 98650
性别男

状态离线

需要从一个文本文件里过滤出EMAIL 地址，但碰到点问题。

（work@home you can visit www.test.com）并不是我想要的EMAIL地址。希望能用纯批处理来实现这个功能，谢谢！

C:\temp>findstr "@." test.txt
work@home you can visit www.test.com
afdf@test.com
test2@test2.com
zzd@tests.com
badbu@test.com.cn

文本如下：（email 两边或许会有些空格或TAB，前N行有些乱七八糟的文字）
luan ti ba zao de wen zi
work@home you can visit www.test.com
afdf@test.com
test2@test2.com
zzd@tests.com
badbu@test.com.cn

[ Last edited by uiopuiop on 2009-5-17 at 10:25 ]

第 2 楼发表于 2009-05-14 04:40　·　中国北京联通

yishanju

银牌会员

★★★★

[b]看你妹啊[/b]

积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770

状态离线

用FR 才是王道

type a.txt|fr -ric:"*(*@.*)*" -t:"\1"

没有测试过，代码可能不对

FR 下载http://baiy.cn/utils/fr/index.htm

[ Last edited by yishanju on 2009-5-14 at 04:50 ]

有问题请发论坛或者自行搜索,再短消息问我的统统是SB

第 3 楼发表于 2009-05-14 11:24　·　中国上海浦东新区电信

uiopuiop

中级用户

★★

积分 400
发帖 211
注册 2007-09-30 18:02
18年会员
UID 98650
性别男

状态离线

纯批处理不能做吗？

第 4 楼发表于 2009-05-14 15:09　·　中国广东广州电信

everest79

金牌会员

★★★★

一叶枝头，万树皆春

积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别男

状态离线



//var a=WScript.Arguments;if (a.Length > 0) WScript.Echo(a(0).match(/\w+@\w+\.\w+/));

var a=WScript.Arguments;

if (a.Length > 0){

var f=new ActiveXObject("Scripting.FileSystemObject");

var u=f.OpenTextFile(a(0).replace(/\\/g,"\\\\"),1).ReadAll().match(/\w+@\w+\.\w+/g);

//WScript.Echo(u);

for (i=0;i<u.length;i++)WScript.Echo(u);

}

cscript my.js 1.txt

49206C6F766520796F752067757973 54656C3A3133383238343036373837

第 5 楼发表于 2009-05-14 23:42　·　中国上海浦东新区电信

uiopuiop

中级用户

★★

积分 400
发帖 211
注册 2007-09-30 18:02
18年会员
UID 98650
性别男

状态离线

多谢各位，但是我还是希望能用纯批处理来实现这个功能，谢谢！

第 6 楼发表于 2009-05-15 03:49　·　中国广东广州电信

everest79

金牌会员

★★★★

一叶枝头，万树皆春

积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别男

状态离线



@echo off

for /f "delims=" %%a in (b.txt) do (

echo %%a|findstr "*@*\.*" >nul&&set/ac+=1&&call :replace "%%a" %%c%%

)

set new

pause

goto :eof



:replace

set x=0

set src=%~1

set tmp=%src:*@=%

call set src=%%src:%tmp%=%%

for %%i in (%src%) do set tmp=%%i%tmp%

for %%i in (%tmp%) do set/ax+=1,1/(1/x)2>nul&&echo %%i&&set dst=%%i

set newmail%~2=%dst%

goto :eof

纯批的，不容错

49206C6F766520796F752067757973 54656C3A3133383238343036373837

第 7 楼楼上你好！发表于 2009-05-15 07:26　·　新加坡惠普HP

uiopuiop

中级用户

★★

积分 400
发帖 211
注册 2007-09-30 18:02
18年会员
UID 98650
性别男

状态离线

不容错？什么意思？

高手！果然管用，但我没看懂你是如何把空格，TAB 都给去掉的？

set/ax+=1,1/(1/x)2 何意？

set new 这个变量什么地方冒出来的？

[ Last edited by uiopuiop on 2009-5-15 at 10:58 ]

第 8 楼发表于 2009-05-16 06:21　·　中国广东广州电信

everest79

金牌会员

★★★★

一叶枝头，万树皆春

积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别男

状态离线

是使用set替换字符串时的通配方法，将你原来的字符串自"@"符号分成两部分
例如
badbu@test.com.cn
就分成了
badbu
与
@test.com.cn
然后使用for按空格分割输出，第一个字符串，保留最后一个
第二个字符串保留第一个
set /a x+=1,1/(1/x)&&echo %%i就是用来判断是不是第一个

set new是显示以new打头的变量
这些变量是
set newmail%~2=%dst%
来定义的

本帖最近评分记录（共 1 条）点击查看详情