The Bookstore | Web Design | Tell a Friend | Make a Payment
Your browser does not support JavaScript. Update it for a better user experience. Powered by ExoClick.com Pay Per Click Program.
Back
<% MyArray=Array(Zero,one,two,three,four,five,six,seven,eight,nine) %> Thearray(0): <% =Thearray(0) %> Thearray(1): <% =Thearray(1) %> Thearray(2): <% =Thearray(2) %> Thearray(3): <% =Thearray(3) %> Thearray(4): <% =Thearray(4) %> Thearray(5): <% =Thearray(5) %> Thearray(6): <% =Thearray(6) %> Thearray(7): <% =Thearray(7) %> Thearray(8): <% =Thearray(8) %> Thearray(9): <% =Thearray(9) %>
<% TheText="Zero=one=two=three=four=five=six=seven=eight=nine" Thearray=split (TheText,"=") %> Thearray(0): <% =Thearray(0) %> Thearray(1): <% =Thearray(1) %> Thearray(2): <% =Thearray(2) %> Thearray(3): <% =Thearray(3) %> Thearray(4): <% =Thearray(4) %> Thearray(5): <% =Thearray(5) %> Thearray(6): <% =Thearray(6) %> Thearray(7): <% =Thearray(7) %> Thearray(8): <% =Thearray(8) %> Thearray(9): <% =Thearray(9) %>
<% TheText="a,f,w,d,u,t,e,u,f,v,o" Thearray=split (TheText,"=") %> How many String do I have in TheArray? <% =ubound(Thearray)+1 %> <% For n=0 to ubound(Thearray) Response.write (Thearray(n) & "") next %>
<% dim MyArray(9) MyArray (0) = "Zero" MyArray (1) = "One" MyArray (2) = "Two" MyArray (3) = "Three" MyArray (4) = "Four" MyArray (5) = "Five" MyArray (6) = "Six" MyArray (7) = "Seven" MyArray (8) = "Eight" MyArray (9) = "Nine" %> Find strings containing "t" (case sensitive) <% =join(filter(MyArray,"t",True,0),",") %> Find strings containing "t" <% =join(filter(MyArray,"t",True,1),",") %> Find strings which do not contain "t" (case sensitive) <% =join(filter(MyArray,"t",False,0),",") %> Find strings which do not contain "t" <% =join(filter(MyArray,"t",False,1),",") %>