一个文件有上千个网址,如果把主域名提取出来?

项目需求:

一个文本中，有如以下等URL地址。需要把URL地址的一级域名给提取出来（注意，有些是两个URL地址在一行上，如最后一条情况）
http://bbsxiaomi.com
https://www.bbsxiaomi.com/sitemap.xml
https://weixin.qq.com/
https://kf.qq.com/product/weixin.html
https://zhidao.baidu.com/question/2080069280242885028
https://sohu.com http://www.sina.com

解决方案:

@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

深度解决方案,可以去掉一部分2级域名也变成主域名

@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