[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
16楼 跳转到 »
发表于 2023-11-27 16:49 | 只看该作者
也来个纯P，尽量处理特殊字符吧
  1. @echo off

  2. for /f "delims=" %%f in ('dir/b/s/a-d *.txt') do (

  3.      (for /f "usebackq tokens=1* delims=#" %%i in ("%%f") do (

  4.            set "str=%%i"

  5.            set "s=%%j"

  6.            if "%%j" neq "" (

  7.                call :loop

  8.                setlocal enabledelayedexpansion

  9.                echo !str!

  10.                endlocal

  11.           ) else echo %%i

  12.      ))>"New_%%~nf.tx"

  13. )

  14. pause

  15. exit

  16. :loop

  17. if "%s%" == ""  goto :eof

  18. for /f "tokens=2* delims=#" %%i in ("%s%") do (

  19.      set "t=%%i"

  20.      set "s=%%j"

  21.      setlocal enabledelayedexpansion

  22.      if "!t: =!" neq "" set "str=!str!!t!"

  23.      for /f "delims=" %%a in ("!str!") do endlocal&set "str=%%a"

  24.      call :loop

  25. )
复制代码
第三方gawk 处理子目录 要加FOR
  1. gawk "{gsub(/#[^#]*#/, \"\"); print >>FILENAME\"NEW_tx\"}" *.txt 
复制代码
1

评分人数

    • 77七: 感谢分享技术 + 1

TOP

aloha20200628

Rank: 5Rank: 5

帖子
382 
积分
653 
技术
86  
捐助
0  
注册时间
2021-10-13 
17楼
发表于 2023-11-27 18:00 | 只看该作者

订正了15楼代码。其中jscript和python脚本因均以文件而非行作为处理单位，故可有效解析定界符内容被断行的情况。

TOP

Five66

Rank: 5Rank: 5

帖子
561 
积分
788 
技术
74  
捐助
0  
注册时间
2021-8-26 
18楼
发表于 2023-11-28 02:35 | 只看该作者
本帖最后由 Five66 于 2023-11-28 06:34 编辑

来个偷懒的，保存为ansi编码的bat
仅处理当前路径中文件夹里的文本文件
要求文本文件编码为gbk，文件名不要有英文百分号或936代码页无法显示的字符，还有文本中如果包含^可能会被吞
改了下，已最大程度支持特殊字符（大概）
  1. @echo off&chcp 936 >nul

  2. 

  3. for /d %%a in (*) do (

  4. for /f "delims=" %%b in ('dir /b /s /a-d "%%a\*.txt"') do (

  5. setlocal

  6. for /f "delims=" %%c in ('findstr /n .* "%%b"') do (

  7. set "line=%%c"

  8. setlocal enabledelayedexpansion

  9. if "!line:*:=!" == "" (endlocal&echo,) else (

  10. set "line=!line:*:=!"

  11. for /f "delims=" %%i in ("$!line:#=^#!") do endlocal&set "line=%%i"

  12. set o=

  13. call :aaa

  14. )

  15. )

  16. endlocal

  17. )>"%%~dpb_new_%%~nxb"

  18. )

  19. pause&exit/b

  20. 

  21. :aaa

  22. setlocal enabledelayedexpansion

  23. set "line=!line:~1!"

  24. for /f "tokens=1* delims=^" %%x in ("$!line!") do (

  25. endlocal&set line=&set "tk1=%%x"&set "tk2=%%y"

  26. )

  27. setlocal enabledelayedexpansion

  28. set "tk1=!tk1:~1!"

  29. if "!tk1:~0,1!" == "#" (

  30. if "!tk2:~0,1!" == "#" (set "line=!tk2:~1!") else set "o=!o!!tk1!"&set "line=!tk2!"

  31. ) else (

  32. set "o=!o!!tk1!"

  33. set "line=!tk2!"

  34. )

  35. if defined line (

  36. for /f "delims=" %%i in ("$!line!") do (

  37. for /f "delims=" %%j in (""!o!"") do endlocal&set "line=%%i"&set "o=%%~j"

  38. )

  39. goto :aaa

  40. ) else echo,!o!&endlocal

  41. goto :eof
复制代码

TOP

aloha20200628

Rank: 5Rank: 5

帖子
382 
积分
653 
技术
86  
捐助
0  
注册时间
2021-10-13 
19楼
发表于 2023-11-28 14:15 | 只看该作者
本帖最后由 aloha20200628 于 2023-11-28 14:25 编辑


一楼示例中没有那些 ^&!%()<\|/> 等特殊字符作祟，故15楼的纯P代码可以应付，当然 jscript/python/sed 等解决方案可以对此无惧。
若真要考虑纯P解法能处理上述特殊字符，还须订正其中的代码(包括字符串长度获取函数)如下》

按一楼示例原意顺便改写一个包含特殊字符的测试样本 test.txt：
'~^&!%(#将被删除#)<\|/>
'~^&!%()<\|/>#将被删除#
#将被删除#'~^&!%()<\|/>
  1. @echo off

  2. for /f "delims=" %%F in ('dir/b/s/a-d *.txt') do (

  3. 	(for /f "usebackq delims=" %%s in ("%%~F") do (

  4. 		set s=%%~s

  5. 		setlocal enabledelayedexpansion

  6. 		set "cut=-1" &set "_s=" &(call :_strLen s sL)

  7. 		for /L %%i in (0,1,!sL!) do (

  8. 			set "c=!s:~%%i,1!"

  9. 			if "!c!" neq "#" (if !cut! equ -1 set "_s=!_s!!c!") else (set/a "cut=0-!cut!")

  10. 		)

  11. 		(echo,!_s!)

  12. 		endlocal

  13. 	))>"%%~F.new"

  14. )

  15. endlocal &exit/b

  16. 

  17. :_strLen //获取字符串长度(须先开启变量延迟可保全^!等特殊字符) %1=被测字符串变量名 %2=返回值变量名

  18. 	set "_str=_!%~1!" &set "Len=0"

  19. 	for %%n in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (

  20. 		if "!_str:~%%n,1!" neq "" (set/a "Len+=%%n"&set "_str=!_str:~%%n!")

  21. 	)

  22. 	set/a "%~2=!Len!-1" &exit/b
复制代码

TOP

12
返回列表