中国DOS联盟

现有一txt文档，想提取其中的email地址
文件如下

Last edited by uime on 2006-9-26 at 05:27 ]

　　试试下面的代码：

@echo off

setlocal enabledelayedexpansion

for /f "tokens=2,3 delims==@ " %%i in ('findstr @ email.txt') do (

    set var=%%i

    set "var=!var:"=!"

    echo !var!@%%j

)

pause

Last edited by namejm on 2006-9-25 at 19:56 ]

setlocal ENABLEDELAYEDEXPANSION

for /f "delims== tokens=2" %%i in ('find "@" email.txt') do (set emailtemp=%%i

echo !emailtemp:~0,-5!>>b.txt)

早啊，namejm ，发现你手比我快。 = =

不过，这句什么意思，我没看懂。

set "var=!var:"=!"

好像不写结果也一样。

Originally posted by NaturalJ0 at 2006-9-25 20:13:
set "var=!var:"=!"
好像不写结果也一样。

如果不写这一句，那么，xliu@cqnu.edu.cn 这条记录将会在最前面的 x 处带个前引号，我也是后来测试的时候才发现的。

for /f "tokens=2 delims== " %x in ('findstr "@" email.txt') do echo %~x

谢谢大家

我的问题和５楼的一样
引号好像也不配套啊

如果是同时提取用户名和email呢？
就像：
name email
的格式

Last edited by uime on 2006-9-25 at 22:01 ]

Mail名与Mail地址分离：

@rem  ==================== SearchMail.Bat ==================

@echo off



for /f "tokens=2 delims== " %%i in ('findstr @ email.txt') do (

	for /f "tokens=1,2 delims=@" %%a in ("%%i") do echo %%a	%%a@%%b >> Ok_Email.txt

)



Notepad.exe Ok_Email.txt

Last edited by redtek on 2006-9-26 at 00:46 ]

强! 顶一个先.

仔细看过之后, 才发现9楼朋友的代码提取的内容并不是楼主预期的.

在写代码的过程中发现楼主的网页内容存在错误, 如: 熊明勇、刘玺、dage三个名字后面跟的并不是有效的E-mail地址, 在取E-mail时需要多用一个判断. 整段代码的工作效率是比较低的。写完这段代码， 我神智已经不清醒了， 呵呵~ 也没有进行优化。请大家测试~~~

@echo off
setlocal enabledelayedexpansion
for /f "tokens=5 delims==" %%i in ('findstr /i /c:"WIDTH: 80px" email.txt') do (
set /a one=!one!+1
set num=1
set two=
for /f "tokens=2 delims== " %%a in ('findstr /i /c:"uemail" email.txt') do (
set /a two=!two!+1
if /i "!num!"=="1" (
if /i not "%%a"=="150><INPUT class" (
if /i not "%%i"=="uname></TD>" (
if /i "!one!"=="!two!" (
echo %%i %%~a>>name.txt
set num=
)
)
)
)
)
)
pause

Last edited by pengfei on 2006-9-26 at 09:01 ]

头晕~~

真的不错，谢谢大家的热心，虽然执行了，但是对for语句还是有点模糊

Last edited by uime on 2006-9-26 at 05:14 ]

可能EXCEL处理数量较少的这样的文件比较快！

哇噻～～爽～！！！