1

我需要阅读一些基本代码。我从来没有使用过 BASIC 并请你帮助我。有这样的代码

filedialog "Open","*.txt",file$
 if file$="" then end
open file$  for input as #f
'open "g:\data\funcfirstques.txt" for input as #f

while not(eof(#f))
  line input #f, a$
  i=i+1
wend
close #f
nrows=i

open "g:\data\junk.txt" for output as #1
print#1, a$
close #1

open "g:\data\junk.txt" for input as #1
while not(eof(#1))
input #1, b$
k=k+1
wend
close #1

据我了解，这里是打开文件file$，然后在第一个循环中，计算该文件中的行并将它们添加到数组a$中。然后打开文件junk.txt并将数组a$写入该文件。但是第二个循环在做什么？k是什么？

输入是通常的 .csv 文件。

谢谢。

PS对不起我糟糕的英语:)

4

2 回答 2

1

它正在读取文件

正如你所知道的

open "g:\data\junk.txt" for output as #1
print#1, a$
close #1

喜欢打开输出和打印#

同样这个...

open "g:\data\junk.txt" for input as #1
while not(eof(#1))
input #1, b$
k=k+1
wend

正在逐字节读取文件。

于 2013-01-29T09:31:05.690 回答
0

更正了读取文件的代码：

filedialog "Open","*.txt",file$
IF file$ = "" THEN END
OPEN file$ FOR INPUT AS #1
'OPEN "g:\data\funcfirstques.txt" FOR INPUT AS #1
OPEN "g:\data\junk.txt" FOR OUTPUT AS #2
WHILE NOT EOF(1)
    LINE INPUT #1, a$
    PRINT #2, a$
    i = i + 1
WEND
nrows = i
CLOSE #1, #2
OPEN "g:\data\junk.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
    INPUT #1, b$
    k = k + 1
WEND
CLOSE #1
PRINT "File has"; k; " lines."
END
于 2019-06-08T04:37:18.170 回答