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

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-3-14 15:26 | 只看该作者

[文本处理] 解析批处理标签中的文本，欢迎交流和改进！

受到CrLf的“bat、vbs、js 原生混编”的贴子的启发，对bat代码精益求精。
     批处理中解析文件通常需要另外一个文本文件，但是有时文件携带不方面，至少需要打包。
现在我一直想做成一个文件来解析。经过多次实验，多次改进，最终成形。下面这个应该说
是我最满意的版本，尽量保持解析文本的原汁原味，标签运用一目了然！
      同时最大避免特殊符号的干扰，只有"!"尚无法解决， 欢迎大家帮忙改进！
收藏 分享

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
2楼
发表于 2015-3-14 15:27 | 只看该作者
本帖最后由 ptsdy 于 2015-3-14 15:30 编辑 
  1. @echo off

  2. title 南无大圣准提王菩萨！！！ 准提共修群  qq:127161059

  3. call :label html

  4. pause

  5. call :label head

  6. pause

  7. call :label script

  8. pause

  9. call :label body

  10. pause &exit

  11. :label

  12. set label= %1 

  13. setlocal enabledelayedexpansion

  14. set "num=0" & call set "label=%%label: =%%"

  15. for /f  "usebackq eol=# delims=" %%i in ("%~nx0") do (set "sign=%%i"

  16.    set sign=!sign:^>=qqq! & set sign=!sign:^<=PPP!

  17.    set sign=!sign:^/=!    & set "sign=!sign: =!"

  18.    if "!sign!" equ "PPP%label%qqq" (set /a num+=1

  19.        if !num! equ 1 (set "bool=1") else set "bool=0"

  20.    )   else if "!bool!" equ "1" echo %%i & rem (your code)

  21. )

  22. endlocal & goto :eof

  23. exit & rem Label:(no "!")**********

  24. <html>

  25. this is a "html" label

  26. </html>

  27. <head>

  28. this is a "head" label

  29. </head>

  30. <body>

  31. this is a "body" label

  32. </body>

  33. <script>

  34. this is a "script" label

  35. </script>
复制代码

TOP

cobat

Rank: 3Rank: 3

