PSID PSID 2001 - プログラム倉庫

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
Dim year 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
Open "c:\psid\code03.txt" For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
n = a1
dname(3, n) = a2
dstart(3, n) = a3
dend(3, n) = a4
Loop
Close #5
n = 1
Open "c:\psid\psid03.txt" For Input As #6
Do Until EOF(6)
Line Input #6, buf
data(3, n) = buf
n = n + 1
Loop
Close #6
endn(3) = n - 1
Open "c:\psid\code01.txt" For Input As #7
Do Until EOF(7)
Input #7, a1, a2, a3, a4
n = a1
dname(1, n) = a2
dstart(1, n) = a3
dend(1, n) = a4
Loop
Close #7
n = 1
Open "c:\psid\psid01.txt" For Input As #8
Do Until EOF(8)
Line Input #8, buf
data(1, n) = buf
n = n + 1
Loop
Close #8
endn(1) = n - 1
code = 17001
For m = 1 To 3086
If dname(5, m) = code Then mx = m
If dname(5, m) = code Then year = 5
Next
For m = 1 To 3180
If dname(3, m) = code Then mx = m
If dname(3, m) = code Then year = 3
Next
For m = 1 To 3459
If dname(1, m) = code Then mx = m
If dname(1, m) = code Then year = 1
Next
For n = 1 To endn(year)
Debug.Print Mid(data(year, n), dstart(year, mx), dend(year, mx) - dstart(year, mx) + 1)
Next





End Sub