Search Tools Links Login

Extract String Function

Visual Basic 6, or VB Classic

This code will search a string for a given starting point(strFind) and a given end point(strSentinel) and return all the text in between. You can also add to the length of the start point if you don't want to include a number of unknown characters in the result

Original Author: Peter B


Function ExtractString(ByVal strText As String, _
               strFind As String, _
               intAddToLen As Integer, _
               strSentinel As String, _
               TrapErrors As Boolean, _
               intLength As Integer) As String
  Dim SStart     As Integer
  Dim SEnd      As Integer
  SStart = InStr(1, strText, strFind) + Len(strFind) + intAddToLen
  If SStart <= Len(strFind) And TrapErrors = True Then
    MsgBox """" & strFind & """ not found!", vbCritical, "Error"
    Exit Function
  End If
  SEnd = InStr(SStart, strText, strSentinel)
  If SEnd <= Len(strFind) And TrapErrors = True Then
    MsgBox "Sentinel value """ & strSentinel & """ not found!", vbCritical, "Error"
    Exit Function
  End If
  If intLength > 0 Then
    ExtractString = Mid(strText, SStart, intLength)
    ExtractString = Mid(strText, SStart, (SEnd - SStart))
  End If
End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 117 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.