中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-06 07:08

共 48,039 主题排行 / 350,124 发帖 / 今日 2 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » [已结]如何比较两文件将不同的两行另外输出到文本呢?

可打印版本　808 / 3

第1楼　huzixuan	发表于 2007-10-29 21:15
高级用户　发帖 219　积分 537　来自芜湖
[已结]如何比较两文件将不同的两行另外输出到文本呢? 如何写一个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 ]

第2楼　jmz573515	发表于 2007-10-30 09:12
银牌会员　发帖 464　积分 1,212
a文件每一行用数组a(n),b文件每一行用数组b(n),然后比较输出

第3楼　jmz573515	发表于 2007-10-30 09:21
银牌会员　发帖 464　积分 1,212
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

第4楼　abcd	发表于 2007-10-30 10:48
银牌会员　发帖 739　积分 1,436
数组的下标有没有最大值？？

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023