powershell -c "dir -Directory|dir -Filter \"*.txt\"|foreach{(gc $_.FullName) -replace '#.*?#'|sc $_.FullName}"
复制代码

rem 特别说明:#号不能连续,又发现一处错误#也不能在开始字段,凑合用吧,来回减字符数字实在是烧脑
 if /i "%~f1"=="" echo,错误请拖拽运行或是调用[+路径]运行&timeout.exe /t 10&exit
 >"%~f1.tmp" (
  for /f "delims=" %%i in ('type "%~f1"')do (
   set "#=%%i"
   call:1
   call:2 "%~f1"
  )
 )
goto:eof
:1
 for /l %%n in (0,1,8192)do if /i "!#:~%%n,1!"=="" set/a "$_All=%%n"&&goto:eof
goto:eof
:2
 set "n=0"
 for /l %%n in (0,1,!$_All!)do if /i "!#:~%%n,1!"=="#" set/a "n+=1"&&set "$_!n!=%%n"
 set/a "o=!n!%%2"
 if /i "!o!"=="0" (call:3)else (echo,!#!)&&rem 符号不成组直接导出
goto:eof
:3
 set "#_tmp=!#!"
 set/a "nn=!n!+2"&&rem 修正段
 for /l %%n in (1,1,!nn!)do if defined #_tmp for /f "tokens=1,2,* delims=#" %%x in ("!#_tmp!")do (
  if /i not "%%y"=="" set "#_tmp=%%x%%z"
 )
 echo,!#_tmp!
goto:eof
复制代码

@set @v=1 /*
@echo off
for /f "delims=" %%F in ('dir/b/s/a-d *.txt') do (type "%%~F"|cscript /e:javascript "%~f0">"%%~F.new")
exit/b
*/
lines=WSH.stdin.readall().replace(/#[^#]*#/g, ''); WSH.echo(lines);
复制代码

@echo off
for /f "delims=" %%F in ('dir/b/s/a-d *.txt') do (
	type "%%~F"|python -c "import sys,re;s=sys.stdin.read();print(re.sub('#[^#]*#','',s,re.S))">"%%~F.new"
)
exit/b
复制代码

@echo off &for /f "delims=" %%F in ('dir/b/s/a-d *.txt') do (sed "s/#[^#]*#//g" "%%~F">"%%~F.new")
exit/b
复制代码

@echo off &setlocal enabledelayedexpansion
for /f "delims=" %%F in ('dir/b/s/a-d *.txt') do (
	(for /f "usebackq delims=" %%s in ("%%~F") do (
		set "cut=-1" &set "_s=" &set "s=%%~s" & (call :_strLen s sl)
		for /L %%i in (0,1,!sl!) do (
			set "c=!s:~%%i,1!"
			if "!c!" neq "#" (if !cut! equ -1 set "_s=!_s!!c!") else (set/a "cut=0-!cut!")
		)
		echo,!_s!
	))>"%%~F.new"
)
endlocal&exit/b

:_strLen //获取字符串长度(须开启变量延迟可保全^!等字符) %1=字符串变量名 %2=返回值变量名
   set "_str=_!%~1!" &set "_Len=0"
   for %%n in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
      if "!_str:~%%n,1!" neq "" (set/a "_Len+=%%n"&set "_str=!_str:~%%n!")
   )
   set "%~2=!_Len!" &exit/b
复制代码

@echo off
for /f "delims=" %%f in ('dir/b/s/a-d *.txt') do (
     (for /f "usebackq tokens=1* delims=#" %%i in ("%%f") do (
           set "str=%%i"
           set "s=%%j"
           if "%%j" neq "" (
               call :loop
               setlocal enabledelayedexpansion
               echo !str!
               endlocal
          ) else echo %%i
     ))>"New_%%~nf.tx"
)
pause
exit
:loop
if "%s%" == ""  goto :eof
for /f "tokens=2* delims=#" %%i in ("%s%") do (
     set "t=%%i"
     set "s=%%j"
     setlocal enabledelayedexpansion
     if "!t: =!" neq "" set "str=!str!!t!"
     for /f "delims=" %%a in ("!str!") do endlocal&set "str=%%a"
     call :loop
)
复制代码

gawk "{gsub(/#[^#]*#/, \"\"); print >>FILENAME\"NEW_tx\"}" *.txt 
复制代码

@echo off&chcp 936 >nul

for /d %%a in (*) do (
for /f "delims=" %%b in ('dir /b /s /a-d "%%a\*.txt"') do (
setlocal
for /f "delims=" %%c in ('findstr /n .* "%%b"') do (
set "line=%%c"
setlocal enabledelayedexpansion
if "!line:*:=!" == "" (endlocal&echo,) else (
set "line=!line:*:=!"
for /f "delims=" %%i in ("$!line:#=^#!") do endlocal&set "line=%%i"
set o=
call :aaa
)
)
endlocal
)>"%%~dpb_new_%%~nxb"
)
pause&exit/b

:aaa
setlocal enabledelayedexpansion
set "line=!line:~1!"
for /f "tokens=1* delims=^" %%x in ("$!line!") do (
endlocal&set line=&set "tk1=%%x"&set "tk2=%%y"
)
setlocal enabledelayedexpansion
set "tk1=!tk1:~1!"
if "!tk1:~0,1!" == "#" (
if "!tk2:~0,1!" == "#" (set "line=!tk2:~1!") else set "o=!o!!tk1!"&set "line=!tk2!"
) else (
set "o=!o!!tk1!"
set "line=!tk2!"
)
if defined line (
for /f "delims=" %%i in ("$!line!") do (
for /f "delims=" %%j in (""!o!"") do endlocal&set "line=%%i"&set "o=%%~j"
)
goto :aaa
) else echo,!o!&endlocal
goto :eof
复制代码

@echo off
for /f "delims=" %%F in ('dir/b/s/a-d *.txt') do (
	(for /f "usebackq delims=" %%s in ("%%~F") do (
		set s=%%~s
		setlocal enabledelayedexpansion
		set "cut=-1" &set "_s=" &(call :_strLen s sL)
		for /L %%i in (0,1,!sL!) do (
			set "c=!s:~%%i,1!"
			if "!c!" neq "#" (if !cut! equ -1 set "_s=!_s!!c!") else (set/a "cut=0-!cut!")
		)
		(echo,!_s!)
		endlocal
	))>"%%~F.new"
)
endlocal &exit/b

:_strLen //获取字符串长度(须先开启变量延迟可保全^!等特殊字符) %1=被测字符串变量名 %2=返回值变量名
	set "_str=_!%~1!" &set "Len=0"
	for %%n in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
		if "!_str:~%%n,1!" neq "" (set/a "Len+=%%n"&set "_str=!_str:~%%n!")
	)
	set/a "%~2=!Len!-1" &exit/b
复制代码