以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  额，问个代码问题。 不知道怎么写标题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107092)
--  作者：rxfmrqq
--  发布时间：2017/9/21 10:41:00
--  额，问个代码问题。 不知道怎么写标题。

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 显示为  “出血”，“出血性肺炎”  但是实际上需要提取的只有“出血性肺炎”。这样的代码改如何写?
--  作者：有点甜
--  发布时间：2017/9/21 11:15:00
--  

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

 

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

[此贴子已经被作者于2017/9/21 11:15:35编辑过]
--  作者：rxfmrqq
--  发布时间：2017/9/21 14:54:00
--  
嗷。谢谢老师。