[文本处理] 【已解决】求一键调整域名顺序的bat命令

zhuan1688

谢谢各位老师指教，for_flr老师的代码经过5i365老师精简，速度超级快再次感谢各位老师

有一个TXT文档，里面有N个域名，一行一个，但都是反向域名，求一个bat，一键将这些反向域名调整成正常域名。
如：
net.A1
cn.com.A2
be.A3
kr.co.A4
uk.gov.A5
变成
A1.net
A2.com.cn
A3.be
A4.co.kr
A5.gov.uk
有些是com这样的国际域名，有些是com.cn这样的国别域名，格式不统一。
不知能否实现，恳请各位老师指教，无比感激

Batcher

回复 1# zhuan1688


    最多只有两个点是吗？

zhuan1688

回复  zhuan1688


    最多只有两个点是吗？
Batcher 发表于 2022-3-17 16:26

    您好，管理员大大，最多三个.，如果三个点不好处理，两个点的也行，我把三个点的数据剔除

for_flr

#@&cls&powershell "gc '%~0'|out-string|iex"&pause&exit /b"
foreach($line in gc a.txt){
  $x=@()
  $s=$line.split('.')
  ($s.count-1)..0|%{
    $x+=$s[$_]
    if($_ -eq 0){$x -join '.' |tee new_a.txt -append}
  }
}
复制代码

qixiaobin0715

！！！！！！

5i365

回复 4# for_flr


    感谢大侠分享, 我精简了一下

#@&cls&powershell "gc '%~0'|out-string|iex"&pause&exit
foreach ($line in gc a.txt)
{
	$x = @()
	$s = $line.split('.')
	($s.count - 1) .. 0 | %{
		$x += $s[$_]
	}
	$x -join '.' >>ok.txt
} 
复制代码

5i365

回复 4# for_flr


大侠好, 我又精简了一下, 现在相对好理解一些了,

#@&cls&powershell "gc '%~0'|out-string|iex"&pause&exit
foreach ($line in gc a.txt)
{
	$x = @()
	$s = $line.split('.')
	$x += $s[($s.count - 1) .. 0]
	$x -join '.' >>ok.txt
}
复制代码

5i365

回复 4# for_flr


  又精简了一下, 这次应该是极致精简了

#@&cls&powershell "gc %~s0|out-string|iex"&pause&exit
gc a.txt |
%{
	$x = @()
	$s = $_.split('.')
	$x += $s[($s.count - 1) .. 0]
	$x -join '.' >>ok.txt
}
复制代码

Batcher

回复 3# zhuan1688


处理一到三个点的情况，纯BAT不调用PowerShell或其他脚本：

@echo off
cd /d "%~dp0"
(for /f "tokens=1-4 delims=." %%a in ('type "1.txt"') do (
    if "%%d" neq "" (
        set /p =%%d.<nul
    )
    if "%%c" neq "" (
        set /p =%%c.<nul
    )
    echo,%%b.%%a
))>"2.txt"
复制代码