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

Rank: 1

帖子
27 
积分
49 
技术
0  
捐助
0  
注册时间
2020-7-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-11-13 12:36 | 只看该作者

[文本处理] [已解决]另外一个帖子，批处理如何在XML内查找内容,显示查找到的内容及后面8个字符？

本帖最后由 Bonnie 于 2022-11-14 16:09 编辑 
  1. <# :

  2. cls&echo off&cd /d "%~dp0"&rem 编码ANSI

  3. set "tmpfile=%tmp%\t.t"

  4. powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"

  5. for /f "tokens=1* delims=|" %%a in ('type "%tmpfile%"') do (

  6. 

  7.     findstr /s /m "3101DF05" "%%a\*.xml"

  8. )

  9. pause

  10. exit

  11. #>

  12. $folder="C:\oud\traces";

  13. $subfolder=@("AC","ADS","AP");

  14. [System.Collections.ArrayList]$fdlist=@();

  15. for($i=0;$i -lt $subfolder.length;$i++){

  16.     $fd=$folder+'\'+$subfolder[$i];

  17.     if(test-path -literal $fd){

  18.         $folders=@(dir -literal $fd|?{$_ -is [System.IO.DirectoryInfo]});

  19.         for($j=0;$j -lt $folders.length;$j++){

  20.             [void]$fdlist.add($folders[$j]);

  21.         }

  22.     }

  23. }

  24. $tmpfile=$env:tmpfile;[System.Collections.ArrayList]$s=@();

  25. $newfolder=($env:USERPROFILE)+'\Desktop\'+(get-date).ToString('yyyyMMdd_HHmm')+'';

  26. if($fdlist.count -ge 1){

  27.     $arr=@($fdlist|sort {$_.CreationTime} -Descending);

  28.     write-host ('['+$arr[0].CreationTime.ToString('yyyy-MM-dd HH:mm:ss')+']'+$arr[0].FullName);

  29.     [void]$s.add($arr[0].FullName+'|'+$newfolder);

  30. }

  31. [void]$s.add('C:\AWRoot\dtwr\stcapi\home\temp|'+$newfolder);

  32. [IO.File]::WriteAllLines($tmpfile, $s, [Text.Encoding]::GetEncoding('GB2312'));
复制代码
这是上面这批处理运行后所显示的内容：   运行所显示出来的是查找3101DF05所在的文件名和路径。
[2022-11-13 10:40:20]C:\oud\traces\AP\637059140efe9889022951
C:\oud\traces\AP\637059140efe9889022951\637059140efe9889022951.TU.20221113-104020.xml
请按任意键继续. . .

我想达到的效果是运行后所显示的第二行文件名及路径这个文件里面的3101DF05及后面的8个字符。


大概说一下代码里面的内容：在C:\oud\traces目前下的AC、ADS、AP三个文件夹内寻找最新时间创建的文件夹。
    在最新时间创建的文件夹下查找XML文件里所包含的字符"3101DF05”。
