TLsplit Function
This function was designed by my Co-worker Tim Lasek after I asked him to make it because
of things that I didn't like about the built in vbscript function called
"split". I primarily use it to take arrays passed from the HTTP HEADER and put
them back together, but Tim decided to enhance it by letting you specify the delimiter and
by having the array dynamically declare itself so that it is always the exact size it
needs to be. This makes this function very versatile. This also handle null values better
than split does and overall I like it better..
Function TLsplit(StrToSplit, Delim)
Usage: TestArray = TLsplit("This,is,a,dynamic,split,function",
",")
Result:
TestArray(0) = 6
TestArray(1) = This
TestArray(2) = is
TestArray(3) = a
TestArray(4) = dynamic
TestArray(5) = split
TestArray(6) = function
No need to Dim() the array before calling the function.
Array(0) = Number of elements in the array.
If StrToSplit = NULL Then Array(0) = 0.
Checks for Delim not found.
Don't use " for Delim.
Below is the Function Source Code and Example Usage Code
<%
Function TLsplit(StrToSplit,Delim)
Dim StrArray()
If StrToSplit = "" Then
ReDim StrArray(1)
StrArray(0) = 0
StrArray(1) = ""
TLsplit = StrArray
Else
dcount = 0
For TLsI = 1 To Len(StrToSplit)
If Mid(StrToSplit,TLsI,1) = Delim Then dCount = dCount + 1
Next
If dCount = 0 Then
ReDim StrArray(1)
StrArray(0) = 1
StrArray(1) = StrToSplit
TLsplit = StrArray
Else
ReDim StrArray(dCount + 1)
StrArray(0) = dCount + 1
TempArray = Split(StrToSplit,Delim)
For TLsI = 1 To dCount + 1
StrArray(TLsI) = Trim(TempArray(TLsI - 1))
TLsplit = StrArray
Next
End If
End If
End Function
%>
<% RandomVariable =
"This,is,a,dynamic,split,function" %>
<%
TestArray = TLsplit(RandomVariable, ",")
For I = 1 To TestArray(0)
Response.Write("TestArray(" & I & ") = " & TestArray(I)
& "<br>")
Next
%>
|
