by Brant Gluth (1 Submission)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
The code will take a passed string and a delimiter and parse the string into a variant array for reading. Works very well with csv files, etc.
Inputs
strSource = line ofn text from a text file (ex:/ "00-40-4200",20000216,0.00,15.00)
Code Returns
spits it back at you as a variant array which can be iterated with a for..next loop
VBcodersPublic Function ParseDelimitedText(strSource As String, strDelimiter As String) As Variant()
'Comm:
'Will take the passed string and parse it out to an array which can then be itereated through
'with a for ..next loop bounded by lbound(ParseDelimitedText) and ubound(ParseDelimitedText)
'quote delimited doesn't really work with this, but as you'd need top pass the string loaded with
'chr$(34)'s anyway I guess it doesn't matter.
'enh: 06/07/2000 switched delimiter from comma to anything BUT quotes
'decl:
Dim intTest As Integer
Dim intStart As String, intEnd As String
Dim varHold() As Variant
'Code:
intStart = 1
ReDim varHold(0)
Do While InStr(intStart, strSource, strDelimiter) <> 0 Or intStart < Len(strSource)
If intStart <> 1 Then ReDim Preserve varHold(UBound(varHold) + 1)
intEnd = InStr(intStart, strSource, strDelimiter)
If intEnd = 0 Then intEnd = Len(strSource)
'increase the array to hold the new value
varHold(UBound(varHold)) = CVar(Mid$(strSource, intStart, intEnd - intStart))
intStart = intEnd + 1 'slap the end as the new start position
Loop
'Assign:
ParseDelimiter = varHold
'for debugging to the immediate window
For intTest = LBound(varHold) To UBound(varHold)
Debug.Print "#" & intTest & ": " & varHold(intTest)
Next
End Function