设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 怎么提高文本替换效率与简洁性，这有短代码谁能简化一下 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 31865|回复: 14

[文本处理] 怎么提高文本替换效率与简洁性，这有短代码谁能简化一下...

[复制链接]
lateol
发表于 2013-5-27 22:09:46 | 显示全部楼层 |阅读模式
本帖最后由 lateol 于 2013-5-28 18:12 编辑
  1. pushd "==NC=="
  2. ::===D===
  3. fr *.TXT *.NC -r:"***:( DIA. = 21.000   R = 0.8000 )" -t:"Cutter Name: D21R0.8"
  4. fr *.TXT *.NC -r:"***:( DIA. = 20.000   R = 1.0000 )" -t:"Cutter Name: D20R1"
  5. fr *.TXT *.NC -r:"***:( DIA. = 20.000   R = 000000 )" -t:"Cutter Name: D20"
  6. fr *.TXT *.NC -r:"***:( DIA. = 17.000   R = 0.8000 )" -t:"Cutter Name: D17R0.8"
  7. fr *.TXT *.NC -r:"***:( DIA. = 12.000   R = 0.5000 )" -t:"Cutter Name: D12R0.5"
  8. fr *.TXT *.NC -r:"***:( DIA. = 12.000   R = 0.2000 )" -t:"Cutter Name: D12R0.2"
  9. fr *.TXT *.NC -r:"***:( DIA. = 12.000   R = 000000 )" -t:"Cutter Name: D12"
  10. fr *.TXT *.NC -r:"***:( DIA. = 10.000   R = 0.5000 )" -t:"Cutter Name: D10R0.5"
  11. fr *.TXT *.NC -r:"***:( DIA. = 10.000   R = 0.2000 )" -t:"Cutter Name: D10R0.2"
  12. fr *.TXT *.NC -r:"***:( DIA. = 10.000   R = 000000 )" -t:"Cutter Name: D10"
  13. fr *.TXT *.NC -r:"***:( DIA. = 8.000   R = 0.5000 )" -t:"Cutter Name: D8R0.5"
  14. fr *.TXT *.NC -r:"***:( DIA. = 8.000   R = 0.2000 )" -t:"Cutter Name: D8R0.2"
  15. fr *.TXT *.NC -r:"***:( DIA. = 8.000   R = 000000 )" -t:"Cutter Name: D8"
  16. fr *.TXT *.NC -r:"***:( DIA. = 6.000   R = 0.5000 )" -t:"Cutter Name: D6R0.5"
  17. fr *.TXT *.NC -r:"***:( DIA. = 6.000   R = 0.2000 )" -t:"Cutter Name: D6R0.2"
  18. fr *.TXT *.NC -r:"***:( DIA. = 6.000   R = 000000 )" -t:"Cutter Name: D6"
  19. fr *.TXT *.NC -r:"***:( DIA. = 4.000   R = 0.5000 )" -t:"Cutter Name: D4R0.5"
  20. fr *.TXT *.NC -r:"***:( DIA. = 4.000   R = 0.2000 )" -t:"Cutter Name: D4R0.2"
  21. fr *.TXT *.NC -r:"***:( DIA. = 4.000   R = 000000 )" -t:"Cutter Name: D4"
  22. fr *.TXT *.NC -r:"***:( DIA. = 3.000   R = 0.2000 )" -t:"Cutter Name: D3R0.2"
  23. fr *.TXT *.NC -r:"***:( DIA. = 3.000   R = 000000 )" -t:"Cutter Name: D3"
  24. fr *.TXT *.NC -r:"***:( DIA. = 2.000   R = 000000 )" -t:"Cutter Name: D2"
  25. fr *.TXT *.NC -r:"***:( DIA. = 1.000   R = 000000 )" -t:"Cutter Name: D1"
  26. ::===R===
  27. fr *.TXT *.NC -r:"***:( DIA. = 12.000   R = 6.0000 )" -t:"Cutter Name: D12R6"
  28. fr *.TXT *.NC -r:"***:( DIA. = 10.000   R = 5.0000 )" -t:"Cutter Name: D10R5"
  29. fr *.TXT *.NC -r:"***:( DIA. = 8.000   R = 4.0000 )" -t:"Cutter Name: D8R4"
  30. fr *.TXT *.NC -r:"***:( DIA. = 6.000   R = 3.0000 )" -t:"Cutter Name: D6R3"
  31. fr *.TXT *.NC -r:"***:( DIA. = 4.000   R = 2.0000 )" -t:"Cutter Name: D4R2"
  32. fr *.TXT *.NC -r:"***:( DIA. = 3.000   R = 1.5000 )" -t:"Cutter Name: D3R1.5"
  33. fr *.TXT *.NC -r:"***:( DIA. = 2.000   R = 1.0000 )" -t:"Cutter Name: D2R1"
  34. fr *.TXT *.NC -r:"***:( DIA. = 1.5000   R = 0.7500 )" -t:"Cutter Name: D1.5R0.75"
  35. fr *.TXT *.NC -r:"***:( DIA. = 1.000   R = 0.5000 )" -t:"Cutter Name: D1R0.5"
  36. fr *.TXT *.NC -r:"***:( DIA. = 0.6000   R = 0.3000 )" -t:"Cutter Name: D0.6R0.3"
  37. fr *.TXT *.NC -r:"***:( DIA. = 0.5000   R = 0.2500 )" -t:"Cutter Name: D0.5R0.25"

  39. ::====================TZE================================
  40. fr *.TXT *.NC -r:"***:Dia:21.00  Tip Radius:.8" -t:"Cutter Name: D21R0.8"
  41. fr *.TXT *.NC -r:"***:Dia:20.00  Tip Radius:1" -t:"Cutter Name: D20R1"
  42. fr *.TXT *.NC -r:"***:Dia:17.00  Tip Radius:.8" -t:"Cutter Name: D17R0.8"
  43. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:6" -t:"Cutter Name: D12R6"
  44. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:.5" -t:"Cutter Name: D12R0.5"
  45. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:.2" -t:"Cutter Name: D12R0.2"
  46. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:5" -t:"Cutter Name: D10R5"
  47. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:.5" -t:"Cutter Name: D10R0.5"
  48. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:.2" -t:"Cutter Name: D10R0.2"
  49. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:4" -t:"Cutter Name: D8R4"
  50. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:.5" -t:"Cutter Name: D8R0.5"
  51. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:0.2" -t:"Cutter Name: D8R0.2"
  52. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:3" -t:"Cutter Name: D6R3"
  53. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:.5" -t:"Cutter Name: D6R0.5"
  54. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:.2" -t:"Cutter Name: D6R0.2"
  55. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:2" -t:"Cutter Name: D4R2"
  56. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:.5" -t:"Cutter Name: D4R0.5"
  57. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:.2" -t:%2
