中国DOS联盟

　　为了让你看到效果，做个演示代码：
@echo off for /f "tokens=2 delims==" %%i in (my.txt) do call :link "%%i" pause goto :eof :link set str=%1 set "str=%str:~1,-1%" set /a num+=1 set "str=%str%%var%" set "var=%str%" if %num% equ 2 ( echo "%str%" set num=0 set str= set var= ) goto :eof

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt",1)
do while file.AtEndOfStream <> True
m="%%%%%%%%%%%%%%%%%"
n=file.readline
if left(n,9)="FileName=" then a=right(n,len(n)-9)&vbcrlf
if left(n,5)="Path=" then m=right(n,len(n)-5)&a
if m<>"%%%%%%%%%%%%%%%%%" then mm=mm&m
m="%%%%%%%%%%%%%%%%%"
loop
file.close
set file=fso.createtextfile("my.txt",true)
file.write mm
file.close
msgbox "提取内容成功！请查看my.txt文件。",48+4096,"操作完成"

test.txt内容如下：
XXXXX...=***... XXXX...=.../ XXX...=... ... XXX...=... FileName=123 XXX...=... Path=c:\ ... ... FileName=456 ... Path=d:\ FileName=789 ... Path=e:\ ...


my.bat代码如下：

@echo off for /f "tokens=1,2 delims==" %%i in (test.txt) do ( if "%%i"=="FileName" (>>a.txt echo %%j) if "%%i"=="Path" (>>a.txt echo %%j) ) setlocal enabledelayedexpansion for /f "delims=: tokens=1*" %%i in ('findstr /n .* a.txt') do set num=%%i && set "%%i=%%j" set str= for /l %%i in (1,1,%num%) do ( if defined str (>>my.txt echo,!%%i!!str!&& set "str=" ) else ( set "str=!%%i!" ) ) >>my.txt echo,!str!&& set "str="

运行结果
my.txt内容如下：
c:\123 d:\456 e:\789

多谢 ccwan ，这次给出的脚本已经非常完善了。

脚本的功能真是强大！

再次感谢各位。

这个该如何解决???

提取 text.txt
----------------------------------------------
ab.exe
2006.10.26
c:\my\
cde.com
2007.1.1
d:\
f.bat
2007.1.3
c:\
...
-----------------------------------------------



输出为 list.txt
----------------------------------------------
c:\my\ab.exe 2006.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
...
-----------------------------------------------




然后通过比较不同的 list.txt 提取出最新的文件列表
--------------------------------------------------------
c:\my\ab.exe 2006.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
...
--------------------------------------------------------

--------------------------------------------------------
c:\my\ab.exe 2007.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
...
--------------------------------------------------------


即
--------------------------------------------------------
c:\my\ab.exe 2007.10.26
...
--------------------------------------------------------

[ Last edited by gyfhgyfh on 2007-1-5 at 02:38 AM ]

没有明白你说的“然后通过比较不同的 list.txt 提取出最新的文件列表”是什么意思？

　　jmz573515 兄的代码不错。

　　若要用批处理来提取test.txt的内容，在16楼的演示代码上稍作修改即可。因为考虑到路径中有可能含有特殊字符，比如空格、&、!等符号，所以生成 list.txt 的时候，把路径用引号括起来了：
@echo off cd.>list.txt set num=0 for /f "delims=" %%i in (test.txt) do call :link "%%i" start list.txt goto :eof :link set str=%1 set "str=%str:~1,-1%" set /a num+=1 if %num% equ 2 ( set "time_=%str%" ) else ( call set "str=%%str%%%var%" set "var=%str%" ) if %num% equ 3 ( echo "%str% %time_%">>list.txt set num=0 set str= set time_= ) goto :eof
　　至于比较两个文件的内容，则比较复杂，暂时还没想到怎样才能提取到最新的记录——如果两个list.txt中的记录是一一对应的、只是时间有所不同，则比较好办一点。

[ Last edited by namejm on 2007-1-4 at 02:19 PM ]

A.txt
---------------------------------
c:\my\ab.exe 2006.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
---------------------------------



B.txt
---------------------------------
c:\my\ab.exe 2007.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
---------------------------------


fc A.txt B.txt > my.txt
---------------------------------
正在比较文件 A.txt 和 B.TXT
***** A.txt
c:\my\ab.exe 2006.10.26
d:\cde.com 2007.1.1
***** B.TXT
c:\my\ab.exe 2007.10.26
d:\cde.com 2007.1.1
*****
---------------------------------

如何只提取时间最近的
c:\my\ab.exe 2007.10.26

　　用 FC 来比较文本，会输出很多无用的干扰信息，要想提取到有用的信息将十分烦琐，不推荐用它来做比较。

　　还是那个问题：不同的list.txt中，每条记录都是一一对应的、只是时间有所不同吗？如果是这样的话，那就十分好办了。

Originally posted by namejm at 2007-1-5 03:54:
　　用 FC 来比较文本，会输出很多无用的干扰信息，要想提取到有用的信息将十分烦琐，不推荐用它来做比较。

　　不同的list.txt中，每条记录都是一一对应的、只是时间有所不同吗？如果是这样的话，那就十分好办了。

正如您所说,

不同的list.txt中，每条记录都是一一对应的.只是时间有所不同。

该如何解决???


listA.txt
---------------------------------
c:\my\ab.exe 2006.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
---------------------------------



listB.txt
---------------------------------
c:\my\ab.exe 2007.10.26
d:\cde.com 2007.1.1
c:\f.bat 2007.1.3
---------------------------------





　　

[ Last edited by gyfhgyfh on 2007-1-5 at 05:28 AM ]

　　给你一段演示代码，用于显示两个文件的对应行不同的行内容，效率比较低下：
@echo off set num=0 for /f "delims=" %%i in ('findstr .* listA.txt') do call :comp_ "%%i" pause goto :eof :comp_ for /f "delims=" %%i in ('more +%num% listB.txt') do ( if not "%%i"==%1 echo %1 与 "%%i" 不同 set /a num+=1 goto :eof )

非常感谢　namejm　jmz573515　ccwan　的帮助。谢谢。


@echo off set num=0 for /f "delims=" %%i in ('findstr .* old.txt　') do call :comp_ "%%i" goto :eof :comp_ for /f "delims=" %%i in ('more +%num% new.txt ') do ( if not "%%i"==%1 echo %%i> list.txt set /a num+=1 goto :eof )

[ Last edited by gyfhgyfh on 2007-1-5 at 06:11 AM ]