注册 登录
编程论坛 VB6论坛

关于VB6如何导出TXT文件中的内容进行对比

ht19910815 发布于 2013-04-24 16:11, 416 次点击
新手求助,VB6如何导出两个TXT文件中的内容进行对比。
如果内容相同,则显示YES,若内容不相同,则显示NO。
请高手帮助!万分感谢!
3 回复
#2
ht199108152013-04-24 16:11
在线等待中!
#3
ht199108152013-04-24 16:41
求指教!
#4
zhengang10262013-04-25 08:30
先分别打开两个txt文件,读取文件内容再进行对比,如同弹出Yes对话框,否则弹出NO对话框。例如:
OPEN "a.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, nextline
A = A + vbNewLine + A '用来保存a.txt中的内容
LOOP
CLOSE #1
OPEN "b.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, nextline
B = B + vbNewLine + B ’用来保存b.txt中的内容
LOOP
CLOSE #1
if A=B then '大致意思如此,该如何比较,你自己写
MsgBox ("Yes")
else
MsgBox ("No")
end if


[ 本帖最后由 zhengang1026 于 2013-4-26 08:52 编辑 ]
1