Getting word before string

Hey.

I'm wanting to be able to manipulate a string. I can search for the second word of the string, but I need to manipulate both the searched for word, and the word before it, let me show you an example...

--------
>
Frosk asks, "any guards or colors?"
>
The dashing, jaunty song spins and dances as Zephore nimbly plays his flute.
GSrE
>
Reznock smiles.
>
Lord Myrkull just arrived.
Reznock nods to Hilaire.
--------

The string which I search for is 'asks, "', ans in this example I need to be able to manipulate the whole 'Frosk asks, "'.

How would I go about finding this string?

Thanks in advance.

--DaveP

Find out how far ASKS is into the string using LEN or something, then just take that and display those characters.

eg.

if its 10 letters into the string, then just take out the first 10

Hope that helps

Try this:

Code:

---

Private Sub Command1_Click()
Dim sString As String
Dim sStringArray() As String
sString = "Frosk asks, ""any guards or colors?"""

'split the string into an array (only works in VB6)
sStringArray = split(sString, " ")

'Loop around looking for word to change
For X = 0 To UBound(sStringArray)
    If sStringArray(X) = "asks," Then Exit For
Next X

'change the word and the word before it
sStringArray(X - 1) = "Whatever" 'Change Frosk
sStringArray(X) = "Whatever" 'Change asks

For X = 0 To UBound(sStringArray)
sString2 = sStringArray(X) & " "
Next X

End Sub

---

Does this work - you may need to make it a tad more inteligent in picking words.

Rob

Thanks Rob!

I used the basis of the code you supplied, and it works pretty well.

It misses the occasional one, but only when I seem to get a rapid succession of matches.

Thanks again :)

--DaveP