如何取得文本框中包含指定字符串的行

文本框?qū)傩詾樵试S多行顯示時，由于是軟回車實現(xiàn)的分行，無法用SPLIT(TEXT1.TEXT,VBCRLF)準確地取出指定行的內(nèi)容。本文利用SENDMESSAGE 系列函數(shù)，通過發(fā)送文本框消息，實現(xiàn)了獲取包含指定字符串的行，并演示了如何獲取文本框中文本總行數(shù)和任意指定行的文本內(nèi)容。
     ’’add a textbox with "multiline=true","scrollbars=2".
     Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" _
     (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
     lParam As Any) As Long
     Private Declare Function SendMessageByNum Lib "USER32" _
     Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
     ByVal wParam As Long, ByVal lParam As Long) As Long
     Private Declare Function SendMessageByString Lib "USER32" Alias _
     "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam _
     As Long, ByVal lParam As String) As Long
     Private Const EM_LINEINDEX = &HBB
     Private Const EM_GETLINECOUNT = &HBA
     Private Const EM_GETLINE = &HC4
     Private Const EM_LINELENGTH = &HC1
     Function GetLineText(ByVal txtbox As TextBox, ByVal LineIndex As Long) As String ’’返回指定行的內(nèi)容
     Dim lc As Long, linechar As Long
     linechar = SendMessageByNum(txtbox.hWnd, EM_LINEINDEX, LineIndex, 0)
     lc = SendMessageByNum(txtbox.hWnd, EM_LINELENGTH, linechar, 0) + 1
     GetLineText = String(lc + 2, 0)
     Mid(GetLineText, 1, 1) = Chr(lc And &HFF)
     Mid(GetLineText, 2, 1) = Chr(lc \ &H100)
     lc = SendMessageByString(txtbox.hWnd, EM_GETLINE, LineIndex, GetLineText)
     GetLineText = Left(GetLineText, lc)
     End Function
     Function getlinewithstr(ByVal txtbox As TextBox, ByVal mystr As String) As String
     Dim linecount As Long, temp() As String, i As Long
     linecount = SendMessage(txtbox.hWnd, EM_GETLINECOUNT, 0, 0) ’’返回行數(shù)
     ReDim temp(1 To linecount)
     For i = 1 To linecount
     temp(i) = "第" & i & "行：" & GetLineText(txtbox, i - 1) ’’添加行號
     Next
     getlinewithstr = Join(Filter(temp, mystr), vbCrLf) ’’ 字符串過濾
     Erase temp
     End Function
     Private Sub Command1_Click()
     MsgBox getlinewithstr(Text1, "CSDN"), 0, "包含“CSDN”的行"
     End Sub
     Private Sub Form_Load()
     Dim a(25) As String, i As Long
     For i = 0 To 25
     a(i) = String(50, Chr(i + 97))
     Next
     Text1.Text = Join(a, "CSDN")
     End Sub