えうぇｈｈｇｇｆ - プログラム倉庫

Function wordcheck(str As String) As String
Dim word(1 To 13) As String
Dim n As Integer
Dim p As String
Dim px As Integer
word(10) = "動詞"
word(3) = "形容詞"
word(2) = "形容動詞"
word(4) = "名詞"
word(5) = "副詞"
word(6) = "連体詞"
word(7) = "接続詞"
word(8) = "感動詞"
word(1) = "助動詞"
word(11) = "助詞"
word(12) = "記号"
word(13) = "未知語"
p = str
For n = 1 To 13
p = Replace(p, word(n), "")
Next
p = Trim(p)
wordcheck = p
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 k1(0 To 1000) As String
    Dim dc1(0 To 1000) As String
    Dim dc2(0 To 1000) As String
    Dim dc3(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), ",")
k1(n) = y(0)
dc1(n) = wordcheck(k1(n))
dc1(n) = Trim(dc1(n))
dc2(n) = Replace(k1(n), dc1(n), "")
dc2(n) = Trim(dc2(n))
dc3(n) = Trim(y(1))
Debug.Print dc1(n), dc2(n), dc3(n)
Next


Open "c:/work/ppp.txt " For Output As #3
For n = 0 To 100
Write #3, n, dc1(n), dc2(n), dc3(n)
Next
Close #3


End Sub