おぷｙｔれ - プログラム倉庫

Function wordcheck(str As String) As String
Dim word(1 To 13) As String
Dim n As Integer
Dim p As Integer
Dim px As Integer

word(1) = "動詞"
word(2) = "形容詞"
word(3) = "形容動詞"
word(4) = "名詞"
word(5) = "副詞"
word(6) = "連体詞"
word(7) = "接続詞"
word(8) = "感動詞"
word(10) = "助動詞"
word(11) = "助詞"
word(12) = "記号"
word(13) = "未知語"
px = 1
For n = 1 To 13
p = InStr(str, word(n))
If p > 0 Then px = p
Next
wordcheck = Left(str, px)
End Function



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
    Dim y() As String
     Dim kotoba(0 To 1000) 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)

x = Split(ostr, Chr(10))

For n = 0 To 100
y = Split(x(n), ",")
kotoba(n) = y(0)
Next


For n = 0 To 100
Debug.Print wordcheck(kotoba(n))
Next





End Sub