Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB6
Expertise: Intermediate
Jun 23, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

GetStringBetweenTags - Returns a string between 2 delimiters

' Returns a string between 2 delimiters
' Parameters:
'    sSearchIn: String to search
'    sFrom: First keyword
'    sUntil: Second keywords
'    nPosAfter: Gets the position after
' Example:
'    Debug.Print GetStringBetweenTags("<html>This is a sample of title</html>",
'  "<html>", "</html>")

Public Function GetStringBetweenTags(ByVal sSearchIn As String, _
    ByVal sFrom As String,  ByVal sUntil As String, Optional nPosAfter As Long, _
    Optional ByVal nStartAtPos As Long = 0) As String
   On Error GoTo ERROR_GetStringBetweenTags

   Dim nLen1 As Long
   Dim nLen2 As Long
   Dim nLen As Long
   Dim nLen3 As Long
   Dim sFound As String

   On Error GoTo ERROR_GetStringBetweenTags

   nLen1 = InStr(nStartAtPos + 1, sSearchIn, sFrom, vbTextCompare)
   nLen2 = InStr(nLen1 + Len(sFrom), sSearchIn, sUntil, vbTextCompare)

   If nLen1 = 0 Or nLen2 = 0 Or IsNull(nLen1) Or IsNull(nLen2) Then
      sFound = vbNullString
      nLen = nLen1 + Len(sFrom)
      nLen3 = nLen2 - nLen
      sFound = Mid$(sSearchIn, nLen, nLen3)
   End If

   GetStringBetweenTags = sFound
   If nLen + nLen3 > 0 Then
      nPosAfter = nLen
   End If

   Exit Function

   GetStringBetweenTags = vbNullString
   Resume EXIT_GetStringBetweenTags

End Function

' You can find more routines like this on www.vbdiamond.com,
'  a site devoted to  VB developers
Waty Thierry
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date