Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBScript - schleife in einer schleife

Mitglied: micneu

micneu (Level 2) - Jetzt verbinden

29.01.2011, aktualisiert 02:10 Uhr, 6060 Aufrufe, 2 Kommentare

Hallo Leute,

Möchte in VBScript eine schleife in einer schleife ausführen....

Hier mein Ziel:

das ergebnis soll so sein:

1 start a
2 mitte b
3 ende c

hier mein code:

01.
option explicit
02.
dim aussen, innen, test, zaehler, strInnen, test_innen
03.
aussen = array("start", "mitte", "ende")
04.
innen = array("a", "b", "c")
05.
for each test in aussen
06.
	zaehler = zaehler + 1
07.
	for each test_innen in innen
08.
		strInnen = test_innen
09.
	next
10.
	wscript.echo zaehler & " " & test & " " & strInnen
11.
Next
nur bekomme ich hier immer das ergebnis:
1 start c
2 mitte c
3 ende c

wo ist mein fehler?
Mitglied: 76109
29.01.2011 um 10:03 Uhr
Die inner Schleife wird ja komplett durchlaufen und die endet nun mal auf dem letzten Token (strInnen= c). D.h. insgesamt werden bei dieser Schleifen-Art 9 Ergebnisse erzielt außen(3) * innen(3), wenn das WScript.Echo in der Innen-Schleife stehen würde.

Wenn Du dieses Ergebnis
01.
1 start a
02.
2 mitte b
03.
3 ende c
haben möchtest, dann entweder so Arrays 0-2 auslesen:
01.
aussen = Array("start", "mitte", "ende")
02.
innen = Array("a", "b", "c")
03.

04.
For i=0 To UBound(aussen)
05.
    WScript.Echo i + 1 & " " & aussen(i) & " " & innen(i)
06.
Next
oder Arrays 1-3 auslesen (0 = Dummy = Leer):
01.
aussen = Array("", "start", "mitte", "ende")
02.
innen = Array("", "a", "b", "c")
03.

04.
For i=1 To UBound(aussen)
05.
    WScript.Echo i  & " " & aussen(i) & " " & innen(i)
06.
Next
oder 1 Array mit Step 2 in 2er Schritten auslesen:
01.
EinArray = Array("start", "a", "mitte", "b", "ende", "c")
02.

03.
For i=0 To UBound(EinArray) Step 2
04.
    WScript.Echo i + 1 & " " & EinArray(i) & " " & EinArray(i+1)
05.
Next
Gruß Dieter

PS. oder auch so:
01.
EinArray = Array(Array("start", "a"), Array("mitte", "b"), Array("ende", "c"))
02.

03.
For i = 0 To UBound(EinArray)
04.
    WScript.Echo i + 1 & " " & EinArray(i)(0) & " " & EinArray(i)(1)
05.
Next
Bitte warten ..
Mitglied: micneu
29.01.2011 um 10:29 Uhr
danek, du hast mir gerade den tag gerettet

ich habe mich für die letzte variante entschieden.

gruß michael
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

VB for Applications
VBScript und OR
gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

VB for Applications

VBScript mit Administratorrechten startet kein weiteres VBScript

gelöst Frage von KrautundRuebenVB for Applications9 Kommentare

Hallo, ich möchte ein VBScript innerhalb eines VBScripts aufrufen. Dies gelingt auch ohne Administratorrechte problemlos. Starte ich hingegen das ...

Basic

VBScript hilfe benötigt

Frage von Nico223311Basic1 Kommentar

Guten Tag allerseits. Ich versuche derzeitig ein kleines Programm zu basteln komme aber nicht zu dem Egebniss, welches ich ...

Neue Wissensbeiträge
Linux Tools
Dolibarr ERP CRM - Update Prozess
Anleitung von radiogugu vor 2 StundenLinux Tools

Hallo. Dies soll den kurzen Update Prozess der Software schildern. Zugrunde liegt eine Ubuntu Linux VM an der Stelle. ...

Linux Tools
Dolibarr ERP CRM - Überblick der Software
Anleitung von radiogugu vor 4 StundenLinux Tools

Hallo. Nach der Anleitung zur Einrichtung und Installation der Datenbank und des Webserver Dolibarr ERP CRM Installation möchte ich ...

Linux Tools

Dolibarr ERP CRM Installation der Datenbank und des Webserver

Anleitung von radiogugu vor 4 StundenLinux Tools

Hallo zusammen. Ich bin seit kurzem nebenberuflich selbstständig und suchte eine geeignete Software für die Auftragsverwaltung, CRM und ein ...

Sicherheit

Chrome 79 übermittelt eingegebene Kennwörter nach Hause

Information von DerWoWusste vor 23 StundenSicherheit11 Kommentare

Ab sofort warnt Chrome standardmäßig Nutzer davor, wenn aus Leaks bekannte Passwörter zum Einsatz kommen. Beim Besuch einer Website, ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 Herunterfahren - Funktioniert nach Upgrade von Windows 7 nicht mehr
Frage von krischeuWindows 1016 Kommentare

Hi, ich habe verschiedene PCs mit dem Upgrade Assistenten von Windows 7 Pro 64 Bit auf Windows 10 geupdatet. ...

Windows 10
Win10 Remote Desktop User anders
Frage von ludibubiWindows 1015 Kommentare

Folgende Situation: Auf meinem Rechner (Win10) in der Firma (Domänen-Netzwerk) starte ich abends bevor ich gehe einen Newsletterversand. Damit ...

Entwicklung
Programmiersprache für Server
gelöst Frage von MondeosEntwicklung12 Kommentare

Ich bin relativ neu im Gebiet der Programmierung etc.(mache das auch nur als Hobby bin noch Schüler), und wollte ...

Switche und Hubs
Kein DHCP hinter neuen Switch
Frage von mwormerSwitche und Hubs12 Kommentare

Hallo zusammen, bin gerade ein wenig ratlos. Wir haben vorgestern unseren alten Zyxel GS-1548 gegen einen TP-Link SG1024DE getauscht. ...