<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
on error resume next
Dim arrx(), arry, arrz(2,2)
ReDim arrx(10)
arrx(3) = "ASP-Entwickler/in"
arry = Array("WebMaster/in","WebPublisher/in", _
"PC-Supporter/in", "Netzwerkspezialist/in")
arrz(0,0) = 1
arrz(0,1) = 2
arrz(1,0) = 3
arrz(1,1) = 4
%>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Grundelemente: Arrays in VBScript
</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<h1>ASP Grundelemente: Arrays in VBScript
</h1>
<%
Response.Write("<p>arrx(3): " & arrx(3)&"<br />" & vbCrLf)
Response.Write("Länge von arrx: " & UBound(arrx) & "</p>" & vbCrLf)
Response.Write("<p>arry(0): " & arry(0) & "</p>" & vbCrLf)
Response.Write("<p>Summe arrz: " & _
arrz(0,0)+arrz(0,1)+arrz(1,0)+arrz(1,1) & "</p>" & vbCrLf)
ReDim preserve arrx(20)
Response.Write("<p>Länge arrx nach ""ReDim preserve"": " & _
UBound(arrx) & "</p>" & vbCrLf)
Response.Write("<p>arrx(3) noch vorhanden: " & _
arrx(3) & "<br />" & vbCrLf)
ReDim arrx(4)
Response.Write("<p>Länge arrx nach ""ReDim"": " & _
UBound(arrx) & "</p>" & vbCrLf)
Response.Write("<p>arrx(3) nicht mehr vorhanden: " & _
arrx(3) & "<br />" & vbCrLf)
%>
 
<br /><h2>Zweidimensionale Arrays
</h2>
Eine direkte Zuweisung mit der Array-Funktion scheint für
zweidimensionale Arrays nicht zu existieren.
<br /> Mit Arrays in
Arrays lässt sich allerdings eine kompakte Schreibweise erreichen.
</p>
<p><b>Beispiel eines zweidimensionalen Arrays mit 4 Zeilen und 3 Spalten
</b></p>
<p><b>Achtung:
</b>
Hier liefert Ubound nicht die Anzahl, sondern den letzten Index!
</p>
<%
Dim arrSpecialFields
arrSpecialFields = Array( _
Array("UpdateDate", "function", "now()"), _
Array("Special", "value", "15" ), _
Array("Null", "null", ""), _
Array("NoUpdate", "noupdate", ""))
Response.Write("<p>1 Zeile, 3. Spalte: " & arrSpecialFields(0)(2) & "<br />" & _
"UBound(arrSpecialFields(): " & UBound(arrSpecialFields) & "<br />" & _
"UBound(arrSpecialFields(0)): " & UBound(arrSpecialFields(0)) & "<br />" & _
"</p>" & vbCrLf)
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: beispiele/010vbsarray.asp
Letzter Update:
26.12.2021 16:48
Zurück zur
Liste mit ASP-Beispielen auf
www.ecotronics.ch