标题: [已结]如何比较两文件将不同的两行另外输出到文本呢? [打印本页]
作者: huzixuan 时间: 2007-10-29 21:15 标题: [已结]如何比较两文件将不同的两行另外输出到文本呢?
如何写一个vbs,比较两文件将不同的两行另外输出到文本呢?
新文本如下:
第 N 行的异处:
→
"a文本的某行"
"b文本的某行"
←
第 N 行的异处:
→
"a文本的某行"
"b文本的某行"
←
...
a文件已读完(/b文件已读完),b文件剩余N行不进行比较(/a文件剩余N行不进行比较)
[ Last edited by huzixuan on 2007-10-30 at 08:08 PM ]
作者: jmz573515 时间: 2007-10-30 09:12
a文件每一行用数组a(n),b文件每一行用数组b(n),然后比较输出
作者: jmz573515 时间: 2007-10-30 09:21
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
na=file.readall
file.close
set file=fso.opentextfile("b.txt")
nb=file.readall
file.close
sa=split(na,vbcrlf):la=ubound(sa)
sb=split(nb,vbcrlf):lb=ubound(sb)
if la<lb then
for i=0 to la
if sa(i)<>sb(i) then
sn=sn & sa(i) & vbcrlf & sb(i) & vbcrlf
end if
next
else
for i=0 to lb
if sa(i)<>sb(i) then
sn=sn & sa(i) & vbcrlf & sb(i) & vbcrlf
end if
next
end if
wscript.echo sn
set file=fso.opentextfile("a.txt")
na=file.readall
file.close
set file=fso.opentextfile("b.txt")
nb=file.readall
file.close
sa=split(na,vbcrlf):la=ubound(sa)
sb=split(nb,vbcrlf):lb=ubound(sb)
if la<lb then
for i=0 to la
if sa(i)<>sb(i) then
sn=sn & sa(i) & vbcrlf & sb(i) & vbcrlf
end if
next
else
for i=0 to lb
if sa(i)<>sb(i) then
sn=sn & sa(i) & vbcrlf & sb(i) & vbcrlf
end if
next
end if
wscript.echo sn
作者: abcd 时间: 2007-10-30 10:48
数组的下标有没有最大值？？