中国DOS联盟

//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);

}

@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

Originally posted by everest79 at 2009-5-16 06:21 AM:
是使用set替换字符串时的通配方法，将你原来的字符串自"@"符号分成两部分
例如
badbu@test.com.cn
就分成了
ba ...