中国DOS联盟

替换所有e-mail格式的字符串
abc@163.com
acro@hotmail.com
war@74y.com
www.baidu.com
@time

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set str=%%i
    if "%%~xi"==".com" (
       if "!str:@=!"=="!str!" (
          echo %%i
          ) else (
          echo.
       )
       ) else (
       echo %%i
    )
)
pause

替换所有e-mail格式的字符串为www.cn-dos.net
ping /n 2 127.1 abc@163.com
tracert acro@hotmail.com /n
war@74y.com
netstat www.baidu.com begin
@time
12345@qq.com

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set str=%%i
    if "!str:@=!"=="!str!" (
       echo %%i
       ) else (
       if "!str:.com=!"=="!str!" (
          echo %%i
          ) else (
          call :lp
          echo !var:~1!&set var=
       )
    )
)
pause>nul&goto :eof
:lp
for %%i in (%str%) do (
    set a=%%i
    if not "!a:@=!"=="!a!" set a=www.cn-dos.net
    set var=!var! !a!
)

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=:" %%a in ('findstr /in "..*@..*.com" a.txt') do set _%%a=a
for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
  set "str=%%b"
  if defined _%%a (
     for %%i in (!str!) do (
       set "a=%%i"
       if not "!a:@=!"=="!a!" set a=www.cn-dos.net
       set var=!var! !a!
     )
     echo !var!
   ) else echo %%b
   set "var="
)
pause