主题：额，问个代码问题。 不知道怎么写标题。

e.Form.Controls("TextBox1").text = “继发出血性肺炎”

For i As Integer = e.Form.Controls("TextBox1").lines.length-1 To 0 Step -1
    For m As Integer = Tables("terms").rows.count -1 To 0 Step -1

If  e.Form.Controls("TextBox1").lines(i).Contains("" & Tables("terms").Rows(m)("词语") &"") = True

mgs（““& Tables("terms").Rows(m)("词语")  &””）
end if

next

next

然后mgs 显示为  “出血”，“出血性肺炎”  但是实际上需要提取的只有“出血性肺炎”。这样的代码改如何写?

多个结果的时候，你获取最匹配那个（字数最多）

e.Form.Controls("TextBox1").text = "继发出血性肺炎"

For i As Integer = e.Form.Controls("TextBox1").lines.length-1 To 0 Step -1
    Dim str As String = ""
    For m As Integer = Tables("terms").rows.count -1 To 0 Step -1
        Dim s As String = Tables("terms").Rows(m)("词语")
        If e.Form.Controls("TextBox1").lines(i).Contains(s) = True
            If str.length < s.length Then
                str = s
            End If
        End If
    Next
    msgbox(str)
Next