Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
      
   Else
      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_GetStringBetweenTags:
   Exit Function

ERROR_GetStringBetweenTags:
   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.

 

 

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