rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b

folder = "."      '指定一个文件夹

Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
folder = oFSO.GetAbsolutePathName(folder)
oWshShell.CurrentDirectory = folder
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 2
oStream.Mode = 3
oStream.Charset = "GBK"
Set oRegExp = New RegExp
oRegExp.Global = False
oRegExp.Pattern = "^[\s　]*?([^\s　])"
For Each oFile In oFSO.GetFolder(folder).Files
    If LCase(Right(oFile.Path, 4)) = ".txt" Then
        wsh.Echo oFile.Path
        oStream.Open()
        oStream.LoadFromFile oFile.Path
        s = oStream.ReadText()
        s = oRegExp.Replace(s, "$1")
        oStream.Close()
        oStream.Open()
        oStream.WriteText s
        oStream.SaveToFile oFile.Path, 2
        oStream.Close()
    End If
Next
MsgBox "ok"
复制代码

sed '/\w/,$!d' filename > newfilename
复制代码

@echo off
cd /d "%~dp0"
for %%i in (*.txt) do (
	setlocal
	(for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
		for /f "tokens=*" %%x in ("%%b`") do (
			if "%%x" neq "`" (
				if defined m (
					echo=%%b
				) else (
					for /f "tokens=*" %%y in ("%%b") do (
						echo=%%y
					)
					set m=1
				)
			) else if defined m (
				echo=
			)
		)
	))>$
	move $ "%%i"
	endlocal
)
pause
复制代码

@echo off
for /f "delims=" %%i in ('dir /a-d /b *.txt') do call :trimBlank "%%i"
pause&exit

:trimBlank
for /f "usebackq tokens=*" %%i in (%1) do (
    set "title=%%i"
    goto :next
    )
:next
set /a n=0
echo,正在处理文件：%~1
(echo,%title%
for /f "delims=[]" %%i in ('find /n "%title%" ^< %1') do @set /a n+=1,1/^(n-1^)2>nul||more +%%i %1
)>"标题去空行空格_%~1"
复制代码

@set @v=1 /*
@echo off & for /f "delims=" %%F in (' dir /b/s/a-d "*.txt" ') do (
	type "%%F"|cscript /b /e:jscript "%~f0">"%%~dpnF.new%%~xF"
)
exit/b */
line=WSH.stdin.readall();
line=line.replace(/(\r\n){3,}/,'').replace(/[ \t　]{2,}/g,'').replace(/\s+$/,'');
WSH.stdout.write(line); WSH.quit();
复制代码

@echo off
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    set n=0
    (for /f "tokens=1* delims=:" %%j in ('findstr /n .* "%%i"') do (
        if defined n (
            if not "%%k"=="" (
                for /f "tokens=* delims=　 " %%l in ("%%k") do (
                    echo,%%l
                    set n=
                )
            )
        ) else (
            echo,%%k
        )
    ))>New_%%i
)
pause
复制代码