Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

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, 7013 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
Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

VB for Applications
gelöst Kommunikation zwischen vbs und javascript (1)

Frage von it4baer zum Thema VB for Applications ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
gelöst Vbs programm unabhängig vom Speicherort ausführen (2)

Frage von Markus2016 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(2)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Heiß diskutierte Inhalte
Humor (lol)
gelöst Freidach Beitrag (40)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Firewall
gelöst Firewall Firmeneimsatz (22)

Frage von wiesi200 zum Thema Firewall ...

Multimedia & Zubehör
gelöst 8 GB USB Stick besitzt nur noch 4 MB Kapazität (13)

Frage von Gwahlers zum Thema Multimedia & Zubehör ...