PSID 29 - プログラム倉庫

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


End Sub