Question

我想从段落中提取相同的单词。我的段落在richtextbox1中，要提取的单词以数组形式给出。我的代码如下：

Time.deltaTime

Answer 1

我认为你已经让你的每个循环混合了一点。

使用下面的代码，在此处使用F.contains，将在标签中输出true或false，而不是单词本身。

 Label1.Text += F.Contains(x) & ControlChars.NewLine

我不认为F.contains在使用数组时会起作用，因为.Contains不是System.Array的成员。

我会考虑使用通用列表。

以下是我使用通用列表的示例。

Dim A(1) As Char
A(0) = CChar(" ")
A(1) = CChar(",")
Dim B As String = RichTextBox1.Text
Dim x As String() = Nothing
Dim F As List(Of String) = New List(Of String)
F.Add("SMUGGLING")
F.Add("CROSSING")
F.Add("INFILTRATION")
x = B.Split(A)

For Each word In x
    If F.Contains(UCase(word)) Then
        Label1.Text += word & ControlChars.NewLine
    End If
Next

我已经为每个循环重写了你的内容，以便F.contains是一个If语句，然后如果它返回true则将它添加到标签。同样在每个循环中你并不真正想要用于x中的每个F，因为它没有意义并且你已经在使用F.所以我将它改为x中的每个单词。

希望这会有所帮助：）

如何从段落中提取相同的单词

1 个答案: