asp配列の使用紹介

3711 ワード

単純配列の定義
2つの方法がaspで配列を定義して初期化しています。それぞれの例を見てみましょう。
方法1:
MyAray=Aray(「Jan」、「Feb」、「Mar」、「Ar」、「May」、「Jun」、「Jull」、「Aug」、「Sep」、「Oct」、「Nov」、「Dec」)
配列サイズは初期化要素の個数で決まります。
方法二:
Dim myAray(2)'指定配列サイズ
myAray(0)=「Jan」
myAray(1)=Feb
行列ダイナミック拡張
DIM myAray()
REDIM myAray(20)'は配列サイズを20に再定義する。
ReDim Prserve MyAray(i)   'プレハブ   配列内の既存のデータを保持します。
二次元配列
例:
dim MyAray(5,10)'は二次元配列を定義しています。
二次元割当の例:
MYArray(3,3)=100
二次元配列には、別の変形法がある。
dim MyAray(5)
MyAray(0)=Aray(...)1次元配列
MyAray(1)=Aray(...)1次元配列

訪問する時は、MyAray(x)(y)というフォーマットで
配列の下付き文字
上の方法で配列を定義します。一次元配列の最初の要素の下付きは0で、最後の要素の下付きは元素の数-1です。
配列の下付き文字を指定することもできます。
dim MyAray 1(3 to 10)  '下付きは3から10までで、MyAray(3)は最初の要素の値を取得します。
有用な配列関数
Ubound(配列名)関数は、配列の最後の要素の下付きを返します。
Lbound(配列名)関数--配列の最初の要素の下付きを返します。デフォルトは0です。
詳細なアプリケーション:
配列並び替え関数

function Sort(ary) 
KeepChecking = TRUE 
Do Until KeepChecking = FALSE 
KeepChecking = FALSE 
For I = 0 to UBound(ary) 
If I = UBound(ary) Then Exit For 
If ary(I) > ary(I+1) Then 
FirstValue = ary(I) 
SecondValue = ary(I+1) 
ary(I) = SecondValue 
ary(I+1) = FirstValue 
KeepChecking = TRUE 
End If 
Next 
Loop 
Sort = ary 
End function
配列並べ替え関数の適用例

Dim MyArray 
MyArray = Array(1,5,123,12,98) 
MyArray = Sort(MyArray) 
For I = Lbound(MyArray) to Ubound(MyArray) 
Response.Write MyArray(I) & "<br>" 
Next
文字列を分割して、行列を返します。

Dim MyArray 
MyArray = Split(   ,   ) 
For I = Lbound(MyArray) to Ubound(MyArray) 
Response.Write MyArray(I) & "<br>" 
Next
AplicationとSessionで配列を使用します。
Apple.Lock
Apple(「StredAray」)=MyAray
Apple.ユニック
Local Aray=Application(「StredAray」)
アプリの配列を上書き
Apple.Lock
アプリ(「StredAray」)=Locarry
Apple.ユニック
Sessionの使い方はApplicationと同じです。
データベースからデータを行列にインポートします。
Dim MyAray
すべてのレコードを取り出します
MyAray=RS.GetRows
取り出し前10項目記録
MyAray=RS.GetRows(10)
For row=0 To UBound(MyAray,2)
For col=0 To UBound(MyAray,1)
Resonse.Write(col,row)&'

次のテキスト
次のテキスト
別のページに配列を送る
現在は他のページに配列を送る方法がたくさんあります。現在は3つの方法があります。
コンマ区切りの文字列を指定して、次のページでスプリット関数で配列を再構築します。
配列を一つのセッション変数に格納し、次のページで呼び出します。
フォームの暗黙の領域を通して配列を伝達し、それらは自動的にカンマで区切られ、そしてSplit関数で配列を再構築します。
前の二つの方法はいいですが、第三の中より複雑です。ここでは三つ目だけ紹介します。一番簡単で効果的ですから。
1.asp:

<%
dim I
dim myArray(20)

for I=0 to 20
myArray(I)="Item " & I
next
%>
<html>
<body>
<form name="testform" method="post" action="2.asp">
<%
for I=0 to ubound(myArray)
response.write "<input type=hidden name=myArray value='" & myArray(I) & "'>"
next
%>
<p>
<input type="submit">
</form>
</body>
</html>
以上のように、私たちが作ったのは一つのフォームに別々の暗黙の領域記憶配列の各要素を使って、次のページを見てみましょう。
2.asp

<html>
<body>
<%
dim arrString
dim myArray
dim I

arrString=request("myArray")
myArray = split(arrString,",")

for I=0 to ubound(myArray) 
response.write "Item "&I&" = " & myArray(I) & "<br>" & vbCrLf
next
%>
</body>
</html>
以上はasp配列の使用紹介の詳細です。asp配列に関する資料は他の関連記事に注目してください。