WeGievU.Com
WeGievU.Com
WeGievU.Com
User :
Pass :
  WeGievU.Com
WeGievU.Com
WeGievU.Com
» E-Learning Room > Asp
WeGievU.Com
Operator ของ Array 
( 22  Views )

Mon 01-09-2551 Time 12:30
Category: Asp/ WeGievU.Com 0Comments
WeGievU.Com

เป็นโครงสร้างข้อมูลที่เป็นกลุ่มเดียวกัน เพื่อลดความซ้ำซ้อนของตัวแปรที่จะเกิดขึ้น

การประกาศตัวแปร 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%>


************************************************************************************



แสดงความคิดเห็น “ Operator ของ Array   Comment”
WeGievU.Com
WeGievU.Com


Learning
| Tip | Knowledge
Copyright (c) 2010 by Wegiveu.com Team ( We Give Everything )