rothen ecotronics Bern: ASP-Skript "ASP Prozeduren und Funktionen: Array summieren"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

'*****************************************************************
'Variablendeklarationen
Dim arrzahlen
Dim arrtexte

'*****************************************************************
'Variableninitialisierung
arrzahlen = Array(3,2,4,7)
arrtexte = Array("Müller","Meier","Huber")

'*****************************************************************
'Lokale Prozeduren und Funktionen
function funsngarraysumme(ByVal arrzahlen)
  Dim blnalleszahlen
  Dim varelement

  'Überprüfen, ob es sich um Zahlen handelt
  blnalleszahlen = true
  for each varelement in arrzahlen
    if not isnumeric(varelement) then
      blnalleszahlen = false
    end if
  next

  'Array summieren
  funsngarraysumme = 0
  if blnalleszahlen then
    for each varelement in arrzahlen
      funsngarraysumme = funsngarraysumme + varelement
    next
  end if
end function

'*****************************************************************
'Anfang Code

'*****************************************************************
'Anfang <html>
%>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>ASP Prozeduren und Funktionen: Array summieren</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />
  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
Response.Write("Summe des Zahlenarrays: " & funsngarraysumme(arrzahlen) & "<br />" & vbCrLf)
Response.Write("Summe des Textarrays: " & funsngarraysumme(arrtexte) & "<br />" & vbCrLf)
%>

</body>
</html>

Demo: uebungen/uebung3_4.asp

Letzter Update: 26.12.2021 17:48

Zurück zur Liste mit ASP-Übungen auf www.ecotronics.ch