how do I search a text box for something like "< body . >"
and it must be in that order.... also if I find something how can I add stuff right after the . (dot) and space?Code:< body . >
Printable View
how do I search a text box for something like "< body . >"
and it must be in that order.... also if I find something how can I add stuff right after the . (dot) and space?Code:< body . >
Use the Instr function.
Code:If Instr(Text1.text, "<body . >") Then
Msgbox "string found!"
Else
Msgbox "string not found!"
End If
This will add str3 in between the . and > as well
SunnyCode:Private Sub Command1_Click()
Dim pos As Integer
Dim str1, str2, str3 As String
'str1 - text before the .
'str2 - text after the .
'str3 - the string you want to add
str3 = "TEST"
'pos + 7 is the position of the .
pos = InStr(Text1.Text, "< body . >") + 7
str1 = Left(Text1.Text, pos)
str2 = Mid(Text1.Text, pos + 1)
Text1.Text = str1 & str3 & str2
End Sub
To add something right after the dot and space:
Code:Private Sub Command1_Click()
If InStr(Text1.Text, "<body . >") Then
Text1.Text = Replace(Text1.Text, "<body . >", "<body . (replace here)>")
Else
End If
End Sub