复制代码
不好意思 代码没贴完整
  1. ::====================TZE================================
  2. fr *.TXT *.NC -r:"***:Dia:21.00  Tip Radius:.8" -t:"Cutter Name: D21R0.8"
  3. fr *.TXT *.NC -r:"***:Dia:20.00  Tip Radius:1" -t:"Cutter Name: D20R1"
  4. fr *.TXT *.NC -r:"***:Dia:17.00  Tip Radius:.8" -t:"Cutter Name: D17R0.8"
  5. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:6" -t:"Cutter Name: D12R6"
  6. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:.5" -t:"Cutter Name: D12R0.5"
  7. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:.2" -t:"Cutter Name: D12R0.2"
  8. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:5" -t:"Cutter Name: D10R5"
  9. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:.5" -t:"Cutter Name: D10R0.5"
  10. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:.2" -t:"Cutter Name: D10R0.2"
  11. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:4" -t:"Cutter Name: D8R4"
  12. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:.5" -t:"Cutter Name: D8R0.5"
  13. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:0.2" -t:"Cutter Name: D8R0.2"
  14. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:3" -t:"Cutter Name: D6R3"
  15. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:.5" -t:"Cutter Name: D6R0.5"
  16. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:.2" -t:"Cutter Name: D6R0.2"
  17. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:2" -t:"Cutter Name: D4R2"
  18. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:.5" -t:"Cutter Name: D4R0.5"
  19. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:.2" -t:"Cutter Name: D4R0.2"
  20. fr *.TXT *.NC -r:"***:Dia:3.00  Tip Radius:1.5" -t:"Cutter Name: D3R1.5"
  21. fr *.TXT *.NC -r:"***:Dia:3.00  Tip Radius:.2" -t:"Cutter Name: D3R0.2"
  22. fr *.TXT *.NC -r:"***:Dia:2.00  Tip Radius:1" -t:"Cutter Name: D2R1"
  23. fr *.TXT *.NC -r:"***:Dia:1.00  Tip Radius:.5" -t:"Cutter Name: D1R0.5"
  24. fr *.TXT *.NC -r:"***:Dia:1.500  Tip Radius:.75" -t:"Cutter Name: D1.5R0.75"
  25. fr *.TXT *.NC -r:"***:Dia:0.600  Tip Radius:.3" -t:"Cutter Name: D0.6R0.3"
  26. fr *.TXT *.NC -r:"***:Dia:0.500  Tip Radius:.25" -t:"Cutter Name: D0.5R0.25"

  28. fr *.TXT *.NC -r:"***:Dia:20.00  Tip Radius:0" -t:"Cutter Name: D20"
  29. fr *.TXT *.NC -r:"***:Dia:12.00  Tip Radius:0" -t:"Cutter Name: D12"
  30. fr *.TXT *.NC -r:"***:Dia:10.00  Tip Radius:0" -t:"Cutter Name: D10"
  31. fr *.TXT *.NC -r:"***:Dia:8.00  Tip Radius:0" -t:"Cutter Name: D8"
  32. fr *.TXT *.NC -r:"***:Dia:6.00  Tip Radius:0" -t:"Cutter Name: D6"
  33. fr *.TXT *.NC -r:"***:Dia:4.00  Tip Radius:0" -t:"Cutter Name: D4"
  34. fr *.TXT *.NC -r:"***:Dia:3.00  Tip Radius:0" -t:"Cutter Name: D3"
  35. fr *.TXT *.NC -r:"***:Dia:2.00  Tip Radius:0" -t:"Cutter Name: D2"
  36. fr *.TXT *.NC -r:"***:Dia:1.00  Tip Radius:0" -t:"Cutter Name: D1"

  38. ::====================TZE2================================
  39. fr *.TXT *.NC -r:"***:TOOL NAME =" -t:"Cutter Name:"

  41. for %%a in (D21R0.8 D20R1 D17R0.8 D12R6 D12R0.5 D12R0.2 D10R5 D10R0.5 D10R0.2 D8R4 D8R0.5 D8R0.2 D6R3 D6R0.5 D6R0.2 D4R2 D4R0.5 D4R0.2 D3R1.5 D3R0.2 D2R1 D1R0.5 D0.6R0.3 D0.5R0.25 D20 D12 D10 D8 D6 D4 D3 D2 D1 R6 R5 R4 R3 R2 R1 R0.75 R0.5) do (
  42.   for /f "delims=:" %%b in ('findstr /ic:"Cutter Name: %%a" *.NC') do (
  43.     md "%%a" 2>nul
  44.     move "%%b" "%%a"
  45.   )
  46. )
  47. echo    ============【============处理完毕...============】============
  48. GOTO QQ
