Zum Inhalt springen

VBS-Script WriteLine funktioniert nicht richtig


Empfohlene Beiträge

Geschrieben

Hallo Zusammen,

auch, wenn ich selbst kein Spezialist bin, hoffe ich auf Eure Hilfe.

Ich starte aus einem Programm ein von mir erstelltes vbs-Skript.

Mit dem Start gebe ich am Ende 3 Parameter mit. Bei einem Parameter handelt es sich um einen in dem Programm erstellten längeren Text, der auch Sonderzeichen etc. enthalten soll.

So ungefähr sieht der Aufruf aus:

wscript C:\skript.wsh "$Text1$" "$Text2$" "$ID$"

Das eigentliche Skript soll mir die beiden verschiedenen Texte in ein eigenes Textfile schreiben. Das funktioniert auch alles einwandfrei. Es sei denn, ich gebe am Anfang des Textes irgendwie Anführungszeichen ein. Dann funktioniert die ganze Geschichte nicht mehr. Was mache ich falsch ???

Das eigentliche Skript sieht so aus:

OPTION EXPLICIT

DIM Parameter, FileSyst, Ablage, DateiName

DIM Betreff, Mailtext

DIM RequestID

Set Parameter=Wscript.Arguments

If Parameter.count = 3 then

Text1 = Parameter(0)

Text1 = Parameter(1)

ID = Parameter(2)

Else

End If

Set FileSyst = Wscript.CreateObject("Scripting.Filesystemobject")

Ablage = "C:\Test\"

Set Dateiname = FileSyst.CreateTextFile(Ablage & ID & ".txt")

Dateiname.WriteLine(Text1)

DateiName.Close

Set Dateiname = FileSyst.CreateTextFile(Ablage & ID & ".txt2")

Dateiname.WriteLine(Text2)

DateiName.Close

WScript.DisconnectObject FileSyst

'wscript.echo "....Ende"

WScript.Quit()

Wäre wirklich total klasse, wenn mir jemand einen Tip geben könnte.

Vielen Dank und Grüße

Felge31

Geschrieben

Der Fehler liegt vmtl. hier:

If Parameter.count = 3 then

Text1 = Parameter(0)

Text1 = Parameter(1)

ID = Parameter(2)

Else

End If

Ich würde es noch ergänzen um:

If Parameter.count = 3 then

Text1 = Parameter(0)

Text1 = Parameter(1)

ID = Parameter(2)

Else

WScript.Echo "Parameter fehlt!"

WScript.Quit(1)

End If

Gruss,

tester2k5

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...