配列の定義
DimMyArray
MyArray = 配列(1,5,123,12,98)
拡張可能なアレイ
DimMyArray()
i = 0 ～ 10 の場合
ReDim Preserve MyArray(i)
MyArray(i)=i
次
文字列を分割し、分割結果の配列を返します。
DimMyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
I = Lbound(MyArray) から Ubound(MyArray) の場合
Response.Write MyArray(I) & <br>
次
配列ソート関数
関数ソート(配列)
KeepChecking = TRUE
KeepChecking = FALSEになるまで実行
KeepChecking = FALSE
I = 0 から UBound(ary) の場合
I = UBound(ary) の場合は終了します
ary(I) > ary(I+1) の場合
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
終了する場合
次
ループ
並べ替え = 配列
終了機能
配列ソート機能の応用例
DimMyArray
MyArray = 配列(1,5,123,12,98)
MyArray = ソート(MyArray)
I = Lbound(MyArray) から Ubound(MyArray) の場合
Response.Write MyArray(I) & <br>
次
アプリケーションとセッションでの配列の使用
アプリケーション.ロック
アプリケーション(StoredArray) = MyArray
アプリケーション.ロック解除
LocalArray = アプリケーション(StoredArray)
アプリケーション内の配列を上書きする
アプリケーション.ロック
アプリケーション(StoredArray) = LocalArray
アプリケーション.ロック解除
セッションの使用法はアプリケーションと同じです
データベースから配列にデータをインポートする
DimMyArray
すべてのレコードを取得する
MyArray = RS.GetRows
最初の 10 レコードを取得する
MyArray = RS.GetRows(10)
行 = 0 から UBound(MyArray, 2) の場合
Col = 0 から UBound(MyArray, 1) の場合
Response.Write (列、行) & <br>
次
次
「**********************************
'ASP バブリング アルゴリズムの場合
「**********************************
関数ソート(ary)
Dim KeepChecking、I、FirstValue、SecondValue
KeepChecking = TRUE
KeepChecking = FALSEになるまで実行
KeepChecking = FALSE
I = 0 から UBound(ary) の場合
I = UBound(ary) の場合は終了します
ary(I) > ary(I+1) の場合
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
終了する場合
次
ループ
並べ替え = 配列
終了機能
ディム ID、配列 ID、Myarray、M
ID=55,48,78,10,90
ArrayID=split(ID,,)
Myarray=ソート(配列ID)
'ソートテスト
M=0 の場合、Ubound(Myarray) へ
Response.Write Myarray(M) & <br> & vbCRLF
次
'もちろん、次のようにすることもできます。
ディム・マイアレイ
Myarray=配列(12,10,25,78,45)
Myarray=ソート(配列ID)
'ソートテスト
M=0 の場合、Ubound(Myarray) へ
Response.Write Myarray(M) & <br> & vbCRLF
次
'ソートテスト