how do you serch a sting? 3

[Trowser]

I have info in a DB that then gets put into textboxes how do I search the sting in the textbox for a cetain word

IE
Nuts & bolts & string & carpet
Bolts & Sting & Carpet
Nuts & Carpet
Nuts & String & Carpet

how do I search those stings to see if the word carpet is contained in it

 

[zemp]

Look into the InStr function. Thanks and Good Luck!

zemp

 

[Trowser]

thanks zemp

 

[rorubin]

Private Sub Command1_Click()
Dim t As Variant
Dim i As Integer

yourString = "Nuts & bolts & string & carpet &" + _
"Bolts & Sting & Carpet &" + _
"Nuts & Carpet &" + _
"Nuts & String & Carpet"
t = Split(yourString, "&&quot

For i = 0 To UBound(t)
If "carpet" = Trim(t(i)) Then
'it is equal
Else
'it is not equal
End If

Next
End Sub


Viola

 

[CCLINT]

Or, depending on what you need to do with the results, just use:

Dim bIsInStr As Boolean
bIsInStr = "Bolts & Sting & Carpet" Like "*Carpet*" [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[Trowser]

ok cool all really helpful suggestions great thanks

 

[mattKnight]

And to keep strongm happy.... the obligatory regexp solution...

Private Sub Command1_Click()
Dim objReg As RegExp
Dim sToSearch As String
Dim sToSearchFor As String

Dim colMatches As MatchCollection
Dim m As Match
sToSearch = "Nuts & bolts & string & carpet"

sToSearchFor = "carpet"

Set objReg = New RegExp
With objReg
    .Pattern = sToSearchFor & "\b"
    .IgnoreCase = True
    .Global = True
    Set colMatches = .Execute(sToSearch)
End With
If colMatches.Count > 0 Then
    For Each m In colMatches
        MsgBox m.Value & " was found at position " & CStr(m.FirstIndex) & " in string"
    Next
Else
    MsgBox "Not found"
End If
Set m = Nothing
Set colMatches = Nothing
Set objReg = Nothing
End Sub

take care all

Matt

 

[strongm]

Heh!