<％
'*******************************
'機能：neworder（arrstr）
'引数：RSTR、コンマ分離された数字の配列
著者：アリクシ
'日付：2007/7/13
'説明：数字の配列を並べ替えます
'例：<％= newOrder（ "34,53,13,22,38,86,111,23,65"）％>
'*******************************
functionneworder（arrstr）
fori = 0toubound（split（arrst、 "、"））
ifn> 0-
arrstr =置換（arrst、n、0）
endif
sp = split（arrst、 "、"）
n = 0
forj = 0toubound（sp）
ifint（sp（j））> int（n）then
n = sp（j）
endif
次
newOrder = newOrder＆Leppler（n、0、 ""）＆ ""
次
neworder = newOrder
エンド機能
％>
配列を並べ替えます
コードコピーは次のとおりです。
<％
'*******************************
'機能：NewOrder（SZ）
'引数：RSTR、コンマ分離された数字の配列
著者：アリクシ
'日付：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）then
ifint（ali（j））<int（ali（j+1））then
itemp = ali（j）
ali（j）= ali（j+1）
ali（j+1）= itemp
endif
endif
次
次
forii = 0toubound（ali）
ifi = ubound（ali）then
neworder = neworder＆ali（ii）
それ以外
neworder = neworder＆ali（ii）＆ "、"
endif
次
エンド機能
％>