指定文件夹中的XML内查找内容,显示查找到的内容后面8个字符。

Bonnie

需求：1、在固定路径C:\oud\traces下的AC、ADS、AP三个文件夹内寻找最新时间创建的文件夹。
         2、在最新时间创建的文件夹下查找XML文件里所包含的字符"3101DF05”。提取后面的8个字符。
         3、把提取出来的8个字符（16进制）转换进制为字符串并复制出来。任何文本文档或程序内可以直接粘贴使用。

hfxiang

1. 
   
2. gawk "/3101DF05.{8}/{print gensub(/^.*3101DF05(.{8}).*$/,"\\1","g")}" input.xml>output.txt
   

复制代码

Bonnie

hfxiang 发表于 2022-11-14 16:03

    怎么用ECHO显示所输出的数据3101DF05........

hfxiang

1. 
   
2. for /f %%a in ('gawk "/3101DF05.{8}/{print gensub(/^.*3101DF05(.{8}).*$/,"\\1","g")}" input.xml') do echo %%a
   

复制代码

aloha20200628

LZ请看最新回复》http://www.bathome.net/viewthrea ... mp;extra=#pid261350

Bonnie

LZ请看最新回复》
aloha20200628 发表于 2022-11-14 17:07

1. @set @n=0;WScript.Echo(eval('String.fromCharCode('+WScript.Arguments(0).replace(/(..)/g,"0x$1,")+'"")'));/*
   
2. @echo off
   
3. set /p "hex=请输入数据："
   
4. for /f "delims=" %%Y in ('cscript -nologo -e:jscript "%~0" %hex%') do set "bin=%%Y"
   
5. ECHO 您的密码为：%bin%
   
6. pause */

复制代码

以上16进制转换成字符串代码没办法串进去 （3101DF05后面的8个字符）

aloha20200628

还是重新粘贴一下在“批处理如何在XML内查找内容,显示查找到的内容及后面8个字符”旧帖中的最后回复吧...
如下》
刚下载了lz的样本文件，才知其中‘给CMD埋了个大坑’，目标字段‘3101DF05...’所在行的字符量=70680，远超过纯P单个变量的上限（8k)，for (...) 和 set ... 根本扛不住findstr的返回值。如此本贴须请其他脚本代劳了。
再给一个cmd+cscript@js混编代码》
还是先用 dir /s/b/a-d/o-d/tw 获取指定目录下最新创建或修改的目标文件

1. 
   
2. @set @v=1 /*
   
3. @echo off
   
4. (dir/s/b/a-d/o-d/tw C:\oud\traces\*.xml)>tmp.txt&(set/p inF=<tmp.txt)&(del/q tmp.txt)
   
5. for /f "delims=" %%v in ('cscript /e:jscript "%~f0" "%inF%" ') do echo,%%v
   
6. exit/b
   
7. */
   
8.     var v = WSH.Arguments;
   
9.     var fso = new ActiveXObject('scripting.filesystemobject');
   
10.     var fp = fso.opentextfile(v(0));
    
11.     var alllines = fp.readall(); fp.Close();
    
12.     alllines = alllines.replace(/[\r\n]/g, '');
    
13.     var kwF = alllines.replace(/.*(3101DF05.{8}).*/gi, '$1');
    
14.     WSH.Echo(kwF);
    

复制代码

BAT221110

以下脚本保存为OUD.VBS，放在C:\oud\traces，在命令行输入

1. CSCRIPT OUD.VBS

复制代码

来运行。运行结果示例：

1. Microsoft (R) Windows Script Host Version 5.8
   
2. 版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。
   
3. 
   
4. 31323334

复制代码

代码：

1. FUNCTION MRF192(FD4, DATE4, FN4) ' MOST RECENT FOLDER
   
2.         DIM F1, FSO
   
3. 
   
4.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
   
5.         FOR EACH F1 IN FSO.GETFOLDER(FD4).SUBFOLDERS
   
6.                 IF F1.DATECREATED > DATE4 THEN
   
7.                         DATE4 = F1.DATECREATED
   
8.                         SET FN4 = F1
   
9.                 END IF
   
10.         NEXT
    
11.        
    
12.         SET MRF192 = FN4
    
13. END FUNCTION
    
14. 
    
15. 
    
16. FUNCTION GETMRF
    
17.         DIM FSO, F, FC, FD4
    
18.         DIM MRF925V ' MOST RECENT FOLDER
    
19.        
    
20.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
    
