配列の定義
DimmyArray
myArray = array(1,5,123,12,98)
拡張アレイ
dimmyArray()
fori = 0to10
RedimpreServeMyArray(i)
myArray(i)= i
次
文字列を分割し、分割結果の配列を返します
DimmyArray
myarray = split(tempcnt、chr(13)&chr(10))
fori = lbound(myarray)toubound(myarray)
Respons.WriteMyArray(i)& "<br>"
次
配列ソート機能
function..sort(ary)
keepchecking = true
dountilkeepchecking = false
keepchecking = false
fori = 0toubound(ary)
ifi = ubound(ary)thenexitfor
ifary(i)> ary(i+1)then
firstValue = ary(i)
secondValue = ary(i+1)
ary(i)= secondValue
ary(i+1)= firstValue
keepchecking = true
endif
次
ループ
sort = ary
エンド機能..
配列ソート機能アプリケーションの例
DimmyArray
myArray = array(1,5,123,12,98)
myarray = sort(myarray)
fori = lbound(myarray)toubound(myarray)
Respons.WriteMyArray(i)& "<br>"
次
アプリケーションとセッションで配列を使用します
Application.Lock
Application( "StoredArray")= myArray
Application.UnLock
localArray = application( "StoredArray")
アプリケーションに配列を上書きします
Application.Lock
Application( "StoredArray")= localArray
Application.UnLock
セッションはアプリケーションと同じように使用されます
データベースから配列にデータをインポートします
DimmyArray
すべてのレコードを取り出します
myArray = rs.getRows
最初の10のレコードを取り出します
myArray = rs.getRows(10)
forrow = 0toubound(myarray、2)
forcol = 0toubound(myarray、1)
Response.Write(col、row)& "<br>"
次
次