[zer0_s3c]

Function:

Code:

Private Function GetBetween(ByVal Start As Long, ByVal Data As String, _ ByVal StartString As String, ByVal EndString As String, _ Optional ByVal CompareMethod As CompareMethod = vbBinaryCompare) As String Dim lonStart As Long, lonEnd As Long '1. Find start string. lonStart = InStr(Start, Data, StartString, CompareMethod) If lonStart > 0 Then '2. Move to end of start string. lonStart = lonStart + Len(StartString) '3. Find end string. lonEnd = InStr(lonStart, Data, EndString, CompareMethod) If lonEnd > 0 Then '4. Extract data between start and end strings. GetBetween = Mid$(Data, lonStart, lonEnd - lonStart) End If End If End Function

Usage:

Code:

GetBetween "IndexToStart, WhereToGet, FrontOfString,BackOfString"

Example:

Let's say you had a variable declared as "convo", and the data stored inside that variable was "Goon sucks at AF tutorials.", now the syntax for it all would be;

Code:

Dim Convo As String = "Goon sucks at AF Tutorials"

Now let's grab the "AF" out of the sentence.

Completed:

Code:

Dim Convo As String = "Goon sucks at AF Tutorials" Dim Forums As String = GetBetween(1,Convo,"sucks at","Tutorials") MsgBox ("This tutorial is written on "" & Forums & "")

Which would pop up and say, "This tutorial is written on AF".
##
Example #2) WebBased


Hope I explained it clearly enoug, sorry if I didn't. It's my 1st "ever" tutorial

[SQLi]

Thanks man, this is very useful!
I'd do it like this though:

Code:

dim x, y, z as string x = "Hello, my name is SQLi. I work for the government." y = x.split("is ")(1) z = y.split(". I work")(0)

[cxS]

The function is using old and slow VB6 carry over methods.