中国DOS联盟

如何写一个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 ]

a文件每一行用数组a(n),b文件每一行用数组b(n),然后比较输出

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

数组的下标有没有最大值？？