-
-
'ฟังก์ชั่น: neworder (arrstr)
'อาร์กิวเมนต์: RSTR, อาร์เรย์ที่คั่นด้วยเครื่องหมายจุลภาค
'ผู้แต่ง: Alixi
'วันที่: 2007/7/13
'คำอธิบาย: การจัดลำดับอาร์เรย์ของตัวเลขใหม่
'ตัวอย่าง: <%= neworder ("34,53,13,22,38,86,111,23,65")%>
-
FunctionNeworder (arrstr)
fori = 0toubound (แยก (arrstr, ","))
ifn> 0 แล้ว
arrstr = แทนที่ (arrstr, n, 0)
endif
sp = split (arrstr, ",")
n = 0
forj = 0toubound (sp)
ifint (sp (j))> int (n) แล้ว
n = sp (j)
endif
ต่อไป
neworder = neworder & แทนที่ (n, 0, "") & ""
ต่อไป
neworder = neworder
endfunction
-
สั่งซื้ออาร์เรย์ใหม่
การคัดลอกรหัสมีดังนี้:
-
-
'ฟังก์ชั่น: neworder (SZ)
'อาร์กิวเมนต์: RSTR, อาร์เรย์ที่คั่นด้วยเครื่องหมายจุลภาค
'ผู้แต่ง: Alixi
'วันที่: 2007/7/13
'คำอธิบาย: จัดลำดับอาร์เรย์ใหม่
'ตัวอย่าง: <%= neworder ("34,53,13,22,38,86,111,23,65")%>
-
FunctionNeworder (SZ)
Dimali, icount, i, ii, j, itemp
ALI = Split (SZ, ",")
icon = ubound (Ali)
fori = 0toicode
forj = iquant-1toistep-1
ifj+1 <= ubound (ALI) แล้ว
ifint (Ali (J)) <int (Ali (J+1)) แล้ว
itemp = Ali (J)
Ali (J) = Ali (J+1)
Ali (J+1) = itemp
endif
endif
ต่อไป
ต่อไป
forii = 0toubound (Ali)
ifi = ubound (Ali) แล้ว
neworder = neworder & Ali (II)
อื่น
neworder = neworder & ali (ii) & ","
endif
ต่อไป
endfunction
-