了解BASIC代码

时间:2013-01-29 09:25:34

标签: basic

我需要阅读一些基本代码。我从未与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

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

输入通常是.csv文件。

感谢。

P.S对不起我糟糕的英语:)

2 个答案:

答案 0 :(得分:1)

读取文件

正如你所知道的那样

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

喜欢打开OUTPUT和PRINT#

同样......

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

正在逐字节地读取文件。

答案 1 :(得分:0)

用于读取文件的正确代码:

out