21.         SET MRF925V = MRF192("AC", DATESERIAL(1970, 1, 1), NOTHING)
    
22.         SET MRF925V = MRF192("ADS", MRF925V.DATECREATED, MRF925V)
    
23.         SET MRF925V = MRF192("AP", MRF925V.DATECREATED, MRF925V)
    
24.         SET GETMRF = MRF925V
    
25. END FUNCTION
    
26. 
    
27. 
    
28. SUB FINDXML28(OUT207)
    
29.         DIM MRF925V, CMD329, WSH329
    
30.        
    
31.         SET WSH329 = CREATEOBJECT("WSCRIPT.SHELL")
    
32.         SET MRF925V = GETMRF
    
33.        
    
34.         CMD329 = "CMD /C FINDSTR /S /M 3101DF05 """ & MRF925V.PATH & "\*.xml"" > " & OUT207
    
35.         WSH329.RUN CMD329, 10, TRUE
    
36. END SUB
    
37. 
    
38. 
    
39. FUNCTION READ4UTF8(FPATH)
    
40.     DIM ADOS
    
41.     SET ADOS = CREATEOBJECT("ADODB.STREAM")
    
42.      
    
43.     WITH ADOS
    
44.         .CHARSET = "UTF-8"
    
45.         .TYPE = 2
    
46.         .OPEN
    
47.         .LOADFROMFILE FPATH
    
48.         READ4UTF8 = .READTEXT
    
49.         .CLOSE
    
50.     END WITH
    
51.     SET ADOS = NOTHING
    
52. END FUNCTION
    
53. 
    
54. 
    
55. SUB FINDHEX46(LINE40)
    
56.         DIM REGEX, MATCH, MATCHES
    
57.         SET REGEX = NEW REGEXP
    
58.         REGEX.PATTERN = "3101DF05(........)"
    
59.         SET MATCHES = REGEX.EXECUTE(READ4UTF8(LINE40))
    
60.         WSCRIPT.ECHO MATCHES(0).SUBMATCHES(0)
    
61. END SUB
    
62. 
    
63. 
    
64. SUB FINDHEXS(OUT207)
    
65.         DIM FSO, TS
    
66.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
    
67.         SET TS = FSO.OPENTEXTFILE(OUT207, 1, FALSE, TRISTATETRUE)
    
68.        
    
69.         DO UNTIL TS.ATENDOFSTREAM
    
70.                 FINDHEX46 TS.READLINE
    
71.         LOOP
    
72.        
    
73.         TS.CLOSE
    
74. END SUB
    
75. 
    
76. SUB MAIN4
    
77.         DIM OUT207
    
78.        
    
79.         OUT207 = "OUDTMP12421.TXT"
    
80.         FINDXML28 OUT207
    
81.         FINDHEXS OUT207
    
82. END SUB
    
83. 
    
84. MAIN4

复制代码

Bonnie

以下脚本保存为OUD.VBS，放在C:\oud\traces，在命令行输入来运行。运行结果示例：代码：
BAT221110 发表于 2022-11-14 18:49

1. Microsoft Windows [版本 10.0.19045.2251]
   
2. (c) Microsoft Corporation。保留所有权利。
   
3. 
   
4. C:\Windows\system32>cd C:\oud\traces
   
5. 
   
6. C:\oud\traces>CSCRIPT oud.vbs
   
7. Microsoft (R) Windows Script Host Version 5.812
   
8. 版权所有(C) Microsoft Corporation。保留所有权利。
   
9. 
   
10. C:\oud\traces\oud.vbs(5, 2) Microsoft VBScript 运行时错误: 路径未找到
    
11. 
    
12. 
    
13. C:\oud\traces>

复制代码

哈哈。。。

BAT221110

5.1版

1. SUB DEBUGPRINT819(S)
   
2.         'WSCRIPT.ECHO "[DEBUG] " & S
   
3. END SUB
   
4. 
   
5. 
   
6. FUNCTION DATECREATED821(X) ' DATECREATED OR NOTHING
   
7.         IF X IS NOTHING THEN
   
8.                 DATECREATED821 = DATESERIAL(1970, 1, 1)
   
9.         ELSE
   
10.                 DATECREATED821 = X.DATECREATED
    
11.         END IF
    
12. END FUNCTION
    
13. 
    
14. 
    
15. FUNCTION MRF192(FD4, FN4) ' MOST RECENT FOLDER
    
16.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
    
17.         IF FSO.FOLDEREXISTS(FD4) THEN
    
