@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1-3* delims=/" %%i in ('type a.txt') do (
  if "%%k"=="" (
     for /f "tokens=1-3 delims=." %%a in ("%%j") do (
       if "%%c"=="" (echo %%i//%%a.%%b/
       ) else (
         set str1=%%b
         set str2=%%c
         if "!str1:~2!"=="" if "!str2:~2!"=="" echo %%i//%%a.%%b.%%c/
       )
    )
  )
))>b.txt
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3* delims=/" %%i in ('type a.txt') do (
  if "%%k"=="" (
    for /f "tokens=1-3 delims=." %%a in ("%%j") do (
      if "%%c"=="" (echo %%i//%%a.%%b/>>顶级域名.txt
      ) else (
        set str1=%%b&set str2=%%c
        if "!str1:~2!"=="" (
          if "!str2:~2!"=="" (echo %%i//%%a.%%b.%%c/>>顶级域名.txt
          ) else echo %%i//%%a.%%b.%%c/>>二级域名.txt
        ) else echo %%i//%%a.%%b.%%c/>>二级域名.txt
      )
    )
  )
)
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=2,3 delims=/" %%a in (a.txt) do (
	if "%%b"=="" echo %%a
) 
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
	for /f "tokens=1,2" %%b in ("%%a.. %%a@\..") do if %%~nxb==http: echo %%~nxc
) 
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('findstr /v "\//[^/]*/." a.txt') do (
	for %%b in (%%a@\..) do echo %%~nxb
) 
pause
复制代码