とふ５５５ - プログラム倉庫

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 100000) As String
    Dim nx As Single
    Dim s As Integer
    Dim files As String
    Dim x() As String
    
    Set ma = CreateObject("Tofu.TofuMA.1")
    
     n = 0
    
     files = "c:/work/ren.txt"
    
Open files For Input As #1
Do Until EOF(1)
Input #1, a1
n = n + 1
a(n) = a1
Loop
Close #1
    
    nx = n
    bun = a(1)
    For n = 2 To nx
    bun = bun + a(n)
Next
    


    ostr = ma.analyze(bun)


Debug.Print ostr

End Sub