とふ３ - プログラム倉庫

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
    Set ma = CreateObject("Tofu.TofuMA.1")
    Dim s As Integer
    Dim files As String
    


For s = 31 To 100
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)
    Debug.Print (ostr);
    
Next


End Sub