在文本文件中的每個單詞之后添加符號

Question

我有兩個文件，每個文件中有4000多個單詞。 我想在oreder中的每個單詞之后添加一個符號，以在正則表達式模式中使用它們。 這是開始的（不是很多）：

  Dim Positive_Words As String
    Dim Negative_Words As String


    Positive_Words = My.Computer.FileSystem.ReadAllText("C:\positive.txt")
    Negative_Words = My.Computer.FileSystem.ReadAllText("C:\negative.txt")

    For Each word As String In Positive_Words

        'What i need to write here in order to add a symbol "|" after every word?

    Next

問題：

• 有什么辦法可以用vb或其他任何方式（Word 2013或其他任何方式）來做到這一點？
• 可以接受4000多個單詞的正則表達式模式嗎？

Answer 1

Dim Positive_Words As String
Dim Negative_Words As String


Positive_Words = My.Computer.FileSystem.ReadAllText("C:\positive.txt").Replace(" ", "|")
Negative_Words = My.Computer.FileSystem.ReadAllText("C:\negative.txt").Replace(" ", "|")