5
vbs leer datei erstellen und Menü erstellen
2 Fragen die ich selbst nicht beantworten kann^^
Hallo leutz ,
Ich beschäftige mich schon seit längerem mit Batch datein , und wollte nun anfangen mit VBScript
bisher ist das einzigste was ich mit vbs kann eine mesagebox auszugeben und zwar mit dem MSGbox befehl ^^
Nun wollt ich ein kleines Menü bauen eher gesagt wieder eine Messagebox bloß mit 5 auswahl möglichkeiten die jeweils was anderes bewirken
oder eher gesagt die immer eine andere Datei erstellen
zb Antwort Möglichkeit 1 erstellt die datei "1.dat"
Batchscript mäßig ist das kein Problem da sähe das wie folgt aus
if Variable==1 goto 1
:1
echo >>1.dat
Ist das in VBS eigentlich möglich und wenn ja wie geht das ?
Ich beschäftige mich schon seit längerem mit Batch datein , und wollte nun anfangen mit VBScript
bisher ist das einzigste was ich mit vbs kann eine mesagebox auszugeben und zwar mit dem MSGbox befehl ^^
Nun wollt ich ein kleines Menü bauen eher gesagt wieder eine Messagebox bloß mit 5 auswahl möglichkeiten die jeweils was anderes bewirken
oder eher gesagt die immer eine andere Datei erstellen
zb Antwort Möglichkeit 1 erstellt die datei "1.dat"
Batchscript mäßig ist das kein Problem da sähe das wie folgt aus
if Variable==1 goto 1
:1
echo >>1.dat
Ist das in VBS eigentlich möglich und wenn ja wie geht das ?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 83914
Url: https://administrator.de/contentid/83914
Printed on: April 19, 2024 at 02:04 o'clock
5 Comments
Latest comment
Hallo Noir-m und willkommen im Forum!
Bevor ich auf Deine Fragen eingehe, einige Links für den Start:
http://www.microsoft.com/germany/technet/datenbank/articles/600358.mspx ...
http://msdn2.microsoft.com/en-us/library/sx7b3k7y(VS.85).aspx
http://www.microsoft.com/technet/scriptcenter/hubs/start.mspx (dort auch sehr zu empfehlen: die "Hey, Scripting Guy!"-Kolumnen)
http://dieseyer.de/index.htm
und (bei dieseyer.de verlinkt) als Nachschlagewerk in der Offline-Version: http://wsh-vbs.de/scr56de.chm/script56.chm
Wenn Du die zuletzt erwähnte Hilfedatei herunterlädtst und startest, wird Dir bereits auf der ersten Seite ein Link zum "FileSystemObject" angeboten - dort findest Du die grundlegenden Methoden, um mit Textdateien zu arbeiten. Diese wirst Du sehr oft, und natürlich auch für Dein hier geschildertes Vorhaben, benötigen.
Ein Script zu eben diesem Vorhaben könnte so aussehen:
Eine alternative Umsetzung würde die eingegebene Ziffer gleich direkt für den Dateinamen verwenden und sähe dann so aus:
In beiden Fällen wird (abweichend von der skizzierten Batch-Version) die Eingabe kontrolliert und nur akzeptiert, wenn sie aus einer der vorgegebenen Ziffern besteht oder "Abbruch" angeklickt bzw eine leere Eingabe getätigt wurde.
Die weitere Umsetzung bildet (hinsichtlich des Inhaltes der zu erstellenden Datei
) das mit dem Batch zu erzielende (falls dort noch die Schreibweise auf %Variable% geändert würde) Ergebnis nach - daher auch "ForAppend", was ">>" in Batch entspricht.
Noch kurz zu einigen Besonderheiten des dargestellten Codes:
Da VBS zeilenorientiert arbeitet, der Code aber oft durch Aufteilung auf mehrere Zeilen lesbarer wird, können durch "_" am Zeilenende Zeilen miteinander verbunden werden - im Beispiel oben können so alle Menüoptionen in Einzelzeilen dargestellt werden, während für den Interpreter die Zeile eigentlich so aussieht:
Mit "&" werden einzelne Textteile verknüpft, und mit der Konstanten "vbCrLF" wird jeweils eine Zeilenschaltung erzwungen.
Kommentare werden mit einem Apostroph (') eingeleitet und können auch am Ende einer Zeile angefügt werden.
"Do" - "Loop" ist ein Schleifenkonstrukt, das hier dazu verwendet wird, eine passende Eingabe zu erzwingen.
Die Eingabe über eine InputBox liefert als Ergebnis immer einen String, daher werden bei der Überprüfung und Auswertung die Ziffern auch nicht als Zahl, sondern als Text behandelt und müssen daher unter Anführungszeichen stehen.
"If" - "Then" kann ein- oder mehrzeilig geschrieben werden - in letzterem Fall ist der Block mit "End If" abzuschließen (analog dazu auch bei der Auswertung über "Select Case").
Für das Erzeugen der Datei wird das schon erwähnte "FileSystemObject" verwendet, wobei der Ordnung halber der Ordner, in welchem die Datei erstellt werden soll, mit vollständigem Pfad vorgegeben wird.
Die abschließende MsgBox wird noch durch ein passendes Symbol (siehe Konstante "vbInformation") ergänzt.
Grüße
bastla
Bevor ich auf Deine Fragen eingehe, einige Links für den Start:
http://www.microsoft.com/germany/technet/datenbank/articles/600358.mspx ...
http://msdn2.microsoft.com/en-us/library/sx7b3k7y(VS.85).aspx
http://www.microsoft.com/technet/scriptcenter/hubs/start.mspx (dort auch sehr zu empfehlen: die "Hey, Scripting Guy!"-Kolumnen)
http://dieseyer.de/index.htm
und (bei dieseyer.de verlinkt) als Nachschlagewerk in der Offline-Version: http://wsh-vbs.de/scr56de.chm/script56.chm
Wenn Du die zuletzt erwähnte Hilfedatei herunterlädtst und startest, wird Dir bereits auf der ersten Seite ein Link zum "FileSystemObject" angeboten - dort findest Du die grundlegenden Methoden, um mit Textdateien zu arbeiten. Diese wirst Du sehr oft, und natürlich auch für Dein hier geschildertes Vorhaben, benötigen.
Ein Script zu eben diesem Vorhaben könnte so aussehen:
MenueTitel = "Auswahlmenü"
MenueText = _
"1: Erzeuge 1.dat" & vbCrLF & _
"2: Erzeuge 2.dat" & vbCrLF & _
"3: Erzeuge 3.dat" & vbCrLF & _
"4: Erzeuge 4.dat" & vbCrLF & _
"5: Erzeuge 5.dat" & vbCrLF & vbCrLF & _
"0: Beenden" & vbCrLF & vbCrLF & _
"Bitte die Nummer der gewünschten Option eingeben!"
Do
Auswahl = InputBox(MenueText, MenueTitel)
Loop Until Auswahl >="0" And Auswahl <="5" Or Auswahl = ""
If Auswahl = "" Then WScript.Quit 'Abbruch gewählt
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
BasisPfad = "D:\MenueTest"
Select Case Auswahl
Case "0"
MsgBox "Script wird beendet."
WScript.Quit
Case "1"
DateiPfad = BasisPfad & "\" & "1.txt"
Case "2"
DateiPfad = BasisPfad & "\" & "2.txt"
Case "3"
DateiPfad = BasisPfad & "\" & "3.txt"
Case "4"
DateiPfad = BasisPfad & "\" & "4.txt"
Case "5"
DateiPfad = BasisPfad & "\" & "5.txt"
Case Else
'Eine weitere Möglichkeit kann es in diesem Fall nicht geben,
'sollte aber eigentlich immer berücksichtigt werden ...
End Select
Set Datei = fso.OpenTextFile(DateiPfad, ForAppending, True)
Datei.WriteLine "ECHO ist eingeschaltet (ON)."
Datei.Close
MsgBox Dateipfad & " wurde erstellt.", vbInformation, "Datei erstellt" MenueTitel = "Auswahlmenü"
MenueText = _
"1: Erzeuge 1.dat" & vbCrLF & _
"2: Erzeuge 2.dat" & vbCrLF & _
"3: Erzeuge 3.dat" & vbCrLF & _
"4: Erzeuge 4.dat" & vbCrLF & _
"5: Erzeuge 5.dat" & vbCrLF & vbCrLF & _
"0: Beenden" & vbCrLF & vbCrLF & _
"Bitte die Nummer der gewünschten Option eingeben!"
Do
Auswahl = InputBox(MenueText, MenueTitel)
Loop Until Auswahl >="0" And Auswahl <="5" Or Auswahl = ""
If Auswahl = "" Then WScript.Quit 'Abbruch gewählt
If Auswahl = "0" Then 'Beenden gewählt
MsgBox "Script wird beendet."
WScript.Quit
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
BasisPfad = "D:\MenueTest"
DateiPfad = BasisPfad & "\" & Auswahl & ".txt"
Set Datei = fso.OpenTextFile(DateiPfad, ForAppending, True)
Datei.WriteLine "ECHO ist eingeschaltet (ON)."
Datei.Close
MsgBox Dateipfad & " wurde erstellt.", vbInformation, "Datei erstellt" Die weitere Umsetzung bildet (hinsichtlich des Inhaltes der zu erstellenden Datei
) das mit dem Batch zu erzielende (falls dort noch die Schreibweise auf %Variable% geändert würde) Ergebnis nach - daher auch "ForAppend", was ">>" in Batch entspricht.Noch kurz zu einigen Besonderheiten des dargestellten Codes:
Da VBS zeilenorientiert arbeitet, der Code aber oft durch Aufteilung auf mehrere Zeilen lesbarer wird, können durch "_" am Zeilenende Zeilen miteinander verbunden werden - im Beispiel oben können so alle Menüoptionen in Einzelzeilen dargestellt werden, während für den Interpreter die Zeile eigentlich so aussieht:
MenueText = "1: Erzeuge 1.dat" & vbCrLF & "2: Erzeuge 2.dat" & vbCrLF & "3: Erzeuge 3.dat" & vbCrLF & "4: Erzeuge 4.dat" & vbCrLF & "5: Erzeuge 5.dat" & vbCrLF & vbCrLF & "0: Abbruch" & vbCrLF & vbCrLF & "Bitte die Nummer der gewünschten Option eingeben!" Kommentare werden mit einem Apostroph (') eingeleitet und können auch am Ende einer Zeile angefügt werden.
"Do" - "Loop" ist ein Schleifenkonstrukt, das hier dazu verwendet wird, eine passende Eingabe zu erzwingen.
Die Eingabe über eine InputBox liefert als Ergebnis immer einen String, daher werden bei der Überprüfung und Auswertung die Ziffern auch nicht als Zahl, sondern als Text behandelt und müssen daher unter Anführungszeichen stehen.
"If" - "Then" kann ein- oder mehrzeilig geschrieben werden - in letzterem Fall ist der Block mit "End If" abzuschließen (analog dazu auch bei der Auswertung über "Select Case").
Für das Erzeugen der Datei wird das schon erwähnte "FileSystemObject" verwendet, wobei der Ordnung halber der Ordner, in welchem die Datei erstellt werden soll, mit vollständigem Pfad vorgegeben wird.
Die abschließende MsgBox wird noch durch ein passendes Symbol (siehe Konstante "vbInformation") ergänzt.
Grüße
bastla
erstmal 1000 dank für deinen sehr ausführlichen Post , ich kann jede Hilfe
bzw jedes Tutorial gebrauchen.
Ich habe auch mal deine "Scripts" bzw die Codes für die Scripts ausgetestet
leider gehen keine von beiden bei mir
Ich bekomme eine Fehlermeldung mit :
"Der Pfad wurde nicht gefunden"
und bei beiden Scripts muss es anscheinend an der Zeile liegen
"Set fso = CreateObject("Scripting.FileSystemObject")"
und ich hätte noch eine Frage
wie ich im Code oder in mehreren Tutorials gesehen habe muss man einen Pfad für die zu erstellende Datei angeben.
Kann man es nicht auch wie bei einer Batch datei machen das die datei im selben ordner wie die Batch datei erstellt wird ?
mfg Noir-m
€dit :
Die fehlermeldung sieht so aus :
http://www.bilderuploaden.de/aihspro2/show.php/4408_bug.PNG.html
bzw jedes Tutorial gebrauchen.
Ich habe auch mal deine "Scripts" bzw die Codes für die Scripts ausgetestet
leider gehen keine von beiden bei mir
Ich bekomme eine Fehlermeldung mit :
"Der Pfad wurde nicht gefunden"
und bei beiden Scripts muss es anscheinend an der Zeile liegen
"Set fso = CreateObject("Scripting.FileSystemObject")"
und ich hätte noch eine Frage
wie ich im Code oder in mehreren Tutorials gesehen habe muss man einen Pfad für die zu erstellende Datei angeben.
Kann man es nicht auch wie bei einer Batch datei machen das die datei im selben ordner wie die Batch datei erstellt wird ?
mfg Noir-m
€dit :
Die fehlermeldung sieht so aus :
http://www.bilderuploaden.de/aihspro2/show.php/4408_bug.PNG.html
Hallo Noir-m!
Das lässt sich auch in VBS erreichen - dazu müsstest Du ganz einfach nur auf das Angeben des Basispfades verzichten und den Dateipfad etwa so festlegen:
Der Rest des Scripts könnte unverändert bleiben.
Falls Du wirklich sicherstellen willst, dass unabhängig von der Art des Aufrufes die Datei im selben Ordner angelegt wird, in dem sich auch das Script befindet, könntest Du den Basispfad so angeben:
Mit der zweiten Zeile stellst Du sicher, dass auch bei einem Rootordner (zB "D:\") kein "\" am Ende aufscheint (dieser wird erst beim Zusammenfügen des Dateipfades platziert).
Anmerkung dazu: In den allermeisten Fällen ist es allerdings weder in Batch, noch in VBS, ein Problem, innerhalb eines Pfades "\\" anstelle eines einfachen "\" zu schreiben - in VBA, konkret in Excel, hatte ich allerdings bereits Probleme mit einer derartigen Schreibweise und versuche daher zumeist, doppelte "\" zu vermeiden.
Grüße
bastla
Ich bekomme eine Fehlermeldung mit :
"Der Pfad wurde nicht gefunden"
Vermutlich ist der Grund dafür, dass der von mir verwendete Zielordner (BasisPfad) "D:\MenueTest" bei Dir nicht existiert."Der Pfad wurde nicht gefunden"
wie ich im Code oder in mehreren Tutorials gesehen habe muss man einen Pfad für die zu erstellende Datei angeben.
Kann man es nicht auch wie bei einer Batch datei machen das die datei im selben ordner wie die Batch datei erstellt wird ?
Genau genommen wird auch in Batch die Datei im aktuellen Ordner (und damit nicht unbedingt im Ordner, in welchem die Batchdatei liegt) erzeugt.Kann man es nicht auch wie bei einer Batch datei machen das die datei im selben ordner wie die Batch datei erstellt wird ?
Das lässt sich auch in VBS erreichen - dazu müsstest Du ganz einfach nur auf das Angeben des Basispfades verzichten und den Dateipfad etwa so festlegen:
Dateipfad = "1.txt" Falls Du wirklich sicherstellen willst, dass unabhängig von der Art des Aufrufes die Datei im selben Ordner angelegt wird, in dem sich auch das Script befindet, könntest Du den Basispfad so angeben:
BasisPfad = fso.GetParentFolderName(WScript.ScriptFullName)
If Right(BasisPfad, 1) = "\" Then BasisPfad = Left(BasisPfad, Len(BasisPfad) - 1) Anmerkung dazu: In den allermeisten Fällen ist es allerdings weder in Batch, noch in VBS, ein Problem, innerhalb eines Pfades "\\" anstelle eines einfachen "\" zu schreiben - in VBA, konkret in Excel, hatte ich allerdings bereits Probleme mit einer derartigen Schreibweise und versuche daher zumeist, doppelte "\" zu vermeiden.
Grüße
bastla
Wow vielen vielen Dank
Jetzt klappt das Script 1a :D
komisch nur das es vorher nicht funktioniert hat den ich habe
auch eine Partition D.
Egal hauptsache es funktioniert :D
Vielen vielen dank , Big thx !!! ^^
Jetzt klappt das Script 1a :D
komisch nur das es vorher nicht funktioniert hat den ich habe
auch eine Partition D.
Egal hauptsache es funktioniert :D
Vielen vielen dank , Big thx !!! ^^
Hallo Noir-m!
Grüße
bastla
komisch nur das es vorher nicht funktioniert hat den ich habe
auch eine Partition D.
... aber den Ordner "D:\MenueTest" hattest Du nicht, und ich habe im Script auch nicht versucht, diesen zu erstellen oder zumindest dessen Existenz zu prüfen - insofern meine Schuld (war allerdings auch nur als Skizze gedacht).auch eine Partition D.
Grüße
bastla
