Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Alphabetic order of an array?
- Thread starter FranckM
- Start date
just change the script tags to go server side
<html>
<head>
<script language="VBScript">
sub arrayalfa()
Dim Arrlist(15)
count = 15
Arrlist(0) = "anna"
Arrlist(1) = "gouri"
Arrlist(2) = "ramu"
Arrlist(3) = "shree"
Arrlist(4) = "leela"
Arrlist(5) = "kanna"
Arrlist(6) = "ranga"
Arrlist(7) = "honey"
Arrlist(8) = "sweety"
Arrlist(9) = "sungandh"
Arrlist(10) = "tara"
Arrlist(11) = "nita"
Arrlist(12) = "preeti"
Arrlist(13) = "thimma"
Arrlist(14) = "lata"
Arralphabets = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
arralphabets = split(Arralphabets,",",-1,1)
for each alphabets in arralphabets
for i = 0 to count
if left(Arrlist(i),1) = alphabets then
if check <> alphabets then
alert ucase(alphabets)
end if
alert Arrlist(i) & vbCr
check = alphabets
end if
next
next
end sub
</script>
</head>
<body onLoad="arrayalfa()">
</body>
</html>![[bomb]](/data/assets/smilies/bomb.gif "[bomb] [bomb]")
I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com
<html>
<head>
<script language="VBScript">
sub arrayalfa()
Dim Arrlist(15)
count = 15
Arrlist(0) = "anna"
Arrlist(1) = "gouri"
Arrlist(2) = "ramu"
Arrlist(3) = "shree"
Arrlist(4) = "leela"
Arrlist(5) = "kanna"
Arrlist(6) = "ranga"
Arrlist(7) = "honey"
Arrlist(8) = "sweety"
Arrlist(9) = "sungandh"
Arrlist(10) = "tara"
Arrlist(11) = "nita"
Arrlist(12) = "preeti"
Arrlist(13) = "thimma"
Arrlist(14) = "lata"
Arralphabets = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
arralphabets = split(Arralphabets,",",-1,1)
for each alphabets in arralphabets
for i = 0 to count
if left(Arrlist(i),1) = alphabets then
if check <> alphabets then
alert ucase(alphabets)
end if
alert Arrlist(i) & vbCr
check = alphabets
end if
next
next
end sub
</script>
</head>
<body onLoad="arrayalfa()">
</body>
</html>
I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question