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

vbs Schleife bzw. Script soll immer wiederholt werden

Frage Entwicklung VB for Applications

Mitglied: 78505

78505 (Level 1)

12.05.2009, aktualisiert 14:35 Uhr, 6879 Aufrufe, 3 Kommentare

Hallo!!! Ich hoffe jemand kennt die Lösung!!!!!
Kann man den jeweiligen Script immer wiederholen!?!
Es soll damit erreicht werden das, dass Fenster bzw. InputBox nicht automatisch schließt und weitergehend Daten bzw LieferscheinNr.: eingetragen werden können!
Ich habe es mit der Do --> Loop Schleife probiert beim zweitenmal bleibt er hängen und zeigt einen Fehler an.

Der Code lautet:

dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
username=inputbox ("Bitte geben Sie die Lieferscheinnummer ein!","Lieferschein","LieferscheinNr.:")
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, true)
fileOut.WriteLine (username)


dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, True)
Do While 1=1
username=InputBox ("Bitte geben Sie die Lieferscheinnummer
ein!","Lieferschein","LieferscheinNr.:")


If Not username = "" Then
FileOut.WriteLine (username)
Else Exit Do
End If
Loop

So etwas

Ich danke dir MONOTONE !!!!
Klasse funktioniert!!! GENIAL!!!
Mitglied: 76109
12.05.2009 um 12:40 Uhr
Hallo afb2010

Antwort wegen Wald und Bäume entfernt.

Gruß Dieter
Bitte warten ..
Mitglied: MonoTone
12.05.2009 um 13:24 Uhr
dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, True)
Do While 1=1
username=InputBox ("Bitte geben Sie die Lieferscheinnummer ein!","Lieferschein","LieferscheinNr.:")


If Not username = "" Then
FileOut.WriteLine (username)
Else Exit Do
End If
Loop

So etwas

So sollte es klappen.
Geht aber auch mit For

Wichtig is nur das du "Set FileOut = ...." nicht mit in die Schleife reingibst,
Bitte warten ..
Mitglied: MonoTone
12.05.2009 um 13:34 Uhr
oO

Was sollte das bringen ?
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...