回 帖 发 新 帖 刷新版面

主题:关于程序冲突的问题,请帮忙?


以下这个程序插入某个程序中有冲突,要运行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个回复)

沙发

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"

板凳

太感谢!问题已解决!

3 楼

那程序一看就知道是我写的,你不找我改找谁改?

4 楼

哼.害了人又来当好人

我来回复

您尚未登录,请登录后再回复。点此登录或注册