get all strings between 2 strings

Question

   Public Function GetStringBetween(ByVal InputText As String, _
  ByVal starttext As String, _
  ByVal endtext As String)

        Dim lnTextStart As Long
        Dim lnTextEnd As Long

        lnTextStart = InStr(StartPosition, InputText, starttext, vbTextCompare) + Len(starttext)
        lnTextEnd = InStr(lnTextStart, InputText, endtext, vbTextCompare)
        If lnTextStart >= (StartPosition + Len(starttext)) And lnTextEnd > lnTextStart Then
            GetStringBetween = Mid$(InputText, lnTextStart, lnTextEnd - lnTextStart)
        Else
            GetStringBetween = "ERROR"
        End If
    End Function
    Dim xa As String
        Dim x As String = WebBrowser1.DocumentText

Usage

  xa = GetStringBetween(x, TextBox1.Text, TextBox2.Text)

    MsgBox(xa)

I have tried many many diffrent ways to try to get all strings between 2 other strings with for each etc the site has more then 1 string with those 2 strings but i just get the first string between 2 strings help sorry its hard to explain :/

What are "all strings between two strings"? Do you want the substring between string1 and string2? Multiple strings presumes that you want to split by white-space (for example). Can you show an example and a desired result? — Tim Schmelter
– Tim Schmelter, Commented May 6, 2013 at 9:00
This code looks like VB6... maybe it would be interesting for you to learn the advantages that Vb.NET could provide — Antonio
– Antonio, Commented May 6, 2013 at 9:22
Looks like you're trying to do a school assignment? If not, you keep repeating you need to get all strings between two strings, what does that mean exactly? Give us two sample strings and what the result you expect is, and maybe we can give you useful help. — John A
– John A, Commented May 6, 2013 at 12:44

Steve · Accepted Answer · 2013-05-06 09:10:24Z

2

Probably the most concise way to write that code is through RegEx, but it could be overkill.
This is a simple method that do the same thing using string.IndexOf

Public Function GetStringBetween(ByVal InputText As String, _
                                 ByVal starttext As String, _
                                 ByVal endtext As String)

    Dim startPos As Integer
    Dim endPos As Integer
    Dim lenStart As Integer
    startPos = InputText.IndexOf(startText, StringComparison.CurrentCultureIgnoreCase)
    if startPos >= 0 Then
        lenStart = startPos + starttext.Length
        endPos = InputText.IndexOf(endtext, lenstart, StringComparison.CurrentCultureIgnoreCase)
        If endPos >= 0 Then
            return InputText.Substring(lenStart, endPos - lenStart)
        End If
    End If
    return "ERROR"
End Function

answered May 6, 2013 at 9:10

Steve

217k22 gold badges242 silver badges296 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Ro Machet Over a year ago

no i need all strings my the code i use works but it only get the first string between the other 2 strings but the other ones in the text but it only gives me the first one. You know like for each string i need all the strings in the text thats between the 2 strings

Onur Gazioğlu · Accepted Answer · 2013-05-06 09:00:16Z

0

You can use regex. For ex: (word1).*(word2)

answered May 6, 2013 at 9:00

Onur Gazioğlu

5112 silver badges14 bronze badges

Comments

Intellesense · Accepted Answer · 2013-12-31 03:11:37Z

0

Public Function GetBetween(IStringStr As String, IBefore As String, IPast As String)
    On Error Resume Next
    Dim iString As String
    iString = IStringStr
    iString = Right(iString, Len(iString) - InStr(iString, IBefore) - Len(IBefore) + 1)
    iString = Mid(iString, 1, InStr(iString, IPast) - 1)
    GetBetween = iString
End Function

In old style right is depreciated as you know

answered Dec 31, 2013 at 3:11

Intellesense

1

Collectives™ on Stack Overflow

get all strings between 2 strings

3 Answers 3

1 Comment

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

1 Comment

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related