(把C:\oud\traces下最新创建的乱码文件夹下的所有文件及C:\AWRoot\dtwr\stcapi\home\temp下所有的文件,复制到在当前桌面创建一个当前日期和时间的文件夹内。）
注：括号内的功能我不需要了。。另外一个程序需要用到。
收藏 分享

BAT221110

Rank: 1

帖子
55 
积分
69 
技术
1  
捐助
0  
注册时间
2022-11-10 
2楼
发表于 2022-11-13 12:48 | 只看该作者
可以给个文件做测试吗?

TOP

Bonnie

Rank: 1

帖子
27 
积分
49 
技术
0  
捐助
0  
注册时间
2020-7-18 
3楼
发表于 2022-11-13 12:55 | 只看该作者
可以给个文件做测试吗?
BAT221110 发表于 2022-11-13 12:48



    链接: https://pan.baidu.com/s/1hSo3uTlgs7AOuRE05-RQtA?pwd=57er 提取码: 57er 复制这段内容后打开百度网盘手机App，操作更方便哦

TOP

BAT221110

Rank: 1

帖子
55 
积分
69 
技术
1  
捐助
0  
注册时间
2022-11-10 
4楼
发表于 2022-11-13 14:48 | 只看该作者
不知道用FINDSTR如何达到这样的效果，我是用正则表达式实现的。

首先，把下面的文件存到OUD.VBS：
  1. FUNCTION READ4(FPATH)

  2. 	DIM ADOS

  3. 	SET ADOS = CREATEOBJECT("ADODB.STREAM")

  4. 	

  5. 	WITH ADOS

  6. 		.CHARSET = "UTF-8"

  7. 		.TYPE = 2

  8. 		.OPEN

  9. 		.LOADFROMFILE FPATH

  10. 		READ4 = .READTEXT

  11. 		.CLOSE

  12. 	END WITH

  13. 	SET ADOS = NOTHING

  14. END FUNCTION

  15. 

  16. SUB MAIN4(SEARCH, FPATH)

  17. 	DIM REGEX, MATCH, MATCHES

  18. 	SET REGEX = NEW REGEXP

  19. 	REGEX.PATTERN = SEARCH & "........"

  20. 	SET MATCHES = REGEX.EXECUTE(READ4(FPATH))

  21. 	WSCRIPT.ECHO MATCHES(0)

  22. END SUB

  23. 

  24. MAIN4 WSCRIPT.ARGUMENTS(0), WSCRIPT.ARGUMENTS(1)
复制代码
然后，把原来代码的第7行（findstr）换为：
  1.     findstr /s /m "3101DF05" "%%a\*.xml" > OUDTMP12421.TXT

  2.     SET /P DAT=<OUDTMP12421.TXT

  3.     CSCRIPT OUD.VBS //NOLOGO "3101DF05" %DAT%
复制代码
这三行的作用是把原先FINDSTR的输出存到一个临时文件，然后调用VBS。VBS中用正则表达式来提取你要的字符。

TOP

Bonnie

Rank: 1

帖子
27 
积分
49 
技术
0  
捐助
0  
注册时间
2020-7-18 
5楼
发表于 2022-11-13 14:53 | 只看该作者
回复 4# BAT221110


    [2022-11-13 10:40:20]C:\oud\traces\AP\637059140efe9889022951
C:\Users\X230\Desktop\OUD.VBS(24, 1) Microsoft VBScript 运行时错误: 下标越界

C:\Users\X230\Desktop\OUD.VBS(24, 1) Microsoft VBScript 运行时错误: 下标越界

请按任意键继续. . .


运行提示错误。。下标越界

TOP

hfxiang

Rank: 5Rank: 5

帖子
583 
积分
1083 
技术
157  
捐助
0  
注册时间
2022-6-20 
6楼
发表于 2022-11-13 15:15 | 只看该作者
下载gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ）后，执行：
  1. gawk "/3101DF05.{8}/{print gensub(/^.*(3101DF05.{8}).*$/,\"\\1\",\"g\")}" 637059140efe9889022951.TU.20221113-104020.xml>out.txt
复制代码
结果（out.txt）
  1. 3101DF0531323334
复制代码

TOP

BAT221110

Rank: 1

帖子
55 
积分
69 
技术
1  
捐助
0  
注册时间
2022-11-10 
7楼
发表于 2022-11-13 15:27 | 只看该作者
本帖最后由 BAT221110 于 2022-11-13 15:30 编辑

我用压缩包测试时可以的。可能是用单个文件测试通过，多个文件要稍微改动下。楼上用GAWK的方法更好。

TOP

aloha20200628

Rank: 5Rank: 5

帖子
457 
积分
782 
技术
104  
捐助
0  
注册时间
2021-10-13 
8楼
发表于 2022-11-13 19:00 | 只看该作者
本帖最后由 aloha20200628 于 2022-11-14 16:58 编辑 

  1. @echo off

  2. set "inF=C:\oud\traces\AP\637059140efe9889022951\637059140efe9889022951.TU.20221113-104020.xml"

  3. set "p=3101df05" &setlocal enabledelayedexpansion

  4. for /f "delims=" %%a in ('findstr /i /r "%p%........" "%inF%" ') do (

  5. 	set "s=%%a" & set "s1=!s:*%p%=!"

  6. 	echo,%p%!s1:~,8!

  7. )

  8. endlocal &exit/b
复制代码

TOP

BAT221110

Rank: 1

帖子
55 
积分
69 
技术
1  
捐助
0  
注册时间
2022-11-10 
9楼
发表于 2022-11-13 19:21 | 只看该作者
aloha20200628 发表于 2022-11-13 19:00



    这个方法厉害！

TOP

Bonnie

Rank: 1

帖子
27 
积分
49 
技术
0  
捐助
0  
注册时间
2020-7-18 
10楼
发表于 2022-11-14 09:06 | 只看该作者
aloha20200628 发表于 2022-11-13 19:00


    方法是很好用。但是这个文件名不是固定的：
    C:\oud\traces\AP\637059140efe9889022951\637059140efe9889022951.TU.20221113-104020.xml
     有时候是在C:\oud\traces\AC\下。有时是在C:\oud\traces\ADS\下。
     程序会在这个目录下C:\oud\traces\自动生成文件夹。。要在AC或AP或ADS文件夹下寻找最新创建的文件夹。

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
11楼
发表于 2022-11-14 10:28 | 只看该作者
你dir加个参数吧 最新时间出来了  直接FINDSTR

TOP

aloha20200628

Rank: 5Rank: 5

帖子
457 
积分
782 
技术
104  
捐助
0  
注册时间
2021-10-13 
12楼
发表于 2022-11-14 10:51 | 只看该作者
本帖最后由 aloha20200628 于 2022-11-14 16:59 编辑

备注》dir **中的 /o-d /tw 是按文件修改时间排序，/o-d /tc是按文件创建时间排序
  1. (dir/s/b/a-d/o-d/tw C:\oud\traces\*.xml)>tmp.txt&(set/p inF=<tmp.txt)&(del/q tmp.txt)

  2. 

  3. set "p=3101df05" &setlocal enabledelayedexpansion

  4. for /f "delims=" %%a in ('findstr /i /r "%p%........" "%inF%" ') do (

  5. 	set "s=%%a" & set "s1=!s:*%p%=!"

  6. 	echo,%p%!s1:~,8!

  7. )

  8. endlocal &exit/b
复制代码

TOP

Bonnie

Rank: 1

帖子
27 
积分
49 
技术
0  
捐助
0  
注册时间
2020-7-18 
13楼
发表于 2022-11-14 12:25 | 只看该作者
备注》dir **中的 /o-d /tw 是按文件修改时间排序，/o-d /tc是按文件创建时间排序
aloha20200628 发表于 2022-11-14 10:51



   
C:\Users\X230\Desktop>(dir/s/b/a-d/o-d/tw C:\oud\traces\*.xml ) 1>tmp.txt  & (set/p inF= 0<tmp.txt )  & (del/q tmp.txt )

C:\Users\X230\Desktop>set "p=3101DF05"   & setlocal enabledelayedexpansion

C:\Users\X230\Desktop>for /F "delims=" %a in ('findstr /r "3101DF05........" "C:\oud\traces\AP\637059140efe9889022951\637059140efe9889022951.TU.20221113-104020.xml" ') do (set "s=%a"   & set "s1=!s:*3101DF05=!"
echo,3101DF05!s1:~,8! )

C:\Users\X230\Desktop>endlocal   & pause & exit/b
请按任意键继续. . .

   大神，你好！好像  do动作没有运行。。。

TOP

aloha20200628

Rank: 5Rank: 5

帖子
457 
积分
782 
技术
104  
捐助
0  
注册时间
2021-10-13 
14楼
发表于 2022-11-14 16:50 | 只看该作者
刚下载了lz的样本文件，才知其中‘给CMD埋了个大坑’，目标字段‘3101DF05...’所在行的字符量=70680，远超过纯P单个变量的上限（8k)，for (...) 和 set ... 根本扛不住findstr的返回值。如此本贴须请其他脚本代劳了。
再给一个cmd+cscript@js混编代码》
还是先用 dir /s/b/a-d/o-d/tw 获取指定目录下最新创建或修改的目标文件
  1. @set @v=1 /*

  2. @echo off

  3. (dir/s/b/a-d/o-d/tw C:\oud\traces\*.xml)>tmp.txt&(set/p inF=<tmp.txt)&(del/q tmp.txt)

  4. for /f "delims=" %%v in ('cscript /e:jscript "%~f0" "%inF%" ') do echo,%%v

  5. exit/b

  6. */

  7. var v = WSH.Arguments;

  8. var fso = new ActiveXObject('scripting.filesystemobject');

  9. var fp = fso.opentextfile(v(0));

  10. var alllines = fp.readall(); fp.Close();

  11. alllines = alllines.replace(/[\r\n]/g, '');

  12. var kwF = alllines.replace(/.*(3101DF05.{8}).*/gi, '$1');

  13. WSH.Echo(kwF);
复制代码

TOP

返回列表