|
namejm
荣誉版主
batch fan
积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
|
『第
16 楼』:
为了让你看到效果，做个演示代码：
@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
|
尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。 |
|
 2007-1-4 00:07 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
17 楼』:
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,"操作完成"
|
|
|
2007-1-4 00:22 |
|
|
gyfhgyfh
初级用户
积分 54
发帖 25
注册 2006-9-29
状态 离线
|
『第
18 楼』:
多谢各位，终于明白了。
祝大家新年快乐！！！
|
|
|
2007-1-4 00:40 |
|
|
ccwan
金牌会员
积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
|
『第
19 楼』:
test.txt内容如下：
[XXXXXXXX...]
XXXXX...=***...
XXXX...=.../
XXX...=...
...
[XXXXXXXX...]
XXX...=...
FileName=123
XXX...=...
Path=c:\
...
[XXXXXXXX...]
...
FileName=456
...
Path=d:\
[XXXXXXXX...]
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="
|
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。 |
|
|
2007-1-4 04:36 |
|
|
ccwan
金牌会员
积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
|
『第
20 楼』:
运行结果
my.txt内容如下：
c:\123
d:\456
e:\789
|
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。 |
|
|
2007-1-4 04:39 |
|
|
gyfhgyfh
初级用户
积分 54
发帖 25
注册 2006-9-29
状态 离线
|
『第
21 楼』:
多谢 ccwan ，这次给出的脚本已经非常完善了。
脚本的功能真是强大！
再次感谢各位。
|
|
|
2007-1-4 05:16 |
|
|
gyfhgyfh
初级用户
积分 54
发帖 25
注册 2006-9-29
状态 离线
|
『第
22 楼』:
这个该如何解决???
提取 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 ]
|
|
|
2007-1-5 02:21 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
23 楼』:
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt",1)
m=1
do while file.AtEndOfStream <> True
n=file.readline
if m=1 then
a=n
m=m+1
elseif m=2 then
a=a&" "&n
m=m+1
elseif m=3 then
a=n&a
m=1
s=s&a&vbcrlf
a=""
end if
loop
file.close
set file=fso.createtextfile("my.txt",true)
file.write s
file.close
msgbox "提取内容成功！请查看my.txt文件。",48+4096,"操作完成"
|
|
|
2007-1-5 03:00 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
24 楼』:
没有明白你说的“然后通过比较不同的 list.txt 提取出最新的文件列表”是什么意思？
|
|
|
2007-1-5 03:06 |
|
|
namejm
荣誉版主
batch fan
积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
|
『第
25 楼』:
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 ]
|
尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。 |
|
|
2007-1-5 03:18 |
|
|
gyfhgyfh
初级用户
积分 54
发帖 25
注册 2006-9-29
状态 离线
|
『第
26 楼』:
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
|
|
|
2007-1-5 03:33 |
|
|
namejm
荣誉版主
batch fan
积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
|
『第
27 楼』:
用 FC 来比较文本，会输出很多无用的干扰信息，要想提取到有用的信息将十分烦琐，不推荐用它来做比较。
还是那个问题：不同的list.txt中，每条记录都是一一对应的、只是时间有所不同吗？如果是这样的话，那就十分好办了。
|
尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。 |
|
|
2007-1-5 03:54 |
|
|
gyfhgyfh
初级用户
积分 54
发帖 25
注册 2006-9-29
状态 离线
|
『第
28 楼』:
| Quote: | 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 ]
|
|
|
2007-1-5 05:16 |
|
|
namejm
荣誉版主
batch fan
积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
|
『第
29 楼』:
给你一段演示代码，用于显示两个文件的对应行不同的行内容，效率比较低下：
@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
)
|
尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。 |
|
|
2007-1-5 05:49 |
|
|
gyfhgyfh
初级用户
积分 54
发帖 25
注册 2006-9-29
状态 离线
|
『第
30 楼』:
非常感谢 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 ]
|
|
|
2007-1-5 06:07 |
|
