ictclas初始化失败

时间:2022-06-01 23:25:02
第一次使用这个分词系统,按网络上的步骤下载工具包,解压,把dll,lib,data和头文件放到项目根目录之后测试,NLPIR_Init()一直失败,求解 ictclas初始化失败

1 个解决方案

#1


[仅供参考,尽管是VB6:
Private Sub Form_Load()
Dim sentence As String
Dim words As String
Dim WordApp As Object
    sentence = "请对您的言行负责,并遵守*有关法律法规,尊重网上道德。"
    words = ""
    Set WordApp = CreateObject("Word.Application")
    WordApp.Documents.Add
    WordApp.Selection.TypeText Text:=sentence
    WordApp.Selection.HomeKey
    Do
        WordApp.Selection.MoveRight Unit:=2, Count:=1, Extend:=1
        If WordApp.Selection.Text = vbCr Then Exit Do
        words = words + WordApp.Selection.Text + vbCrLf
        WordApp.Selection.MoveRight Unit:=1, Count:=1
    Loop
    WordApp.Quit SaveChanges:=0
    Set WordApp = Nothing
    MsgBox words
    End
End Sub
]

#1


[仅供参考,尽管是VB6:
Private Sub Form_Load()
Dim sentence As String
Dim words As String
Dim WordApp As Object
    sentence = "请对您的言行负责,并遵守*有关法律法规,尊重网上道德。"
    words = ""
    Set WordApp = CreateObject("Word.Application")
    WordApp.Documents.Add
    WordApp.Selection.TypeText Text:=sentence
    WordApp.Selection.HomeKey
    Do
        WordApp.Selection.MoveRight Unit:=2, Count:=1, Extend:=1
        If WordApp.Selection.Text = vbCr Then Exit Do
        words = words + WordApp.Selection.Text + vbCrLf
        WordApp.Selection.MoveRight Unit:=1, Count:=1
    Loop
    WordApp.Quit SaveChanges:=0
    Set WordApp = Nothing
    MsgBox words
    End
End Sub
]