[RESOLVED] basic string help :(

[feneck]

Ok, so i have done this:

Text1.Selstart = Instr(Text1, "http://img.")

This begins the start of the selection, however there isnt a Selend, only a Sellength!

I need a way (because the length will always be random) to find the string ".jpg" and end the selection there.

Its properly really easy but im finding this really hard

thanks

[leinad31]

Truncate the trailing part first. Sellength would then be length of this string less length of leading characters you will also truncate.

[feneck]

Could you give me an example :$ im real bad with this string stuff, it really messes with my mind

[Nitesh]

something like this maybe:

Dim val As Integer
Text1.SelStart = 0
pos = InStr(Text1.Text, ".jpg")
val = Len(Mid(Text1.Text, 1, pos - 1))
Text1.SelLength = val

[Doogle]

My contribution, something like:

Private Const SEARCHFOR As String = "http://img."

Private Sub Command1_Click()
Dim intSelStart As Integer
Dim intSelEnd As Integer
Dim intSelLength As Integer
Dim intSLen As Integer
intSLen = Len(SEARCHFOR)
intSelStart = InStr(Text1.Text, SEARCHFOR)
intSelEnd = InStr(intSelStart + intSLen - 1, Text1.Text, ".jpg")
Text1.SelStart = intSelStart - 1
Text1.SelLength = intSelEnd + 3 - intSelStart + 1
End Sub

[feneck]

thanks. that last one did it