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 : https://www.siamfocus.com/
► LINE@ : https://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
--------------------------








บทความ แนะนำ

Mod Rewrite ใน Localhost

Mod Rewrite ใน Localhost

หลายครั้งที่ต้องมีการทดสอบ Mod Rewrite บนเครื่อง Localhost แต่เนื่องจาก Path ไม่ตรงกับบน Server ที่ใ...

WordPress 101 (แนะนำ WordPress)

WordPress 101 (แนะนำ WordPress)

WordPress คือ อะไร ?? ทำไม ใครๆ ก็ใช้ WordPress... WordPress เป็น Open Source หมายถึง ใครๆ ก็ตามท...

แคชคอมพิวเตอร์

แคชคอมพิวเตอร์

หลายครั้ง ที่เราเข้าเว็บไซต์แล้ว หน้าเว็บยังเป็นข้อมูลเก่า ที่ยังไม่เปลี่ยนไป รู้หรือไม่ ว่าเกิดจากส...

ทําเว็บขายของ

ทําเว็บขายของ

ทําเว็บขายของ ในยุคที่ผมเริ่มทำเว็บไซต์ใหม่ๆ ถ้าพูดถึง ทําเว็บขายของ จะหมายถึงการทำเว็บที่...

mysql update with replace

mysql update with replace

รูปแบบ update [table_name] set [field_name] = replace([field_name],'[string_to_find]',...




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