13
Zeile in html finden und ersetzen
Guten Abend
Ich habe ein Batch mit dem ich eine zeile in eine html hinzufüge.
Nun bräuchte ich noch die Passende IF Abfrage
Ist die Zeile schon vorhanden== erseten.
Danke
Die Batch
Ich habe ein Batch mit dem ich eine zeile in eine html hinzufüge.
Nun bräuchte ich noch die Passende IF Abfrage
Ist die Zeile schon vorhanden== erseten.
Danke
Die Batch
@echo off & setlocal
set "Datei=flyout2.html"
set "Suche=function"
set "Zufuege=var pw = 0000;"
set "TempTxt=%temp%\TT.txt"
copy "%Datei%" "%TempTxt%">nul
set Zeile=0
for /f "delims=:" %%i in ('findstr /n /i /b /c:"%Suche%" "%TempTxt%"') do set Zeile=%%i
del "%Datei%"
if %Zeile%==0 goto :Rest
for /f "tokens=1* delims=:" %%i in ('findstr /n $ "%TempTxt%"') do if %%i leq %Zeile% echo.%%j>>"%Datei%"
echo %Zufuege%>>"%Datei%"
:Rest
more +%Zeile% "%TempTxt%">>"%Datei%" 
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 88870
Url: https://administrator.de/forum/zeile-in-html-finden-und-ersetzen-88870.html
Ausgedruckt am: 14.05.2025 um 03:05 Uhr
13 Kommentare
Neuester Kommentar
Hallo haufeft!
Wenn ich das richtig interpretiere, soll die Zeile
nach der einzigen Zeile mit dem Zeilenanfang "function" in der Datei stehen - egal, ob erstere noch nicht vorhanden war oder vorher anders lautete.
Soferne diese Zeile als einzige mit
beginnt, müsstest Du eigentlich nur eine Zeile
am Anfang des Batches (etwa in Zeile 10) hinzufügen und die letzte Zeile (23) ändern auf:
Grüße
bastla
Wenn ich das richtig interpretiere, soll die Zeile
var pw = 0000;Soferne diese Zeile als einzige mit
var pw = set "Entferne=var pw = " more +%Zeile% "%TempTxt%"|findstr /v /i /b /c:"%Entferne%">>"%Datei%" bastla
Danke Bastla es geht^^ 1a wie immer bei Dir
Hallo und Danke an Biber
Hab ein gleiches neues Problem
Ich wollte mit dem Batch an eine bestimmt stelle in meinem Form eine value setzen, leider versage ich schon bei der suche....
hier mal die html :
Ich wollte z.b bei <input name="name" die value"dein name" per batch setzen und sollte sie vorhanden sein auch entfernen.
das wollte ich bei jedem <input> machen natürlich auch mit verschiedenen values.
@bastla hoffe du kannst mir da helfen??
das ist nur der teil der html der bearbeitet werden soll.
danke
Hab ein gleiches neues Problem
Ich wollte mit dem Batch an eine bestimmt stelle in meinem Form eine value setzen, leider versage ich schon bei der suche....
hier mal die html :
<form method="post" onsubmit="document.location.href='teamspeak://'+this.ippo.value+'/?nickname='+this.name.value+'?loginname='+this.lname.value+'?password='+this.pw.value;return false">
<table border="1" id="flashingborder" cellspacing="7">
<tr>
<td>Nickname:</td>
<td><input type="text" name="name" size="12" maxlenght="35 "value="Nick"></td>
</tr>
<tr>
<td>Login Name:</td>
<td><input type="text" name="lname" size="12" maxlenght="35"></td>
<td>Nur für Registrierte User Nötig</td>
</tr>
<tr>
<td>Passwort:</td>
<td><input type="password" name="pw" size="12" maxlenght="35"></td>
</tr>
<tr>
<td>IP und PORT:</td>
<td><input type="text" name="ippo" value="xx.xx.xx.xx:xxxx" size="18" maxlenght="65" onfocus="if(this.value == 'xx.xx.xx.xx:xxxx') this.value='';" onblur="if (this.value=='') this.value='Vorgabetext';></td>
</tr>
<tr>
<td colspan="2"> <center>
<input style="width:60px;height:24px" type="submit" name="submit" value="Einlogen"><button style="width:140px;height:24px" align="center" onclick="ts2s()">Permanent TS2 Login</button></a>
</td>
</tr>
</table>
</form>Ich wollte z.b bei <input name="name" die value"dein name" per batch setzen und sollte sie vorhanden sein auch entfernen.
das wollte ich bei jedem <input> machen natürlich auch mit verschiedenen values.
@bastla hoffe du kannst mir da helfen??
das ist nur der teil der html der bearbeitet werden soll.
danke
Hallo haufeft!
Mit der HTML-typischen Ansammlung von "<", ">" und auch noch Anführungszeichen ist zumeist der Punkt erreicht, wo ein Lösungsversuch mit Batch aufhört Spaß zu machen ...
... vor allem, wenn Du als Vergleich eine VBScript-Version betrachtest:
Hier musst Du nur darauf achten, die Werte für "Von" und "Nach" in Anführungszeichen einzuschließen und innerhalb der beiden Texte jedes Anführungszeichen zu verdoppeln.
Wegen der Menge an Anführungszeichen ist übrigens eine Version mit Parameterübergabe (der Werte für "Von" und "Nach") etwas mühsam zu realisieren; dies gilt nicht für den Dateinamen, sodass also etwa ein Aufruf aus einer Batch-"for"-Schleife problemlos vorgenommen werden könnte.
Da es in Deiner Beispieldatei keine Stelle mit
gibt, war ich so frei, zur Demo die Alternative
zu verwenden ... 
Vielleicht hätte aber auch schon
genügt - aber es gilt (wie immer beim Suchen) auch hier: je länger der Suchbegriff, desto genauer das Ergebnis.
Grüße
bastla
Mit der HTML-typischen Ansammlung von "<", ">" und auch noch Anführungszeichen ist zumeist der Punkt erreicht, wo ein Lösungsversuch mit Batch aufhört Spaß zu machen ...
... vor allem, wenn Du als Vergleich eine VBScript-Version betrachtest:
'Ersetzen.vbs
F = "D:\flyout2.html"
Von = "<input type=""text"" name=""name"""
Nach = "<input type=""text"" name=""dein name"""
Set fso=CreateObject("Scripting.FileSystemObject")
T = fso.OpenTextFile(F).ReadAll
fso.OpenTextFile(F, 2, True).Write Replace(T, Von, Nach)Wegen der Menge an Anführungszeichen ist übrigens eine Version mit Parameterübergabe (der Werte für "Von" und "Nach") etwas mühsam zu realisieren; dies gilt nicht für den Dateinamen, sodass also etwa ein Aufruf aus einer Batch-"for"-Schleife problemlos vorgenommen werden könnte.
Da es in Deiner Beispieldatei keine Stelle mit
<input name="name" <input type="text" name="name" Vielleicht hätte aber auch schon
Von = """name"""
Nach = """dein name""" Grüße
bastla
Hallo Bastla
mit VBS kenne ich mich nicht aus aber es funktioniert^^
name="name" ist ein fester wert.
ich müsste schon value="tralala" ändern.
das problem das value"tralala" das "tralala" sich ändert und wenn ich den script starte wissen müsste was da in der value steht sonst kann ich es ja nicht ändern.
wollte das die batch frägt:
name:
ip
loginame
passwort
und das dan in die html in das jeweilige value schreibt.
so
sollte es zu viel arbeit sein lass es..
Vielen Dank
mit VBS kenne ich mich nicht aus aber es funktioniert^^
name="name" ist ein fester wert.
ich müsste schon value="tralala" ändern.
das problem das value"tralala" das "tralala" sich ändert und wenn ich den script starte wissen müsste was da in der value steht sonst kann ich es ja nicht ändern.
wollte das die batch frägt:
name:
ip
loginame
passwort
und das dan in die html in das jeweilige value schreibt.
so
<td><input type="text" name="name" size="12" maxlenght="35" value="Nick"></td> <td><input type="text" name="name" size="12" maxlenght="35" value="haufe"></td> sollte es zu viel arbeit sein lass es..
Vielen Dank
Hallo haufeft!
Schematisch könnte das so aussehen:
Die Reihenfolge (und Anzahl) der Angaben in "Von" und "Nach" muss übereinstimmen, wobei in "Von" jeweils der Platzhalter der Vorlage angeführt ist.
Die Eingabe per "InputBox" ließe sich noch etwas ansprechender gestalten, indem ein mehzeiliger Text und ev noch ein Fenstertitel festgelegt wird; auch die Vorgabe eines Defaultwertes wäre möglich, aber hier vermutlich nicht sinnvoll. Eine entsprechende Zeile sähe dann so aus:
Grüße
bastla
Schematisch könnte das so aussehen:
'Ersetzen.vbs
F = "D:\flyout2.html"
Von = Array("value=""Name""", _
"value=""IP""", _
"value=""Nick""", _
"value=""Pass""")
NName = InputBox("Name:")
NIP = InputBox("IP:")
NLogin = InputBox("Login:")
NPass = InputBox("Passwort:")
Nach = Array("value=""" & NName & """", _
"value=""" & NIP & """", _
"value=""" & NLogin & """", _
"value=""" & NPass & """")
Set fso=CreateObject("Scripting.FileSystemObject")
T = fso.OpenTextFile(F).ReadAll
For i = 0 To UBound(Von)
T = Replace(T, Von(i), Nach(i))
Next
fso.OpenTextFile(F, 2, True).Write TDie Eingabe per "InputBox" ließe sich noch etwas ansprechender gestalten, indem ein mehzeiliger Text und ev noch ein Fenstertitel festgelegt wird; auch die Vorgabe eines Defaultwertes wäre möglich, aber hier vermutlich nicht sinnvoll. Eine entsprechende Zeile sähe dann so aus:
NIP = InputBox("Bitte geben Sie die IP" & vbCrLF & vbCrLF "hier ein:", _
"IP-Eingabe", _
"127.0.0.1") Grüße
bastla
HUI ES GEHT DIKES DANKE AN bastla
nur noch ein problem
nachdem die vbs gestartet worden ist ändert sich ja die value somit auch die such array.
gibt es eine möglichkeit das die eingaben auch in die vbs geschrieben werden so das ich sie mehrmals verwenden kann ohne die datei direkt zu bearbeiten.
hoffe das ist verständlich was ich möchte?
also wenn ich in die inputbox meine eingabe mache z.b name = haufe ändert sich die value in der html ja auf value="haufe" also muss sich auch Von = Array("value=""Name""", _ in
Von = Array("value=""Haufe""", _ ändern.
ist das machbar?
mfg
haufe
nur noch ein problem
nachdem die vbs gestartet worden ist ändert sich ja die value somit auch die such array.
gibt es eine möglichkeit das die eingaben auch in die vbs geschrieben werden so das ich sie mehrmals verwenden kann ohne die datei direkt zu bearbeiten.
hoffe das ist verständlich was ich möchte?
also wenn ich in die inputbox meine eingabe mache z.b name = haufe ändert sich die value in der html ja auf value="haufe" also muss sich auch Von = Array("value=""Name""", _ in
Von = Array("value=""Haufe""", _ ändern.
ist das machbar?
mfg
haufe
Hallo haufeft!
Ohne den Hintergrund der ganzen Aktion zu kennen, frage ich mich (bzw jetzt Dich), ob Du vielleicht "indivualisierte" Versionen immer der gleichen Ausgangsdatei benötigst?
In diesem Fall müsste eigentlich nur noch nach dem Namen (der Pfad könnte vielleicht konstant sein, und der Typ ".html" kann automatisch ergänzt werden) der Zieldatei gefragt werden, und es könnte, anstatt in der Quelldatei die Ersetzung vorzunehmen, einfach eine neue Datei erstellt werden. Als (ungetesteter) Ersatz für die Zeile 24 sähe das so aus:
Wenn Du das Eingabefenster einfach schließt bzw nichts eingibst, wird das Script beendet, ansonsten wird die Existenz einer gleichnamigen Zieldatei überprüft, um ein Überschreiben zu vermeiden und der (bereits vorhandene) Dateiname zum Editieren angeboten.
Oder liege ich mit meiner Überlegung ganz falsch? Dann müssten die aktuellen Werte aber sinnvoller Weise in einer Textdatei zwischengespeichert werden, um auch beim nächsten Aufruf des Scripts noch zur Verfügung zu stehen.
Grüße
bastla
Ohne den Hintergrund der ganzen Aktion zu kennen, frage ich mich (bzw jetzt Dich
), ob Du vielleicht "indivualisierte" Versionen immer der gleichen Ausgangsdatei benötigst?In diesem Fall müsste eigentlich nur noch nach dem Namen (der Pfad könnte vielleicht konstant sein, und der Typ ".html" kann automatisch ergänzt werden) der Zieldatei gefragt werden, und es könnte, anstatt in der Quelldatei die Ersetzung vorzunehmen, einfach eine neue Datei erstellt werden. Als (ungetesteter) Ersatz für die Zeile 24 sähe das so aus:
Pfad = "D:\Dein Pfad"
Neu = InputBox("Bitte den Dateinamen eingeben:", "Dateiname", "Defaultname")
Do Until Neu = "" Or Not fso.FileExists(Pfad & "\" & Neu & ".html")
Neu = InputBox("Datei bereits vorhanden - bitte neu eingeben:", "Dateiname", Neu)
Loop
If Neu = "" Then
WScript.Echo "Datei wurde nicht erstellt."
WScript.Quit
Else
fso.OpenTextFile(Pfad & "\" & Neu & ".html", 2, True).Write T
End IfOder liege ich mit meiner Überlegung ganz falsch? Dann müssten die aktuellen Werte aber sinnvoller Weise in einer Textdatei zwischengespeichert werden, um auch beim nächsten Aufruf des Scripts noch zur Verfügung zu stehen.
Grüße
bastla
hallo bastla
brauche nur eine datei die ausgangsdatei flyout2 die im gleichen ordner wie die vbs ist.
die variablen in der datei muss ich immer wieder füllen das ist ein versuch eines progamm logins das ich dann weiter gebe
also wie gesagt muss immer nur die value ändern.
also jetzt die vbs so das ich imme wieder die gleiche datei mit der vbs bearbeiten kann.
darf ruhig auch ne txt da sein mit den angaben
danke dir
EDIT:
nach dem ich aufgehört habe zu schlafen DANKE bastla für deine super hilfe
brauche nur eine datei die ausgangsdatei flyout2 die im gleichen ordner wie die vbs ist.
die variablen in der datei muss ich immer wieder füllen das ist ein versuch eines progamm logins das ich dann weiter gebe
also wie gesagt muss immer nur die value ändern.
also jetzt die vbs so das ich imme wieder die gleiche datei mit der vbs bearbeiten kann.
darf ruhig auch ne txt da sein mit den angaben
danke dir
EDIT:
nach dem ich aufgehört habe zu schlafen DANKE bastla für deine super hilfe
noch ein nachtrag:
wie kann ich system variablen wie %username% setzen für pfadangaben???
wie kann ich system variablen wie %username% setzen für pfadangaben???
Hallo haufeft!
Es gibt verschiedene Möglichkeiten dafür - allgemein kannst Du Systemvariablen so auslesen:
Falls Du mehrere der Variablen auslesen willst, immer nur die zweite Zeile (angepasst) verwenden - die erste Zeile ist nur einmal am Anfang des Scripts erforderlich.
Grüße
bastla
Es gibt verschiedene Möglichkeiten dafür - allgemein kannst Du Systemvariablen so auslesen:
set WshShell = WScript.CreateObject("WScript.Shell")
UserName = WshShell.ExpandEnvironmentStrings("%Username%") Grüße
bastla
hallo bastla
also ich bin zu doof für das!!!
ich habe das jetzt zum testen mal so gemacht:
aber kommt nur UserName
also ich bin zu doof für das!!!
ich habe das jetzt zum testen mal so gemacht:
set WshShell = WScript.CreateObject("WScript.Shell")
UserName = WshShell.ExpandEnvironmentStrings("%UserName%")
Wscript.Echo "UserName" aber kommt nur UserName
Hallo haufeft!
Wenn Du Anführungszeichen verwendest, weist Du Basic damit an, den dazwischen stehenden Text als Konstante zu betrachten und (in diesem Fall) einfach auszugeben.
Wenn Du nur
schreibst, sucht der Interpreter nach einer Variablen dieses Namens, findet sie in diesem Fall auch und gibt deren Inhalt aus.
Um mehrere "Textbausteine" (Konstante oder Variable) zu verknüpfen, verwende dafür ein "&" - Beispiel:
Grüße
bastla
Wenn Du Anführungszeichen verwendest, weist Du Basic damit an, den dazwischen stehenden Text als Konstante zu betrachten und (in diesem Fall) einfach auszugeben.
Wenn Du nur
WScript.Echo UserNameUm mehrere "Textbausteine" (Konstante oder Variable) zu verknüpfen, verwende dafür ein "&" - Beispiel:
set WshShell = WScript.CreateObject("WScript.Shell")
UserName = WshShell.ExpandEnvironmentStrings("%UserName%")
UserDatei = "D:\Dein Pfad" & "\" & UserName & ".txt"
WScript.Echo UserDateibastla