复制代码
回复

举报

sxw
发表于 2013-5-28 07:40:15 | 显示全部楼层
这是想干啥
回复

举报

Batcher
发表于 2013-5-28 08:38:11 | 显示全部楼层
请给出原始文本和希望得到的文本，详细描述替换规律。
回复

举报

tmplinshi
发表于 2013-5-28 10:43:22 | 显示全部楼层
bwfr - 替换文本中的多个字符串
http://bathome.net/thread-12910-1-1.html
回复

举报

lateol
 楼主| 发表于 2013-5-28 18:19:14 | 显示全部楼层
回复 3# Batcher


    已经把文本上到百度云，
http://pan.baidu.com/share/link?shareid=684456&uk=774360720
文件比较多 顺便上传了几个。

以下分别为五种显示类型在在每个文本头显示的信息，我这里叫做刀具信息。

1.
(  Dia:10.00  Tip Radius:0  Tool length:50.00 )


2.
( T - 1   L - 40   DIA. = 8.000   1_2_2 )
( DIA. = 8.000   R = 000000 )

( T - 1   L - 20   DIA. = 4.000   1_2_2_1 )
( DIA. = 4.000   R = 000000 )

( T - 1   L - 20   DIA. = 4.000   43 )
( DIA. = 4.000   R = 2.0000 )

( T - 1   L - 40   DIA. = 8.000   38_1_1_1 )
( DIA. = 8.000   R = 000000 )
、
3.
(Cutter Name: D12)

(Cutter Name: D6R3)

(Cutter Name: D4R2)

(Cutter Name: D4)

(Cutter Name: D1R0.5)

4.
( TOOL NAME = R3 , D = 6.0 , R = 3. )
( PART OFST = 0.0 , PART TOL. = 0.01 )
( DOWN STEP = 0.3 , SIDE STEP = 4.92 )

