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

看板Visual_Basic作者 (長孫轍)時間16年前 (2009/10/08 20:36), 編輯推噓3(306)
留言9則, 4人參與, 最新討論串1/1
由於,最近老師指導說, 要學獨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

10/08 21:10, , 1F
EOF(1) = 是否讀到#1的檔案結尾
10/08 21:10, 1F

10/08 21:56, , 2F
也就是說,如果我前面是拿#2當讀檔的,那就要輸入2,
10/08 21:56, 2F

10/08 21:56, , 3F
是這個意思嗎?
10/08 21:56, 3F

10/08 22:42, , 4F
恩 沒錯
10/08 22:42, 4F

10/09 00:11, , 5F
謝謝你的解釋。
10/09 00:11, 5F

10/09 00:41, , 6F
麻煩把<>和()的分別弄清楚再叫人「逐字解釋」程式。
10/09 00:41, 6F

10/09 00:45, , 7F
EOF(1> 兩邊用不一樣是什麼狀況?
10/09 00:45, 7F

10/09 00:54, , 8F
喔,因為複製貼上不小心刪除,編輯時候錯誤,已經編輯
10/09 00:54, 8F

10/09 00:54, , 9F
完畢。
10/09 00:54, 9F
※ 編輯: Changsunche 來自: 125.228.228.17 (10/09 00:57)
文章代碼(AID): #1ApTpghE (Visual_Basic)