Inhalt eines Textdokuments txt in eine VBS Variable umwandeln

Der Titel sagt alles.
Allerdings verwende ich folgenden Script um die Variable in einer datei zwischenzuspeichern:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO.CreateTextFile("Zwischenspeicher.txt", TRUE)
MyFile.Close

Set MyFile = FSO.OpenTextFile("Zwischenspeicher.txt", 8)
MyFile.WriteLine (""&name&"")

Ich möchte bitte keine verunstalteten Optionen mit Inputbox und sendkeys :D

mfg T0pD0g

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 280848

Url: https://administrator.de/forum/inhalt-eines-textdokuments-txt-in-eine-vbs-variable-umwandeln-280848.html

Ausgedruckt am: 29.04.2025 um 06:04 Uhr

10 Kommentare

Neuester Kommentar

Moin,
na ja so ganz klar ist dein Titel nun auch wieder nicht, als da wären Infos wie welche Zeile der Textdatei du als Variable haben willst...
Geht aber ziemlich einfach:

Set fso = CreateObject("Scripting.FileSystemObject")  
arrLines = Split(fso.OpenTextFile("C:\datei.txt",1).ReadAll(),vbNewLine)  
strLine1 = arrLines(0)
msgbox strLine1

Ich möchte bitte keine verunstalteten Optionen

Und wir wollen eindeutige Infos

Gruß grexit

Danke für die Antwort :D

Gibt es eine Möglichkeit die zeile auf eine bestimmte Breite zu begrenzen ?

Also wenn in der Zeile steht :

Hi heute ist es sonnig warm

Nur das Warm herauszufiltern indem man sagt erst ab Breite 22 bis 26 zu kopieren ?

Zitat von @T0pD0g:

Also wenn in der Zeile steht :

Hi heute ist es sonnig warm

Nur das Warm herauszufiltern indem man sagt erst ab Breite 22 bis 26 zu kopieren ?

Einfach die obige Zeile 3 so schreiben

strLine1 = Mid(arrLines(0),22,4)

http://ss64.com/vb/mid.html
Vorausgesetzt die Länge der Zeile ist immer lang genug zum extrahieren, sonst musst du vorher noch mit Len(arrLines(0)) auf die Länge der Zeile prüfen...

if Len(arrLines(0)) >= 26 then
    strLine1 = Mid(arrLines(0),22,4)
else
    msgbox "Zeile ist nicht lang genug"  
end if 

Danke :D
Du weisst echt viel

Bei mir wird jetzt allerdings mid als ungültiges Argument bzw. Prozedurauflauf bezeichnet

Also funktioniert dieses Auslesen nur wenn die Datei von FSO createt wurde und ist somit relativ nutzlos da ich gerne Ergebnisse von bat anfragen in die VBS einbinden wollte.

Zitat von @T0pD0g:

Bei mir wird jetzt allerdings mid als ungültiges Argument bzw. Prozedurauflauf bezeichnet

Mid ist eine native VBS Funktion:

Da hast du dann die Parameter falsch benutzt, ganz einfach ... Lese und werde schlau:
https://msdn.microsoft.com/en-us/libRary/wffts6k3%28v=vs.84%29.aspx

Zitat von @T0pD0g:
Also funktioniert dieses Auslesen nur wenn die Datei von FSO createt wurde

Nein, Quatsch mit Soße, das kann alle Textdateien auslesen, eventuell muss du das Encoding fürs auslesen deiner Datei anpassen wenn es Unicode-Files sind (4er Parameter bei OpenTextfile)
https://msdn.microsoft.com/en-us/library/aa265347%28v=vs.60%29.aspx

gelöstFrage Batch, Shell Entwicklung

Heiß diskutiert