9
VBS Text vor jeder Zeile einfügen
Hallo Forumsmitglieder,
als Anfänger in Sachen VBS versuche ich ein vorhandenes VBS so zu ergänzen,
dass vor jeder Zeile innerhalb der txt.Datei 89670000; vorangestellt wird.
Die Datei umfasst ca. 15.000 Zeilen.
Über Rückmeldungen würde ich mich freuen
Viele Grüße
als Anfänger in Sachen VBS versuche ich ein vorhandenes VBS so zu ergänzen,
dass vor jeder Zeile innerhalb der txt.Datei 89670000; vorangestellt wird.
Die Datei umfasst ca. 15.000 Zeilen.
Über Rückmeldungen würde ich mich freuen
Viele Grüße
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: 5512061698
Url: https://administrator.de/contentid/5512061698
Printed on: April 28, 2024 at 00:04 o'clock
9 Comments
Latest comment
Moin.
Ich würde sowas ja vieeeeeel schneller gleich mit sed erledigen
Oder mit der Powershell
Gruß siddius
dim fso,input,output
Set fso = CreateObject("Scripting.FileSystemObject")
Set input = fso.OpenTextFile("D:\test.txt",1)
Set output = fso.OpenTextFile("D:\test_neu.txt",2,True)
While Not input.AtEndOfStream
output.WriteLine "89670000;" & input.ReadLine
Wend
output.close
input.close
set fso = Nothing
set input = Nothing
set output = NothingIch würde sowas ja vieeeeeel schneller gleich mit sed erledigen
sed -e 's/^/89670000;/' test.txt >test_neu.txt (Get-Content "D:\test.txt" ) -replace '^','89670000;' | Set-Content "D:\test_neu.txt" 
1
Bin total begeistert !!!
Danke für die schnelle Antwort, funktioniert super.
Grüße
Danke für die schnelle Antwort, funktioniert super.
Grüße
Zitat von @7907292512:
Moin.
Ich würde sowas ja vieeeeeel schneller gleich mit sed erledigen
Oder mit der Powershell
Gruß siddius
Moin.
dim fso,input,output
Set fso = CreateObject("Scripting.FileSystemObject")
Set input = fso.OpenTextFile("D:\test.txt",1)
Set output = fso.OpenTextFile("D:\test_neu.txt",2,True)
While Not input.AtEndOfStream
output.WriteLine "89670000;" & input.ReadLine
Wend
output.close
input.close
set fso = Nothing
set input = Nothing
set output = NothingIch würde sowas ja vieeeeeel schneller gleich mit sed erledigen
sed -e 's/^/89670000;/' test.txt >test_neu.txt (Get-Content "D:\test.txt" ) -replace '^','89670000;' | Set-Content "D:\test_neu.txt" Da lass ich auch mal ein Herzchen da.
Du hast Recht! Mit "sed" gehts viel schneller. Auch so mit Powershell.
Ich gehöre auch noch zu denen, die viel über VBScript erschlagen. Das liegt bei mir einfach daran, dass ich bei Powershell den Eindruck habe, mit Programmier-Stenografie zu arbeiten. Fällt mir persönlich echt schwer.
Ich komprimiere den Sourcecode nicht gerne. So bleibt er für mich übersichtlicher.
Gruß, schönes WE und Danke für die Lösung.
bdmvg
Ich komprimiere den Sourcecode nicht gerne.
Powershell ist da ja noch eine ziemlich "gesprächige" Variante durch die CMDLets 
.
Gute Morgen Siddius,
könntest du das Script noch so erweitern, dass das letzte Semikolon in jeder Zeile der Datei gelöscht wird?
Viele Grüße
könntest du das Script noch so erweitern, dass das letzte Semikolon in jeder Zeile der Datei gelöscht wird?
Viele Grüße
Zitat von @Dumdidum1:
Gute Morgen Siddius,
könntest du das Script noch so erweitern, dass das letzte Semikolon in jeder Zeile der Datei gelöscht wird?
Viele Grüße
Gute Morgen Siddius,
könntest du das Script noch so erweitern, dass das letzte Semikolon in jeder Zeile der Datei gelöscht wird?
Viele Grüße
Das kannst du auch selbst
https://www.w3schools.com/asp/func_left.asp
ich befürchte nicht ...
Wow, das muss man auch erst mal hinbekommen... 🤔.
' ...
While Not input.AtEndOfStream
line = input.ReadLine
output.WriteLine "89670000;" & Left(line,Len(line)-1)
Wend
' ...
soweit war ich auch schon schon fast
mir fehlte aber noch line = input.ReadLine
und bekam eine Fehlermeldung
Bin halt wie beschrieben "Anfänger"
Viele Grüße und Danke
mir fehlte aber noch line = input.ReadLine
und bekam eine Fehlermeldung
Bin halt wie beschrieben "Anfänger"
Viele Grüße und Danke
