|Get a chunck of text delimited by two strings|
|By: Lorenzo Dalla Vecchia Date: 23/06/2000|
The following is a very short and useful function I wrote
that "cuts" a chunck of text between two strings.
Copy the code into a module:
GetChunck(strString As String, _
strBegin As String, strEnd As String) As String
Dim p0 As Integer, p1 As Integer
p0 = InStr(strString, strBegin) + Len(strBegin)
p1 = InStr(strString, strEnd)
If p0 = 0 Or p1 = 0 Then GetChunck = "": Exit Function
GetChunck = Mid(strString, p0, p1 - p0)
The use is very simple. Let's assume I have the string "this is a <test> string" and I want to retrieve the text between < and >:
|strChunck = GetChunk("this is a <test> string", "<", ">")|
strChunck will contain "test".
For another application of this function, see Retrieve the title of a HTML page.
|Visual Basic Programming Zone is a website by
Lorenzo Dalla Vecchia.
To contact the Webmaster, click here.
Hosted by InWind: www.inwind.it