うらうらｋｋ - プログラム倉庫

Private Sub Command1_Click()
Dim n As Single
Dim a(1 To 100000) As String
Dim buf As String
Dim p As Single
Dim endnum As Single
Dim endn As Single
Dim nx As Single
n = 1
Open "c:\juman\ebook2.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
a(n) = buf
n = n + 1
Loop
Close #1
endnum = n - 1
For n = 1 To 20
Debug.Print a(n)
Next

End Sub