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 显示为 “出血”,“出血性肺炎” 但是实际上需要提取的只有“出血性肺炎”。这样的代码改如何写?