gawk -F"." "{print $2}" yourfile 
复制代码

@echo off&setlocal enabledelayedexpansion
cd.>url_tmp.txt
for /f "delims=" %%a in (1.txt) do set url=%%~na&echo !url:*www.=!>>url_tmp.txt
start url_tmp.txt
复制代码

@echo off
for /f "tokens=2 delims=." %%i in (1.txt) do echo %%i
pause 
复制代码

@echo off&setlocal enabledelayedexpansion
cd.>url_tmp.txt
for /f "tokens=2 delims=) " %%a in (1.txt) do set url=%%~na&set url=!url:*.=!&echo !url:*.=!>>url_tmp.txt
start url_tmp.txt
复制代码

@echo off&setlocal enabledelayedexpansion
cd.>url_tmp.txt
for /f "tokens=2 delims=) " %%a in (1.txt) do (
set url=%%~na&set url=!url:.com=!&set url=!url:.net=!
for /f "tokens=* delims=*" %%b in (".!url!") do set str=%%~xb&echo !str:.=!>>url_tmp.txt
)
start url_tmp.txt
复制代码

@echo off&setlocal enabledelayedexpansion
cd.>url_tmp.txt
for /f "tokens=2 delims=) " %%a in (1.txt) do (
set url=%%~na
for %%i in (.com .net .cn .org .cc .hk .tw .asia .me .tel .me .biz .tv .mobi) do set url=!url:%%i=!
for /f "tokens=* delims=*" %%b in (".!url!") do set str=%%~xb&echo !str:.=!>>url_tmp.txt
)
start url_tmp.txt
复制代码

@echo off
for /f "delims=. tokens=2" %%i  in (test.txt) do (
echo %%i>>list.txt
   )

pause>nul
复制代码

@echo off
set "domain=cn|com|org|net|edu|tw|us" 还有其他域名按此格式添加
mshta "javascript:fso=new ActiveXObject('Scripting.FileSystemObject'); s=fso.OpenTextFile('a.txt').ReadAll(); fso.OpenTextFile('b.txt',2,true).Write ( s.replace(/(\w+)(?:\.(?:%domain%))+.*/g,'$1').replace(/.*[. ]/g,'') ); close();"
复制代码