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$を書き込みます。しかし、2番目のループで何をしているのでしょうか？kとは何ですか？

入力は通常の.csvファイルです。

ありがとう。

PS私のひどい英語でごめんなさい:)

4

2 に答える 2

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

ファイルをバイト単位で読み戻しています。

于 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 に答える