@echo off
for /f "delims=" %%i in (a.txt) do echo;%%~ni
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
     set "str=%%a"&set "str=!str:.=!"&set "str=!str:-=!"
     for %%b in (!str!) do set /a n+=1&set "_!n!=%%b"
     set /a n-=1
     for /l %%c in (1,1,!n!) do set /p=!_%%c!<nul>>new.txt
     echo.>>new.txt&set /a n=0
)
start new.txt
复制代码

@echo off
for /f "tokens=1,2,4,* delims=-." %%i in (a.txt) do echo;%%i.%%j.%%k.%%l
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
     set "str=%%a"&set "str=!str:.=!"&set "str=!str:-=!"
     for %%b in (!str!) do set /a n+=1&set "_!n!=%%b"
     for /l %%c in (1,1,!n!) do if !n! neq 2 set /p=!_%%c!<nul>>new.txt
     echo.>>new.txt&set /a n=0
)
start new.txt
复制代码

//&@cls&start wscript -e:jscript "%~f0"&exit/b
intNode = -1; //负数-n表示去掉倒数第n段
f = "C:\\Documents and Settings\\user\\桌面\\a.txt"; //可以只写相对路径
fso = new ActiveXObject("Scripting.FileSystemObject");
ts = fso.OpenTextFile(f);
s = '';
while (!ts.AtEndOfStream)
    s += remove(ts.ReadLine()) + '\n';
//WScript.Echo(s);
fso.OpenTextFile('b.txt',2,true).Write(s);

function remove(ss) {
    var arr = ss.split('.').join('-').split('-');
    if(intNode>0) {var n=intNode-1;} else {var n=arr.length+intNode}
    arr.splice(n,1);
return arr.join(' ');
}
复制代码