excel - Excel VBAのストップワード

Question

私はExcelでプロジェクトに取り組んでおり、テキストファイルを取得してテキストファイルを読み取り、テキストファイルからストップワードを削除しようとしています. しかし、Excel VBA でストップ ワードを削除することに行き詰まっています。私が見た調査から、Java と PHP で可能であることがわかりましたが、特に VBA を上回るものを見つけることができませんでした。Excel VBAでストップワードを削除する機能はありますか?

Answer 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

'参照: VBA でテキスト ファイルを 1 行ずつ読み取り/解析する