主题:关于程序冲突的问题,请帮忙?
sanliren
[专家分:0] 发布于 2005-12-22 13:52:00
以下这个程序插入某个程序中有冲突,要运行2次才有作用!
问题好象出在#1 #2 的地方,请帮我改改?
谢谢!
open "A.txt" for binary as #1
open "B.txt" for binary as #2
if lof(1)=lof(2) then
same=-1
do until eof(1)
a$=input$(16383,#1)
b$=input$(16383,#2)
if a$>b$ then
same=0
exit do
endif
loop
endif
close #1,#2
if same then shell "A.EXE" else shell "B.EXE"
回复列表 (共4个回复)
沙发
moz [专家分:37620] 发布于 2005-12-22 14:20:00
f1=freefile
open "A.txt" for binary as #f1
f2=freefile
open "B.txt" for binary as #f2
if lof(f1)=lof(f2) then
same=-1
do until eof(f1)
a$=input$(16383,#f1)
b$=input$(16383,#f2)
if a$>b$ then
same=0
exit do
endif
loop
endif
close #f1,#f2
if same then shell "A.EXE" else shell "B.EXE"
板凳
sanliren [专家分:0] 发布于 2005-12-22 14:40:00
太感谢!问题已解决!
3 楼
moz [专家分:37620] 发布于 2005-12-22 15:21:00
那程序一看就知道是我写的,你不找我改找谁改?
4 楼
jyf1987 [专家分:930] 发布于 2005-12-24 23:29:00
哼.害了人又来当好人
我来回复