| เป็นโครงสร้างข้อมูลที่เป็นกลุ่มเดียวกัน
เพื่อลดความซ้ำซ้อนของตัวแปรที่จะเกิดขึ้น
การประกาศตัวแปร
Array
Dim A(5)
'ประกาศตัวแปร Array A(0),A(1),A(2),A(3),A(4),A(5)'
************************************************************************************
การกำหนดค่าให้กับ
Array
A(0)=4
A(1)=9
A(2)=5
A(3)=6
A(4)=3
A(5)=1
************************************************************************************
การประกาศตัวแปร
Array หลายมิติ
Dim B(2,5)
'Array 2 มิติ'
Dim C(2,4,8)
'Array 3 มิติ'
ตัวอย่าง
<% myarray
= array("A",
"B", "C", "D")
%>
<%
=myarray(0)
%><br>
<%
=myarray(1)
%><br>
<%
=myarray(2)
%><br>
<%
=myarray(3)
%><br>
ผลที่ได้
A
B
C
D
************************************************************************************
ตัวอย่าง
<% myarray
= array(111,
222, 333,
444, 555)
%>
<%
=myarray(0)
%><br>
<%
=myarray(1)
%><br>
<%
=myarray(2)
%><br>
<%
=myarray(3)
%><br>
ผลที่ได้
111
222
333
444
555
************************************************************************************
ตัวอย่างการใช้
Array เพื่อตรวจสอบคำหยาบ
<%
msg="ช้างน้ำ
หมู่ป่า " ' สร้างตัวแปรที่รับข้อมูลเข้ามา'
' ประกาศตัวแปร badtext เป็นอาร์เรย์ที่มีคำหยาบอยู่ภายใน'
badtext = array("ช้างน้ำ","หมูป่า","เก้ง","กระทิง","ไก่")
' คิดว่าเป็นคำหยาบก็แล้วกันนะ '
b = 0
For a
= 0 to
Ubound(badtext)
if InStr(msg
, badtext(a)) <> 0
then %>
'เปรียบเทียบระหว่างตัวแปรกับข้อมูลในอาร์เรย์
'
พบคำหยาบคำว่า "<%=badtext(a)%>"<br>
%>
<%Else
b = b+1
End if
Next
if b = Ubound(badtext)
+ 1 then
%>
คุณเป็นคนดีนะนี้เหอะๆ
<%End
if%>
************************************************************************************
|