Extracting text from a string

Re: Extracting text from a string

Hi,

I'd suggest to split the words using the "Split" function and then look for
the first letter.

Here's the code:

--------

Option Explicit
Option Base 0

Private Sub Command1_Click( )

Dim words() As String 'array of words
words = Split(txtMain.T ext, " ") 'puts every word in the array

Dim i As Integer
For i = 0 To UBound(words) 'passes through the array
If Left(words(i), 1) = "t" Or Left(words(i), 1) = "d" Then
If Len(txtExtract. Text) = 0 Then 'adds the proper words into the
second textbox, delimiting them with spaces
txtExtract.Text = words(i)
Else
txtExtract.Text = txtExtract.Text & " " & words(i)
End If
End If
Next i

End Sub


--------

-- germol

"cassandra.flow ers" <cassandra.flow ers@btopenworld .com> a écrit dans le
message de news:bptmcj$r9q [email protected] rnet.com...[color=blue]
> Hi,
> I am using VB6 and want to extract text from a string. But ONLY take out
> words that begin with 't' or 'd'. The mainstring is input by the user[/color]
into[color=blue]
> 'txtMain' and then by clicking a command button, all the words that begin
> with 't' or 'd' will be extracted and appear in a second text box,
> txtExtract.
>
> So, i know that I have to search through the main string for the character
> "d", then extract the following characters until it reaches " " (the[/color]
space).[color=blue]
> I know I will have to use the Mid function to find it and the Len function
> to get extract the whole word. The loop it to do the whole string. In
> theory it works, but in practice I cant seem to get it to do what I want!
> If for example, I type in "dog", the program extracts "d" into the text[/color]
box,[color=blue]
> not the whole word.
>
> Can anyone give me some advice please?
>
> Thanks
>
> Cassandra
>
>
>
>[/color]