excelvba中的停止词
我正在excel中处理一个项目,我正在获取一个文本文件,读取该文本文件,并尝试从该文本文件中删除停止字。但我一直在删除excel VBA中的停止词。从研究中,我看到Java和PHP是可行的,但我还没有找到一个专门用于excel VBA的。是否有一个函数可以删除excel VBA中的停止字excelvba中的停止词,excel,vba,Excel,Vba,我正在excel中处理一个项目,我正在获取一个文本文件,读取该文本文件,并尝试从该文本文件中删除停止字。但我一直在删除excel VBA中的停止词。从研究中,我看到Java和PHP是可行的,但我还没有找到一个专门用于excel VBA的。是否有一个函数可以删除excel VBA中的停止字 Const InputTxtFile As String = "C:\Temp\InTxt.txt" Const OutputTxtFile As String = "C:\Temp\OutTxt.txt"
Const InputTxtFile As String = "C:\Temp\InTxt.txt"
Const OutputTxtFile As String = "C:\Temp\OutTxt.txt"
Const ListOfStopWords As String = ";CAT;DOG;FOX;"
Sub main()
Dim DataLine As String
Dim strTempLine As String
Open InputTxtFile For Input As #1 'Or FreeFile()
Open OutputTxtFile For Append As #2
While Not EOF(1)
Line Input #1, DataLine
Dim LineTab() As String
LineTab = Split(DataLine, " ") 'Split readed line on space
If UBound(LineTab) > 0 Then
For i = 0 To UBound(LineTab)
If (InStr(ListOfStopWords, ";" + LineTab(i) + ";") = 0) Then 'Look if not in Stop Words list
strTempLine = strTempLine + LineTab(i) + " "
End If
Next
Print #2, strTempLine 'Print to output file
strTempLine = ""
End If
Wend
Close #1
Close #2
End Sub
'Ref:没有现有函数,但如果您有一个停止字列表,则可以在循环中使用regexp来完成此操作。对于我的无知,什么是“停止语”?