PSID14 - プログラム倉庫

Private Sub Command1_Click()
Dim buf(1 To 10000) As String
Dim n As Single
Dim b As String
Dim start(1 To 10000) As Single
Dim num(1 To 10000) As Single
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim endnum As Single
n = 1
Open "c:\psid.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf(n)
n = n + 1
Loop
Close #1
endnum = n - 1
Debug.Print endnum
Debug.Print buf(100)
Open "c:/point.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
n = a1
start(n) = a2
num(n) = a3
Loop
Close #2
For n = 1 To 100
Debug.Print Mid(buf(n), start(50), num(50))
Next



End Sub