PSID40 - プログラム倉庫

Private Sub Command1_Click()
Dim n As Single
Dim a(1 To 100000) As String
Dim dname(1 To 10000) As Single
Dim dstart(1 To 10000) As Single
Dim dend(1 To 10000) As Single
Dim data(1 To 10000) As String
Dim kk() 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:\psid\code07.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
n = a1
dname(n) = a2
dstart(n) = a3
dend(n) = a4
Loop
Close #1
n = 1
Open "c:\psid\psid07.txt" For Input As #2
Do Until EOF(2)
Line Input #2, buf
data(n) = buf
n = n + 1
Loop
endn = n - 1
Close #2
For m = 1 To 5069
If dname(m) = 36002 Then mx = m
Next
For n = 1 To 100
Debug.Print Mid(data(n), dstart(mx), dend(mx) - dstart(mx) + 1)
Next


End Sub