Revision: 7867
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at August 18, 2008 18:41 by ScryptKeeper
Initial Code
Function stringToList(AString, ADelimt) Dim theList() Dim work Dim c1, arCount work = AString c1 = 1 arCount = -1 Do While (c1 > 0) c1 = InStr(work,ADelimt) If c1 > 0 Then arCount = arCount + 1 ReDim Preserve theList(arCount) theList(arCount) = Left(work,(c1-1)) work = Mid(work,c1+1,Len(work)) End If Loop arCount = arCount + 1 ReDim Preserve theList(arCount) theList(arCount) = work stringToList = theList End Function
Initial URL
Initial Description
Takes a delimited string and a the delimiter, and returns a dynamic arrary
Initial Title
stringToList (VBScript)
Initial Tags
windows
Initial Language
Visual Basic