bvh - プログラム倉庫

Private Sub Command1_Click()
    
    Dim bun As String
    Dim ostr As String
    Dim ma As Object
    Dim n As Integer
    Dim a1 As String
    Dim a(1 To 1000) As String
    Dim nx As Single
    Dim s As Integer
    Dim files As String
    Dim x() As String
    
    Set ma = CreateObject("Tofu.TofuMA.1")
    
For s = 805 To 850
files = "c:/work/book/"
files = files + CStr(s)
files = files + ".txt"

n = 0

Open files For Input As #1
Do Until EOF(1)
Input #1, a1
n = n + 1
a(n) = a1
Loop
Close #1
    
    bun = a(1)
    For n = 1 To nx
    bun = bun + a(n)
Next
    ostr = ma.analyze(bun)

files = "c:/work/book/a"
files = files + CStr(s)
files = files + ".txt"

Open files For Output As #2
Write #2, ostr
Close #2
Next


End Sub