@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do (
    set "str=%%a"
    set "str=!str:*:=!"
    set "str=!str::= !"
    for %%i in (!str!) do (
        for /f "delims=/" %%a in ("%%i") do echo,%%a
    )
))>b.txt
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("a.txt",1).ReadAll
Set re = New RegExp
pattern = "com|net|org|gov|edu|mil|biz|name|info|mobi|pro|"
pattern = pattern & "travel|museum|int|aero|post|rec|asia"
re.Pattern = "[\w\-]+\.([a-z]{2}|" & pattern & ")(\.[a-z]{2})?(?:\b|/)"
re.IgnoreCase = True
re.Global = True
For Each a in re.Execute(txt)
    str = str & a & vbCrLf
Next
WScript.Echo str
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1* delims=:" %%a in (a.txt) do (
    set "str=%%b"
    set "str=!str::= !"
    for %%i in (!str!) do (
        for /f "delims=/" %%a in ("%%i") do (
            set "str=%%a"
            set "str=!str:.= !"
            set m=0
            for %%a in (!str!) do (
                set/a m+=1
                set "#!m!=%%a."
                set "tmp=%%a"                
            )
            if "!tmp:~2!"=="" (set/a n=m-2) else set/a n=m-1
            set "e="
            for /l %%a in (!n!,1,!m!) do set "e=!e!!#%%a!"
            echo,!e:~,-1!
        )               
    )
))>b.txt
复制代码

@echo off
for /f "delims=" %%i in (a.txt) do (
    set "str=%%i"
    setlocal enabledelayedexpansion
    set str=!str:http://= !
    for %%a in (!str!) do (
        for /f "delims=/" %%b in ("%%a") do set str=%%b
        for /f %%b in ("!str!") do (
            for /f %%c in ("!str:.=\!\..") do set s=%%~nc%%~xb&set "str=%%~nb"
            if "!s:~6!" == "" for /f %%d in ("!str:.=\!\..") do (
               if "%%~nd" neq "" set s=%%~nd.!s!
            )
            echo !s!
        )
    )
    endlocal
)
pause
复制代码

 (这里是第二行至第十七行代码)>b.txt
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1* delims=:" %%a in (a.txt) do (
    set "str=%%b"
    set "str=!str::= !"
    for %%i in (!str!) do (
        for /f "delims=/" %%a in ("%%i") do (
            set "str=%%a"
            set "str=!str:.= !"
            set m=0
            set "tmp="
            for %%a in (!str!) do (
                set/a m+=1
                set ".=!tmp!"
                set "#!m!=%%a."
                set "tmp=%%a"                
            )
            if "!.:~2!"=="" (set/a n=m-2) else set/a n=m-1
            set "e="
            for /l %%a in (!n!,1,!m!) do set "e=!e!!#%%a!"
            echo,!e:~,-1!
        )               
    )
))>b.txt
复制代码