[VB6] Fast GetStringBetween

[j03]

Fastest? Well I'd like to say it is as some people claim it to be, but anything is possible

Here it is:

Public Function GetStringBetween(Main As String, start As String, Finish As String, Optional Index As Long = 1) As String
On Error Resume Next
    GetStringBetween = Split(Split(Main, start, Index + 1)(Index), Finish, 2)(0)
End Function

An example of using this to grab NP on hand would be:

lblNP.Caption = GetStringBetween(HTML, "NP: ""(you need an account to see links)"">", "")

PS: If you have to use quotation marks in your code, put two like how I did. Otherwise it not work.

[Zachafer]

Joe I'm pretty sure using Mid$ (even better MidB$) is faster than using Split, especially because the Delimiter parameter is a variant and variants are the slowest data types.