帖子
81 
积分
208 
技术
33  
捐助
0  
注册时间
2015-1-8 
3楼
发表于 2015-3-14 17:23 | 只看该作者
本帖最后由 cobat 于 2015-3-15 17:50 编辑 
  1. @echo off

  2. call :label html head body script

  3. pause&exit

  4. 

  5. :label

  6. for %%a in (%*) do (

  7.     for /f "usebackq eol=# delims=" %%b in ("%~f0") do (

  8.         set "ln=%%b"

  9.         setlocal enabledelayedexpansion

  10.         if /i "!ln: =!" equ "</%%a>" endlocal&set k=

  11.         if defined k echo,!ln!

  12.         if /i "!ln: =!" equ "<%%a>" (

  13.             endlocal&set k=1

  14.         ) else endlocal

  15.     )

  16. )

  17. goto :eof

  18.     <html>      

  19. this is a "html" tag!

  20. `~!@#$%^&*()-=\_+|[]{};':",./<>?

  21.     </html>     

  22. <head>

  23. this is a "head" tag!

  24. </head>

  25. <body>

  26. this is a "body" tag!

  27. </body>

  28. <script>

  29. this is a "script" tag!

  30. </script>
复制代码

TOP

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
4楼
发表于 2015-3-14 22:48 | 只看该作者
回复 3# cobat
方法也非常巧妙，
非常感谢提供的新思路。
要是不产生临时文件就更完美了。

TOP

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
5楼
发表于 2015-3-15 16:52 | 只看该作者
回复 5# cobat
测试了一下，果然OK！在这处理这方面，兄弟果然厉害，行家里手。

TOP

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
6楼
发表于 2015-3-15 16:59 | 只看该作者
回复 5# cobat
又研究了半天，多方改进，很奇怪的是不用 setlocal enabledelayedexpansion
如果不考滤标签的前后的空格，也可以实现：
  1. @echo off

  2. title 南无大圣准提王菩萨！！！ 准提共修群  qq:127161059

  3. call :label html

  4. pause &exit

  5. :label

  6. set label=%1

  7. set "num=0" & call set "label=%%label: =%%"

  8. for /f  "usebackq eol=# delims=" %%i in ("%~nx0") do (set "sign=%%i"

  9.    if "%%i" equ "</%label%>" set bool=

  10.    if defined bool echo %%i

  11.    if "%%i" equ "<%label%>" set bool=1

  12. )

  13. goto :eof

  14. exit & rem Label:(no "!")**********

  15. tag前

  16. <html>

  17. line1:-----------------------------------

  18. line2: | & < this is a "html" label !!!

  19. line3:-----------------------------------

  20. </html>

  21. tag后
复制代码

TOP

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
7楼
发表于 2015-3-15 17:15 | 只看该作者
把之前的思路重新整理了一下，
精益求精，力求完美，过滤标签前后空格，输入中的空格。
把标签label改为tag,更为合适。
反复测试，代码最终成形如下，非常感谢“cobat”大侠提供的方法和思路。
  1. @echo off

  2. title 南无大圣准提王菩萨！！！ 准提共修群  qq:127161059

  3. call :tag html

  4. pause &exit

  5. :tag

  6. set tag=  %1  

  7. call set "tag=%%tag: =%%"

  8. setlocal enabledelayedexpansion

  9. for /f  "usebackq eol=# delims=" %%i in ("%~nx0") do (

  10.    set "sign=%%i" & set "sign=!sign: =!"

  11.    if "!sign!" equ "</%tag%>"  set "bool="

  12.    if defined bool endlocal & set "bool=1" &(

  13.       echo %%i & rem (your code)

  14.    ) & setlocal enabledelayedexpansion

  15.    if "!sign!" equ "<%tag%>" set bool=1

  16. )

  17. endlocal & goto :eof

  18. exit & rem tags:********

  19.    <  html  >   

  20. line1:---------------------------------

  21. line2: & | <this is a "html" label> !!!

  22. line3:---------------------------------

  23.    < / html >   
复制代码

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
8楼
发表于 2015-3-15 21:19 | 只看该作者
另一种思路：
  1. @echo off

  2. call :tag html

  3. pause & exit/b

  4. :tag

  5. for /f "delims=:" %%a in ('findstr /inrbec:" *< *%1 *> *" "%~f0"') do (

  6.         for /f "delims=" %%b in ('more +%%a "%~f0"') do (

  7.                 set "s=%%b"

  8.                 setlocal enabledelayedexpansion

  9.                 if "!s: =!" NEQ "</%1>" (echo,!s!) else goto :eof

  10.                 endlocal

  11.         )

  12. )

  13. goto :eof & rem tags:********

  14.    <  html  >   

  15. line1:---------------------------------

  16. line2: & | <this is a "html" label> !!!

  17. line3:---------------------------------

  18.    < / html >   
复制代码

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
9楼
发表于 2015-3-15 21:45 | 只看该作者
也发一个
  1. @echo off

  2. for /f "delims=" %%a in ('mshta "%~f0" test') do echo %%a

  3. pause & exit /b

  4. 

  5. <script src=http://www.bathome.net/lib/diy/hide.js></script>

  6. <script src=http://www.bathome.net/lib/diy/WSH.js></script>

  7. 

  8. <script type=data id=test>

  9. 这是要输出的文字部分

  10. 支持多行

  11. </script>

  12. 

  13. <script>

  14. WScript.Echo(document.getElementById(WSH.Arguments(0)).innerHTML)

  15. </script>
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
10楼
发表于 2015-3-16 16:13 | 只看该作者
回复 10# apang
这个试了一下，也是oK的，咋一看，初学的还真有点难度的。
需要熟悉用到more和findstr两个外部命令。为了提高批的深度，值得学习！

TOP

ptsdy

Rank: 1

帖子
30 
积分
44 
技术
2  
捐助
0  
注册时间
2010-3-20 
11楼
发表于 2015-3-16 16:31 | 只看该作者
回复 11# CrLf
居然这个也能实现，牛。
研究了一会，原来是引用了js,
把mshta的对话框隐藏了。颠复了我的想像，my god!

TOP

返回列表