( TOOL NAME = D12 , D = 12.0 , R = 0.0 )
( PART OFST = 0.2 , PART TOL. = 0.01 )
( DOWN STEP = 0.8 , SIDE STEP = 6. )

( TOOL NAME = R1.5 , D = 3.0 , R = 1.5 )
( PART OFST = -0.03 , PART TOL. = 0.01 )
( DOWN STEP = 0.3 , SIDE STEP = 2.88 )

( TOOL NAME = D4 , D = 4.0 , R = 0.0 )
( PART OFST = 0.25 , PART TOL. = 0.01 )
( DOWN STEP = 0.12 , SIDE STEP = 2. )

( TOOL NAME = D4R0.5 , D = 4.0 , R = 0.5 )
( PART OFST = -0.07 , PART TOL. = 0.005 )
( DOWN STEP = 0.12 , SIDE STEP = 2. )
5.
(Tool Name: D12)

(Tool Diameter=12.00 )

(Tool Radius=0.00 )

刀具信息种类：
D21R0.8 D20R1 D17R0.8 D12R6 D12R0.5 D12R0.2 D10R5 D10R0.5 D10R0.2 D8R4 D8R0.5 D8R0.2 D6R3 D6R0.5 D6R0.2 D4R2 D4R0.5 D4R0.2 D3R1.5 D3R0.2 D2R1 D1R0.5 D0.6R0.3 D0.5R0.25 D20 D12 D10 D8 D6 D4 D3 D2 D1 R6 R5 R4 R3 R2 R1 R0.75 R0.5
流程：用
  1. for %%a in (D21R0.8 D20R1 D17R0.8 D12R6 D12R0.5 D12R0.2 D10R5 D10R0.5 D10R0.2 D8R4 D8R0.5 D8R0.2 D6R3 D6R0.5 D6R0.2 D4R2 D4R0.5 D4R0.2 D3R1.5 D3R0.2 D2R1 D1R0.5 D0.6R0.3 D0.5R0.25 D20 D12 D10 D8 D6 D4 D3 D2 D1 R6 R5 R4 R3 R2 R1 R0.75 R0.5) do (
  2.   for /f "delims=:" %%b in ('findstr /ic:"Cutter Name: %%a" *.NC') do (
  3.     md "%%a" 2>nul
  4.     move "%%b" "%%a"
  5.   )
  6. )
复制代码
查找文本内容信息 找到后重名个文件夹 名字就是查找到的信息 如 (Cutter Name: D6R3) 则新建D6R3文件夹 并移动进去。以此类推。
如果 所有的文本内容的信息都显示一样 如(Cutter Name: D6R3) 这个就好办多了。可是有五种方式显示，所以部分识别不到，处理不成功。所以出现了以上方法，先替换 再识别。
回复

举报

terse
发表于 2013-5-28 19:06:43 | 显示全部楼层
回复 5# lateol
是否想得到信息呢 还是其他
  1. @echo off
  2. findstr /ibc:"( TOOL NAME = " /c:"( PART OFST = " /c:"( DOWN STEP = " *.nc
  3. pause
复制代码
回复

举报

lateol
 楼主| 发表于 2013-5-28 20:12:15 | 显示全部楼层
回复 6# terse

是的 比如说 此文本内包含(Cutter Name: D4R2) 则创建 D4R2 文件夹 并把它移入内。就达到按信息分类的意思。
回复

举报

lateol
 楼主| 发表于 2013-5-28 20:23:53 | 显示全部楼层
本帖最后由 lateol 于 2013-5-28 20:25 编辑

回复 6# terse


   附件的文本 显示的信息类型是  
( TOOL NAME = R1 , D = 2.0 , R = 1. )
这个刀具信息为 D2R1
有点跟(Cutter Name: D2R1)
一样 所以我就用FR替换
( TOOL NAME = R1 , D = 2.0 , R = 1. ) 替换成(Cutter Name: D2R31)
这样就 可以分类。主要问题还是 信息显示不太统一 有五种，所以无法一举处理。
除非可以再写个 其他形式的BAT
谢谢你的帮忙。
回复

举报

