9
Mit vbscript ein Wert in einer .js Datei erweitern
Guten Tag alle Administratoren
Kann mir jemand von euch helfen? Ich komme einfach nicht weiter...
Ich will mit einem vbscript die Datei all.js editieren. Und zwar möchte ich dort , diesen Wert erweitern :
pref("network.automatic-ntlm-auth.trusted-uris", "tickettracker,rss-feeds");
Dort will ich ein Script schreiben der den Wert erweitert. Ich weis es ist möglich aber ich schaff es einfach nicht.
Ich will z.B. das anstatt nur "tickettracker,rss-feeds", dass steht --> "tickettracker,rss-feeds, gx-galaxy"
Nun wie muss ich den Script aufbauen, da ich echt keine Ahnung habe.
ICh hoffe es sehr, dass ihr mir helfen könnt.
Mfg Sergio
Ich will mit einem vbscript die Datei all.js editieren. Und zwar möchte ich dort , diesen Wert erweitern :
pref("network.automatic-ntlm-auth.trusted-uris", "tickettracker,rss-feeds");
Dort will ich ein Script schreiben der den Wert erweitert. Ich weis es ist möglich aber ich schaff es einfach nicht.
Ich will z.B. das anstatt nur "tickettracker,rss-feeds", dass steht --> "tickettracker,rss-feeds, gx-galaxy"
Nun wie muss ich den Script aufbauen, da ich echt keine Ahnung habe.
ICh hoffe es sehr, dass ihr mir helfen könnt.
Mfg Sergio
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: 142333
Url: https://administrator.de/contentid/142333
Printed on: April 18, 2024 at 14:04 o'clock
9 Comments
Latest comment
Zitat von @sergio1993:
Ich will z.B. das anstatt nur "tickettracker,rss-feeds", dass steht --> "tickettracker,rss-feeds, gx-galaxy"
Ich will z.B. das anstatt nur "tickettracker,rss-feeds", dass steht --> "tickettracker,rss-feeds, gx-galaxy"
Hi,
also das zum Beispiel würd ich mit einem einfachen Replace lösen:
NeueVar = Replace("tickettracker,rss-feeds","tickettracker,rss-feeds","tickettracker,rss-feeds, gx-galaxy") Gruß
Bernd
<edit>
OK, hatte mir wohl zu spät den Link vom letzten Post angesehen, stand ja da auch schon drin ;)
</edit>
Hallo zusammen
Ja das wusste ich schon mit dem replace.
Nur muss ich das für eine ganze Firma machen und wenn jemand da was eingetragen hat, will ich dem nicht das einfach rauslöschen, sondern nur das nötige hinzufügen.
Ich hoffe ihr könnt mir helfen.
Gruss Sergio
Ja das wusste ich schon mit dem replace.
Nur muss ich das für eine ganze Firma machen und wenn jemand da was eingetragen hat, will ich dem nicht das einfach rauslöschen, sondern nur das nötige hinzufügen.
Ich hoffe ihr könnt mir helfen.
Gruss Sergio
Dann ist deine Problembeschreibung äußerst unglücklich,
das hätte dann heissen sollen
Suche in der all.js nach Zeilen mit dem Schema
und ergänze das Beispielhafte "tickettracker,rss-feeds" um den Eintrag ,gx-galaxy.
Dieses vbscript tut das, allerdings ohne zu prüfen ob der Begriff schon da ist.
Den Pfad in Zeile 9 anpassen.
Gruß
LotPings
Edit:das sollte wohl gx-galaxy heissen.
das hätte dann heissen sollen
Suche in der all.js nach Zeilen mit dem Schema
pref("network.automatic-ntlm-auth.trusted-uris", "tickettracker,rss-feeds");und ergänze das Beispielhafte "tickettracker,rss-feeds" um den Eintrag ,gx-galaxy.
Dieses vbscript tut das, allerdings ohne zu prüfen ob der Begriff schon da ist.
Den Pfad in Zeile 9 anpassen.
' RegExReplace.vbs
option explicit
Dim oFS, oFile
Dim FileName, sText, sNewText, SuchMuster, ErsatzZf
Const ForReading = 1
Const ForWriting = 2
FileName = "D:\Test\2010-05\all.js"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile(FileName, ForReading)
Suchmuster = "(pref\(""network.automatic-ntlm-auth.trusted-uris"")(,\s)+""(\S+)""\);"
ErsatzZF = "$1, ""$3,gs-galaxy,Google"");"
sText = oFile.ReadAll
oFile.Close
sNewText = Ersetze(sText, Suchmuster, ErsatzZf)
Set oFile = oFS.OpenTextFile(FileName, ForWriting)
oFile.WriteLine sNewText
oFile.Close
Function Ersetze(Text, Suchmuster, ErsatzZf)
Dim regAusdr ' Variablen erstellen.
Set regAusdr = New RegExp ' Erstellt einen regulären Ausdruck.
regAusdr.Pattern = Suchmuster ' Legt das Suchmuster fest.
regAusdr.IgnoreCase = True ' Ignoriert die Groß-/Kleinschreibung.
regAusdr.Global = True ' Legt globales Anwenden fest.
Ersetze = regAusdr.Replace(Text, ErsatzZf) ' Führt die Ersetzung durch.
End FunctionGruß
LotPings
Edit:das sollte wohl gx-galaxy heissen.
Hallo LotPings
Danke!!!!!!!!
Hab noch ne letzte Frage, und zwar möchte ich nicht nur gx-galaxy hinzufügen sondern auch z.B. Google
wie muss ich dann diesen code erweitern?
Gruss
Sergio
Danke!!!!!!!!
Hab noch ne letzte Frage, und zwar möchte ich nicht nur gx-galaxy hinzufügen sondern auch z.B. Google
wie muss ich dann diesen code erweitern?
Gruss
Sergio
Hallo Sergio,
ich erwarte ja nicht, das du aus Stand Regular Expressions verstehst (das tut niemand),
aber du solltest schon in der Lage sein, im Script die einzige Stelle zu finden wo ,gx-galaxy vorkommt und da noch dein ,Google dranzuhängen.
Gruß
Lotpings
ich erwarte ja nicht, das du aus Stand Regular Expressions verstehst (das tut niemand),
aber du solltest schon in der Lage sein, im Script die einzige Stelle zu finden wo ,gx-galaxy vorkommt und da noch dein ,Google dranzuhängen.
Gruß
Lotpings
Hallo Lotpings
Das problem ist ich habs versucht und es hat sich nichts geändert wegen dem frage ich
Danke dir im voraus.
Das problem ist ich habs versucht und es hat sich nichts geändert wegen dem frage ich
Danke dir im voraus.
Hallo sergio,
ja hatte einen Fehler eingebaut der zwischen die beiden strings zusätzliches Komma Leerzeichen einbaute.
ersetze bitte Zeile 14-15 hiermit
Das sollte den Fehler korrigieren, bau ich oben auch gleich ein.
Gruß
LotPings.
ja hatte einen Fehler eingebaut der zwischen die beiden strings zusätzliches Komma Leerzeichen einbaute.
ersetze bitte Zeile 14-15 hiermit
Suchmuster = "(pref\(""network.automatic-ntlm-auth.trusted-uris"")(,\s)+""(\S+)""\);"
ErsatzZF = "$1, ""$3,gs-galaxy,Google"");"
Das sollte den Fehler korrigieren, bau ich oben auch gleich ein.
Gruß
LotPings.
HAllo LotPings
Vielen Dank hat geklappt
Vielen Dank hat geklappt
