VB6 GetBetween

The fastest and most memory efficiently writable 'GetStringBetween' function.

Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String
    lgB = InStr(lgB, rC, rS) + Len(rS): GB = Mid$(rC, lgB, InStr(lgB, rC, rF) - lgB)
End Function

MsgBox GB("sockapensockopen", "sock", "pen") - will return an 'a'.
MsgBox GB("sockapensockopen", "sock", "pen", 2) - will return an 'o'.

[second2none]

mm can we use this with strings?

like

strDate = (strHTML, "blahblah", "Blah Blah")

??

Originally Posted by Kane

mm can we use this with strings?

like

strDate = (strHTML, "blahblah", "Blah Blah")

??

Yes, that's primarily what it was developed for.

[second2none]

Thanks Ill try it out sometime Next time I use GSB, Ill use this one good work.

[Zachafer]

Looks UB3R F4$T H4CK3R.
(Looks UBER FAST HACKER.)
JKJK

Is this right then:

MsgBox GB("neopetseatscandy", "neopets", "candy")

That would show a MSGBOX that says eats?
---
edit: got my answer

[second2none]

Sadly the bad thing with this is when you if cant find it you get an error & the program closes.

[Nitech]

Its a twoliner D:

But put On Error Resume Next and you'll be fine.

[second2none]

Thanks Vlad

[Zachafer]

Is this thingg outdated?

[Bump J]

Originally Posted by Zachafer

Is this thingg outdated?

it could never outdate lol