PSID 62 - プログラム倉庫

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





End Sub