i need help with finding text

[kirkhammet]

i made a word processor, and now i need want to put a "search" feature on it. How do i code it?

so far i have this:

FindOver = False
SearchPos = 0
FindText Text, Find
Text.SelStart = SelTextFrom
Text.SelLength = SelTextTo

but, that doesn't work....

can anyone help me????

thanks, kirkhammet

[da_silvy]

Originally posted by kirkhammet:
i made a word processor, and now i need want to put a "search" feature on it. How do i code it?


so far i have this:

FindOver = False
SearchPos = 0
FindText Text, Find
Text.SelStart = SelTextFrom
Text.SelLength = SelTextTo

but, that doesn't work....

can anyone help me????

thanks, kirkhammet

how's this for quick service?

try:

dim findThis as string
findthis = myform.findTextBox.text
 FindOver = False
 SearchPos = 0
 FindText Text, Find
 Text.SelStart = 0
 Text.SelLength = len(findthis)
if text.seltext = findthis then
msgbox "String Found"

if this doesn't work, email me your program and i will fix it for you!


------------------
david
Teenage Programmer

[kirkhammet]

i need to know what the code for the sub "FindText" is ... and i need to know what goes in the parenthesis

kirk

[DiGiTaIErRoR]

I made a function to do this!
here ya go:

Public Function FindText(TextBox As TextBox, TextString As String)
TextBox.SetFocus
If InStr(TextBox.Text, TextString) > 0 Then
TextBox.SelStart = InStr(TextBox.Text, TextString) - 1
TextBox.SelLength = Len(TextString)
Else
MsgBox "Text '" & TextString & "' not found!", 16, "Error"
End If
End Function

Private Sub Command1_Click()
FindText Text1, "Hello"
End Sub

If the text is found it HighLights it. If not you get an error message that says it's not found!

------------------
DiGiTaIErRoR
VB, QBasic, Iptscrae, HTML
Quote: There are no stupid questions, just stupid people.


[This message has been edited by DiGiTaIErRoR (edited 02-20-2000).]

[kirkhammet]

good one!, but i need to know how you make it work when you input the string you want it to search for. i.e. you type in a word, and hit search... then it finds it. how do you do that?