terse
发表于 2013-5-28 23:22:54 | 显示全部楼层
回复 8# lateol
仅针对你上面样本测试处理的
即你所诉第四种情况吧 不知是否你要的结果
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=1* delims=:" %%i in ('findstr /ic:"TOOL NAME = " *.nc') do (
  3.     if "!%%i!" == "" (
  4.     for /f "tokens=4,6 delims==,)" %%a in ("%%j") do (
  5.         set D=%%a&set R=%%b
  6.         for %%c in (D R) do for %%d in (!%%c!) do (
  7.             set %%c=%%d
  8.             for /l %%e in (1 1 6) do (
  9.                if "!%%c:~-1!" == "0" set "%%c=!%%c:~,-1!"
  10.             )
  11.             if "!%%c!" neq "0." (
  12.                 if "!%%c:~-1!" == "." set %%c=!%%c:~,-1!
  13.                 set %%c=%%c!%%c!
  14.             )else set "%%c="
  15.         )
  16.         echo !D!!R!
  17.     )
  18.   )
  19.         set "%%i=i"
  20. )
  21. pause
复制代码

评分

参与人数 1技术 +1 收起 理由
lateol + 1 好极速！

查看全部评分

回复

举报

lateol
 楼主| 发表于 2013-5-29 00:11:55 | 显示全部楼层
回复 9# terse


    对！ 是这样。不过还有四个信息类型可以整合么。
随便在 文本内容里换个信息类型在测试、看看
只要 能正确识别五种类型信息 并进行分类 基本上就OK了 想都有点难度..- -！

代码 我在19行 加入md "!D!!R!" 2>nul
    move "%%i" "!D!!R!\"
就这样分类 就达到效果了。
谢谢 你的代码 学习了、
回复

举报

terse
发表于 2013-5-29 00:45:20 | 显示全部楼层
因你的样本里不含有其他四个信息类型
所以不一点测试完全正确
还有就是  每个文本含四个信息的其中一个信息吗  不会重复吧
回复

举报

lateol
 楼主| 发表于 2013-5-29 07:40:59 | 显示全部楼层
回复 11# terse


    没有重复的
回复

举报

terse
发表于 2013-5-29 10:07:18 | 显示全部楼层
回复 12# lateol
没完全测试 不知信息是否完整
"(Tool Name:" "(Cutter Name:" 这两信息点 多余否？
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=1,2* delims=:" %%i in ('findstr /ic:"TOOL NAME = " /c:"(Cutter Name:" /c:"( DIA. = " /c:"(  Dia:" /c:"(Tool Name:" *.nc') do (
  3.     if "!%%i!" == "" (   
  4.        set "str="
  5.        if "%%k" == "" (
  6.           for /f "tokens=2-6 delims==,)" %%a in ("%%j") do (
  7.               if "%%c" =="" (
  8.                  set D=%%a&set "R=%%b"
  9.               ) else set D=%%c&set "R=%%e"
  10.           )
  11.        ) else for /f "tokens=1-6 delims=:) " %%a in ("%%k") do (
  12.                   if "%%d" neq "" (
  13.                       set D=%%a&set "R=%%d"
  14.                   ) else set "str=%%a"
  15.               )
  16.              if "!str!" == "" (
  17.                 for %%f in (D R) do for /f %%h in ("!%%f!") do (
  18.                     set "%%f=%%h"
  19.                     for /l %%e in (1 1 6) do (
  20.                         if "!%%f:~-1!" == "0" set "%%f=!%%f:~,-1!"
  21.                    )
  22.                         if "!%%f!" neq "0." (
  23.                            if "!%%f:~-1!" == "." set "%%f=!%%f:~,-1!"
  24.                            set "%%f=%%f!%%f!"
  25.                         ) else set "%%f="
  26.                 )
  27.                           set "str=!D!!R!"
  28.             )
  29.                           echo "!str!"
  30.                           REM md "!str!"
  31.                           REM move "%%i" "!str!"
  32.                           REM set "%%i=i"
  33.     )
  34. )
  35. pause
复制代码
回复

举报

lateol
 楼主| 发表于 2013-5-29 23:44:17 | 显示全部楼层
回复 13# terse


    很好 测试完美 唯一的就是 处理到 ( DIA. = 4.000   R = 000000 )
这样是 因为 R是0  所以得出D4R
不过自己用变量来截取了。其他都OK
请问这个 set "str="  是什么意思？
谢谢！
回复

举报

terse
发表于 2013-5-29 23:55:46 | 显示全部楼层
回复 14# lateol
24行 替为
  1. if "!%%f!" neq "" set "%%f=%%f!%%f!"
复制代码
SET "STR="  清空变量
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 07:16 , Processed in 0.027961 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表