ｈ０４ - プログラム倉庫

Private Sub Command1_Click()
Dim data(1 To 100000) As String
Dim n As Single
Dim buf As String
Dim x As String
Dim m As Single
Dim num(1 To 100) As Single
Dim mx(5 To 100, 0 To 200) As Single
Dim fx(5 To 100, 0 To 200) As Single
Dim maxm As Single
Dim maxn As Single
Dim nx As Single
Dim nc As Single
Dim year As Single
n = 1
Open "c:\eli\800.txt" For Input As #68
Do Until EOF(68)
Line Input #68, buf
data(n) = buf
n = n + 1
Loop
Close #68
maxn = n - 1
m = 1
For n = 1 To maxn
x = Mid(data(n), 1, 2)
If x = "総数" Then num(m) = n
If x = "総数" Then m = m + 1
Next
maxm = m - 1
year = 5
For m = 1 To maxm
For nc = 1 To 50
nx = num(m) + nc
z = Split(data(nx), " ")
age = z(0)
mx(year, age) = z(2)
fx(year, age) = z(3)
age = z(4)
mx(year, age) = z(6)
fx(year, age) = z(7)
Next
For nc = 53 To 57
nx = num(m) + nc
z = Split(data(nx), " ")
age = z(0)
mx(year, age) = z(2)
fx(year, age) = z(3)
Next
year = year + 1
Next
Open "c:/eli/321.txt" For Output As #11
For year = 5 To 55
For age = 0 To 100
Write #11, year, age, mx(year, age), fx(year, age)
Next
Next
Close #11
End Sub