Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: micneu

micneu (Level 2) - Jetzt verbinden

29.01.2011, aktualisiert 02:10 Uhr, 5693 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
VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

Batch & Shell
gelöst Verschachtelte FOR-Schleife mit einem Argument (3)

Frage von mp-home zum Thema Batch & Shell ...

Batch & Shell
gelöst Fehler in Schleife (2)

Frage von miczar zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (19)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

SAN, NAS, DAS
MSA 2050 RAID Konfig (17)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Festplatten, SSD, Raid
RAID Controller mit Trim-Funktion, wie ermitteln (11)

Frage von pixel24 zum Thema Festplatten, SSD, Raid ...