Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bonkers!
Message
 
To
28/01/2003 00:54:51
Tarran Walker
Arete Research
London, United Kingdom
General information
Forum:
Visual Basic
Category:
VBScript
Title:
Re: Bonkers!
Miscellaneous
Thread ID:
00746078
Message ID:
00746353
Views:
18
Here you go. I wrote you a simple sub that will handle your request. Hopefully this helps.

Sub HandleData()
Dim sStart
Dim sEnd
Dim lMarker
Dim lEndMarker
Dim sTemp
Dim sDataStr
sStart = ""
sEnd = ""
sDataStr = "This is nonsenseVisit Seekford Solutions, Inc. MY actual Data more nonsense More Data www.SeekfordSolutions.com and some more garbage"
lMarker = 1
lEndMarker = 1
sTemp = ""

Do
lMarker = InStr(lMarker, sDataStr, sStart)
If (lMarker > 0) Then
lMarker = Len(sStart) + lMarker
If (lMarker > Len(sDataStr)) Then Exit Do
lEndMarker = InStr(lMarker, sDataStr, sEnd)
If (lEndMarker > 0) Then
sTemp = Mid(sDataStr, lMarker, lEndMarker - lMarker)
Debug.Print sTemp
Else
Exit Do
End If
End If
Loop Until lMarker = 0

End Sub

If you ever have need for any activeX controls,
please visit my companies site @ http://www.SeekfordSolutions.com
Brian Seekford
Seekford Solutions, Inc.
http://www.SeekfordSolutions.com
Internet ActiveX Controls and .NET Class Libraries.
SMTP/S FTP POP3/S HTTP/S SNTP MIME PING WHOIS TRACEROUTE NNTP DNS MX
Base64, UUEncode, yEnc, MD5, SHA1, URL, Quoted-Printable.
Resizer and Tooltips
Email Verification and more. Check us out!
Previous
Reply
Map
View

Click here to load this message in the networking platform