Sort Array

Sort Array



การจัดเรียง Array นะครับ
 

Sort: Ascending

<%
MyArray=Array(25,14,20,45,25,4,1,31,22,7)

max=ubound(MyArray)

For i=0 to max 
   For j=i+1 to max 
      if MyArray(i)>MyArray(j) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
     end if
   next 
next 

For i=0 to max 
  Response.Write(MyArray(i) & ",") 
next 
%>

ผลลัพท์

1,4,7,14,20,22,25,25,31,45

Sort: Descending

<%
MyArray=Array("John","Peter","Anna","Alberto","George","Unai")

max=ubound(MyArray)

For i=0 to max 
   For j=i+1 to max 
      if MyArray(i) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
     end if
   next 
next 

For i=0 to max 
  Response.Write(MyArray(i) & ",") 
next 
%>
ผลลัพท์
 
Unai,Peter,John,George,Anna,Alberto

ฝากติดตามผลงานด้านล่างด้วยครับ
--------------------------
► Website : http://www.siamfocus.com/
► LINE@ : http://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Google+ : https://plus.google.com/+TAAMSiAMFOCUS
► Instagram : https://www.instagram.com/iamtaam
--------------------------



บทความ แนะนำ




หมวดหมู่บทความ