Question about Text Boxes

[Newsgroup]

I have a multiline textbox with 10 lines of text in it. I want to search
Line by Line for the word" [Option]". How do I process one line in a text
box at a time? I DON'T want to just search the whole textbox for my word,
because when I find it, I want to stop the cursor there until the user
decides to continue to find the next instance.

MY QUESTION IS: How can I search for text line by line in a textbox?

Thank You,
Paul

[J French]

On Wed, 23 Jun 2004 23:50:55 -0700, "Newsgroup" <pm*@swannack.net>
wrote:

I have a multiline textbox with 10 lines of text in it. I want to search
Line by Line for the word" [Option]". How do I process one line in a text
box at a time? I DON'T want to just search the whole textbox for my word,
because when I find it, I want to stop the cursor there until the user
decides to continue to find the next instance.

MY QUESTION IS: How can I search for text line by line in a textbox?

Option Explicit
' Add one Textbox
' Set it to MultiLine

Private Declare Function SendMessage 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 SendMessageStr 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_GETLINECOUNT = &HBA
Private Const EM_GETLINE = &HC4
Private Const EM_LINELENGTH = &HC1
Private Const EM_LINEINDEX = &HBB
Private Sub Command1_Click()
Dim Lines&, S$, P&, L&
Const LINE_NO = 2

' --- Count the Lines
Lines& = SendMessage(Text1.hwnd, _
EM_GETLINECOUNT, _
0, _
0)
Me.Print Lines
' Note: If Text1.Text = "" then 1 is returned

' --- Now get position of start of 2nd line
' this is zero based
P& = SendMessage(Text1.hwnd, _
EM_LINEINDEX, _
LINE_NO - 1, _
0)
Me.Print "Line 2 Starts at:"; P
' --- Now Get its Length
L& = SendMessage(Text1.hwnd, _
EM_LINELENGTH, _
P, _
0)
Me.Print "Length of Line 2 is:"; L
' --- Now Get Line 2
S$ = Space$(L)
L& = SendMessageStr(Text1.hwnd, _
EM_GETLINE, _
LINE_NO - 1, _
S)
Me.Print S$
' --- And to prove it
Me.Print Mid$(Text1.Text, P + 1, L)

End Sub

[Rick Rothstein]

> I have a multiline textbox with 10 lines of text in it. I want to
search

Line by Line for the word" [Option]". How do I process one line in a text box at a time? I DON'T want to just search the whole textbox for my word, because when I find it, I want to stop the cursor there until the user
decides to continue to find the next instance.

MY QUESTION IS: How can I search for text line by line in a

textbox?

I'm not sure why you don't simply want to skip down through all the
words you want to find. Put the following code in a CommandButton and
load up your TextBox with text containing the word you want to find (in
this case, " [Option]", with the leading space as shown). Now keep
pressing the button and watch the TextBox.

Rick - MVP

Dim Position As Long
Dim WordToFind As String
WordToFind = " [Option]"
With Text1
If .SelLength Then .SelStart = .SelStart + .SelLength
Position = InStr(.SelStart + 1, .Text, WordToFind)
If Position Then
.SelStart = Position - 1
Else
.SelStart = InStr(.Text, WordToFind) - 1
End If
.SelLength = Len(WordToFind)
.SetFocus
End With