excel VBA中的停用词

【问题标题】：Stop words in excel VBAexcel VBA中的停用词
【发布时间】：2013-02-12 10:06:15
【问题描述】：

我正在处理一个 excel 项目，我正在获取一个文本文件，读取文本文件，并尝试从文本文件中删除停用词。但我一直坚持删除 excel VBA 中的停用词。从研究中我看到它在 Java 和 PHP 中是可能的，但我还没有找到一个专门用于擅长 VBA 的。是否有可以删除excel VBA中的停用词的功能？

【问题讨论】：

没有现有的功能，但如果你有一个停用词列表，那么你可以在循环中使用正则表达式来做到这一点。 stackoverflow.com/questions/5883725/…
对于我的无知，什么是“停用词”？

标签： excel vba

【解决方案1】：

 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

'参考：Read/Parse text file line by line in VBA

【讨论】：