18.                 DEBUGPRINT819 "READ FOLDER " & FD4
    
19.                 DATE4 = DATECREATED821(FN4)
    
20.                 FOR EACH F1 IN FSO.GETFOLDER(FD4).SUBFOLDERS
    
21.                         IF F1.DATECREATED > DATE4 THEN
    
22.                                 DATE4 = F1.DATECREATED
    
23.                                 SET FN4 = F1
    
24.                         END IF
    
25.                 NEXT
    
26.         END IF       
    
27.        
    
28.         SET MRF192 = FN4
    
29. END FUNCTION
    
30. 
    
31. 
    
32. FUNCTION GETMRF
    
33.         DIM FSO, F, FC, FD4
    
34.         DIM MRF925V ' MOST RECENT FOLDER
    
35.        
    
36.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
    
37.         SET MRF925V = NOTHING
    
38.         SET MRF925V = MRF192("AC", MRF925V)
    
39.         SET MRF925V = MRF192("ADS", MRF925V)
    
40.         SET MRF925V = MRF192("AP", MRF925V)
    
41.         SET GETMRF = MRF925V
    
42. END FUNCTION
    
43. 
    
44. 
    
45. SUB FINDXML28(OUT207)
    
46.         DIM MRF925V, CMD329, WSH329
    
47.        
    
48.         SET WSH329 = CREATEOBJECT("WSCRIPT.SHELL")
    
49.         SET MRF925V = GETMRF
    
50.        
    
51.         CMD329 = "CMD /C FINDSTR /S /M 3101DF05 """ & MRF925V.PATH & "\*.xml"" > " & OUT207
    
52.         WSH329.RUN CMD329, 10, TRUE
    
53. END SUB
    
54. 
    
55. 
    
56. FUNCTION READ4UTF8(FPATH)
    
57.     DIM ADOS
    
58.     SET ADOS = CREATEOBJECT("ADODB.STREAM")
    
59.      
    
60.     WITH ADOS
    
61.         .CHARSET = "UTF-8"
    
62.         .TYPE = 2
    
63.         .OPEN
    
64.         .LOADFROMFILE FPATH
    
65.         READ4UTF8 = .READTEXT
    
66.         .CLOSE
    
67.     END WITH
    
68.     SET ADOS = NOTHING
    
69. END FUNCTION
    
70. 
    
71. 
    
72. FUNCTION HEX2INT701(X)
    
73.         HEX2INT701 = EVAL("&H" & X)
    
74. END FUNCTION
    
75. 
    
76. 
    
77. FUNCTION HEX2STR75(X)
    
78.         S768 = ""
    
79.        
    
80.         FOR I = 1 TO LEN(X) / 2
    
81.                 I798 = HEX2INT701(MID(X, I*2 - 1, 2))
    
82.                 S768 = S768 & CHR(I798)
    
83.         NEXT
    
84.        
    
85.         HEX2STR75 = S768
    
86. END FUNCTION
    
87. 
    
88. 
    
89. SUB FINDHEX46(LINE40)
    
90.         DIM REGEX, MATCH, MATCHES
    
91.         SET REGEX = NEW REGEXP
    
92.         REGEX.PATTERN = "3101DF05(........)"
    
93.         SET MATCHES = REGEX.EXECUTE(READ4UTF8(LINE40))
    
94.         WSCRIPT.ECHO HEX2STR75(MATCHES(0).SUBMATCHES(0))
    
95. END SUB
    
96. 
    
97. 
    
98. SUB FINDHEXS(OUT207)
    
99.         DIM FSO, TS
    
100.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
     
101.         SET TS = FSO.OPENTEXTFILE(OUT207, 1, FALSE, TRISTATETRUE)
     
102.        
     
103.         DO UNTIL TS.ATENDOFSTREAM
     
104.                 FINDHEX46 TS.READLINE
     
105.         LOOP
     
106.        
     
107.         TS.CLOSE
     
108. END SUB
     
109. 
     
110. 
     
111. SUB RMFILE109(X)
     
112.         SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
     
113.         FSO.DELETEFILE(X)
     
114. END SUB
     
115. 
     
116. 
     
117. SUB MAIN4
     
118.         OUT207 = "OUDTMP12421.TXT"
     
119.         FINDXML28 OUT207
     
120.         FINDHEXS OUT207
     
121.         RMFILE109 OUT207
     
122. END SUB
     
123. 
     
124. MAIN4

复制代码