PalinkatoR: "Array" aus Textfeldern

Beitrag lesen

Hallo.
Stehe vor folgendem Problem:Schreibe an einer HTA-Datei, mit der es möglich sein soll, IP-Adressen einzustellen. Zur Eingabe der Adresse habe ich 4 Textfelder im HTML-Teil erstellt:
IP0,IP1,IP2,IP3

Die IP-Adresse ist dann:

IP0.value & "." & IP1.value & "." & IP2.value & "." & IP3.value

Anfänglich habe ich nur ein Textfeld benutzt, jedoch fiel mir keine Möglichkeit ein, die Eingabe des Users zu überprüfen, sprich festzustellen, dass die jeweiligen Teile der Adresse Intergers zwischen 0 und 255 sind, usw, deshalb habe ich die 4 getrennten Felder erstellt.

Nun benutze ich folgenden Code um die Eingabe des Users zu überprüfen:

dim IP0int

If IP0.value <> "" Then
 IP0int = IP0.value
Else
 MsgBox "Enter Numeric Value From The Interval [0;255]"
 Exit Sub
End If

IP0int = CByte(IP0int)

If Err.Number <> 0 Then
 MsgBox "Enter Numeric Value From The Interval [0;255]"
 Exit Sub
End If

Soweit passt alles. Nun soll man aber über das Programm auch DNS-Server, Gateway und Subnet Mask einstellen können, dh ich habe 5 mal 4 Felder für die 5 Adressen. Dh ich müsste diesen Code ^^ 20 mal kopieren. :ugly:

Nun zu meiner eigentlichen Frage:
Gibt es eine Möglichkeit, für die 20 Textfelder eine Schleife zu schreiben, quasi aus den Textfeldern eine Array zu machn - Text(i) - und durch diese durchzuiteriern? Oder habt ihr ganz andere Lösungsvorschläge für mein Problem?

Danke im Voraus!
P.