[VB6 ] 關於EOF(1)的解釋

[Changsunche (長孫轍)]

由於，最近老師指導說，
要學獨txt檔案以及輸出txt檔案，
所以給我了這樣的程式碼：
Private Sub Command1_Click()
Dim n1, n2 As Integer
Open "d:\00.txt" For Input As #1
Open "d:\01.txt" For Output As #2
Do While Not EOF(1)
    Input #1, n1, n2
    Print #2, n1, n2
    Print n1, n2
Loop
Close #1 , #2
End Sub

'------------------------------------------------
對於幾個地方有想請教的地方，
Input , Output , EOF(1)
重點這三個，不過說實話，對整組程式碼解釋不太了解，
只知道跑完之後，會怎樣，

重點在於EOF(1)這個地方，完完全全不知道它是做什麼的。
----------------------------------------------------

想請各位對於VB有瞭解的，
可以的話逐字解釋程式碼。

謝謝>w<
**********************************************

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.228.228.17
推 Y78:EOF(1) = 是否讀到#1的檔案結尾
→ Changsunche:也就是說，如果我前面是拿#2當讀檔的，那就要輸入2，
→ Changsunche:是這個意思嗎？
推 Y78:恩 沒錯
→ Changsunche:謝謝你的解釋。
→ MOONRAKER:麻煩把<>和()的分別弄清楚再叫人「逐字解釋」程式。
推 jwjeng:EOF(1>  兩邊用不一樣是什麼狀況?
→ Changsunche:喔，因為複製貼上不小心刪除，編輯時候錯誤，已經編輯
→ Changsunche:完畢。
※ 編輯: Changsunche     來自: 125.228.228.17       (10/09 00:57)