Array ASP adalah wadah yang relatif mudah digunakan untuk memuat data dalam jumlah besar.
1. Definisikan susunan
Ada dua cara: DIM dan REDIM.
DIM mendefinisikan array dengan nomor tetap dan tipe data berbeda. Ia dapat mendefinisikan berbagai jenis data, dan juga dapat mendefinisikan data yang nomornya tidak tetap. Bandingkan contoh berikut. Contoh yang semuanya legal:
kode program
Redupkan myarray(5,2)
Redim myarray(5,2)
Contoh di mana yang pertama salah dan yang kedua sah:
kode program
n=10
Redupkan myarray(n)
Redim myarray(n,2)
Selain itu, REDIM juga dapat mendefinisikan array dengan tipe yang belum ditentukan, seperti:
kode program
Redim myarray(10)
2. Jumlah array
Subskrip yang ditentukan saat mendefinisikan array dengan DIM atau REDIM mewakili subskrip maksimum yang diperbolehkan saat mengakses array, tetapi bukan jumlah array. Faktanya, jumlah array satu dimensi selalu sama dengan (subskrip maksimum + 1), dan akses dilakukan satu per satu mulai dari 0 hingga subskrip.
Misalnya:
kode program
Redupkan myarray(5)
Ada 6 elemen array yang didefinisikan, yaitu:
Konten kutipan
array saya(0), array saya(1), array saya(2), array saya(3), array saya(4), array saya(5)
Contoh lain:
kode program
Redim array ini (2,5)
Faktanya, array dua dimensi (2+1)*(5+1)=1 8 didefinisikan.
Dalam hal ini, bisakah kita mendefinisikan array dengan hanya satu elemen secara jelas? Jawabannya adalah: tidak.
Seperti disebutkan sebelumnya,
kode program
Redim array ini (1)
Array yang didefinisikan sebenarnya memiliki elemen array (1+1), tetapi terlihat seperti:
kode program
Redim array ini (0)
Sintaksnya salah. Oleh karena itu, Anda tidak dapat mendefinisikan array dengan hanya satu elemen array. Sebenarnya yang disebutkan di atas hanyalah status defaultnya saja. Faktanya, saat mendefinisikan sebuah array, Anda dapat menentukan jumlah array dan bahkan nomor awal dan akhir dari subskrip dengan menentukan awal dan akhir dari subskrip. Misalnya:
kode program
Redim array ini (1980 hingga 1990)
Array yang berisi 11 elemen didefinisikan, dengan subskrip dari tahun 1980 hingga 1990.
3. Tentang fungsi UBOUND
UBOUND mengembalikan subskrip maksimum dari array satu dimensi, bukan jumlah elemen. Misalnya:
kode program
Redupkan Myarray(5)
,Jadi
kode program
UBUND (Myarray)
Nilai yang dikembalikan adalah 5, bukan 6. UBOUND juga dapat diterapkan pada array dua dimensi. Ketika diterapkan pada array dua dimensi, ia mengembalikan nilai maksimum dari indeks pertama.
Misalnya:
kode program
Redupkan Myarray(6,3)
, Jadi
kode program
UBUND (Myarray)
Nilai yang dikembalikan adalah 6, bukan 7, apalagi 18 (6*3=18).
Untuk mengembalikan nilai maksimum subskrip kedua, gunakan:
kode program
UBUND(Myarray,2)
.
Sesuai dengan UBOUND adalah fungsi lain: LBOUND, yang mengembalikan subskrip minimum array. Mirip dengan UBOUND, LBOUND(Myarray,2) mengembalikan nilai minimum subskrip kedua dari array MYARRAY. Jadi, tepatnya, jumlah elemen array satu dimensi Myarray adalah:
kode program
UBOUND(Myarray)-LBOUND(Myarray)+1
, dan jumlah elemen array dua dimensi adalah:
kode program
(UBOUND(Myarray)-LBOUND(Myarray)+1)*(UBOUND(Myarray,2)-LBOUND(Myarray,2)+1)
http://www.knowsky.com/
Array multidimensi dan sebagainya.
4. Pengertian larik
kode program
DimMyArray
Array Saya = Array(1,5,123,12,98)
Array yang dapat diperluas
kode program
RedupkanArraySaya()
untuk i = 0 sampai 10
ReDim Pertahankan MyArray(i)
Array Saya(i)=i
Berikutnya
Memisahkan string dan mengembalikan array hasil pemisahan
kode program
DimMyArray
MyArray = Pisahkan(tempcnt,chr(13)&chr(10))
Untuk I = Lbound(MyArray) hingga Ubound(MyArray)
Respon.Tulis MyArray(I) & <br>
Berikutnya
5. Fungsi penyortiran array
kode program
Pengurutan Fungsi(ary)
KeepChecking = BENAR
Lakukan Hingga KeepChecking = SALAH
KeepChecking = SALAH
Untuk I = 0 sampai UBound(ary)
Jika I = UBound(ary) Lalu Keluar Untuk
Jika ary(I) > ary(I+1) Maka
Nilai Pertama = ary(I)
Nilai Kedua = ary(I+1)
ary(I) = Nilai Kedua
ary(I+1) = Nilai Pertama
KeepChecking = BENAR
Akhiri Jika
Berikutnya
Lingkaran
Urutkan = ary
Fungsi Akhir
Contoh aplikasi fungsi pengurutan array
kode program
DimMyArray
Array Saya = Array(1,5,123,12,98)
MyArray = Urutkan(MyArray)
Untuk I = Lbound(MyArray) hingga Ubound(MyArray)
Respon.Tulis MyArray(I) & <br>
Berikutnya
6. Gunakan array dalam aplikasi dan sesi
kode program
Aplikasi.Kunci
Aplikasi(Array Tersimpan) = Array Saya
Aplikasi. Buka kunci
LocalArray = Aplikasi(StoredArray)
Timpa array di Aplikasi
kode program
Aplikasi.Kunci
Aplikasi(Array Tersimpan) = Array Lokal
Aplikasi. Buka kunci
Penggunaan sesi sama dengan Aplikasi
7. Impor data dari database ke dalam array
Metode ini sering saya gunakan dalam integrasi fungsi kode.
kode program
DimMyArray
Dapatkan semua catatan
MyArray = RS.GetRows
Dapatkan 10 catatan pertama
MyArray = RS.GetRows(10)
Untuk baris = 0 Ke UBound(MyArray, 2)
Untuk col = 0 Ke UBound(MyArray, 1)
Response.Write (kolom, baris) & <br>
Berikutnya
Berikutnya