[VB.NET] GetBetween and GetBetweenAll

[Backslash]

[VB.NET] GetBetween and GetBetweenAll

GetBetween

Public Function GetBetween(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, _
                            Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String

        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function

Getbetween parases a string between 2 strings in a source.

GetBetweenAll

Public Function GBA(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, ByVal lstAdd As ListBox, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, strResult As String, lenStart As Integer = strStart.Length

        Do Until iPos = -1
            strResult = String.Empty
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
                lstAdd.Items.Add(strResult)
                startPos = iPos + lenStart
            End If
        Loop

        GBA = ""
    End Function

Getbetweenall parses all the strings in the source that is between 2 strings.

[mehike]

There are many different variants of these functions going around, but nice job!