Script sucht nach bestimmten Punkt und fügt etwas ein.
Hallo zusammen,
ich bin Lotus Notes Administrator und habe von Scripten leider nicht viel Ahnung, daher brauche ich dringend Hilfe.
Ich brauche ein Script das eine *.ini Datei nennen wir Sie mal "Notes.ini" nach einem bestimmten Wert durchsucht z.B. "names=names" und ans Ende dieser Zeile etwas einfügt z.B. "Server01/Abt/Ordner/names.nsf"
Ich hoffe ihr könnt mir weiter helfen.
Gruß
Poison2k
ich bin Lotus Notes Administrator und habe von Scripten leider nicht viel Ahnung, daher brauche ich dringend Hilfe.
Ich brauche ein Script das eine *.ini Datei nennen wir Sie mal "Notes.ini" nach einem bestimmten Wert durchsucht z.B. "names=names" und ans Ende dieser Zeile etwas einfügt z.B. "Server01/Abt/Ordner/names.nsf"
Ich hoffe ihr könnt mir weiter helfen.
Gruß
Poison2k
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 166238
Url: https://administrator.de/contentid/166238
Ausgedruckt am: 29.03.2024 um 11:03 Uhr
10 Kommentare
Neuester Kommentar
Hallo Poison2k und willkommen im Forum!
falls es etwas in VBS sein darf, dann hätte ich hier etwas auf die Schnelle für dich:
Gruss
Tsuki
falls es etwas in VBS sein darf, dann hätte ich hier etwas auf die Schnelle für dich:
Const MyFile = "C:\Notes.ini"
Const MyText = "names=names"
Const MyAdds = "Server01/Abt/Ordner/names.nsf"
Dim Fso,TempText,Datei
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Datei = Fso.OpenTextFile(MyFile)
Do Until Datei.AtEndOfStream
TempText = Datei.ReadLine
If TempText = MyText Then
temp = temp & TempText & MyAdds & vbcrlf
Else
temp = temp & TempText & vbcrlf
End If
Loop
Datei.Close
Set Datei = FSO.CreateTextFile(MyFile, True)
Datei.Write(temp)
Datei.Close
Gruss
Tsuki
schau noch mal bitte nach, ob in deiner Zeile
Ps.: ich hatte diese Zeile zu Testzwecken auch geCtundgePt
Gruss
Tsuki
PPs.: ansonsten hast du's richtig gemacht! Bedenke, dass ist nur ein Gedankenanstoss von mir
names=names
Leerzeichen etc. vorkommen. Das solltest du genau anpassen/definieren, sonst wird es nix!Const MyText = "names=names"
Ps.: ich hatte diese Zeile zu Testzwecken auch geCtundgePt
Gruss
Tsuki
PPs.: ansonsten hast du's richtig gemacht! Bedenke, dass ist nur ein Gedankenanstoss von mir
moin,
streng genommen sollte das zwar via suchen und ersetzen suchen gefunden werden...
Aber was solls...
if exist c:\notes.ini findstr /c: "names=names" c:\notes.ini && echo Server01/Abt/Ordner/names.nsf>>c:\notes.ini
edit
Such nach suchen und ersetzen...
edit 2
Gruß
streng genommen sollte das zwar via suchen und ersetzen suchen gefunden werden...
Aber was solls...
edit
und ans Ende dieser Zeile etwas einfügt
Such nach suchen und ersetzen...
edit 2
- grmblfix.... scheixx suchfunktion, kann man auch abschalten, wenn Sie keiner nutzt...
Gruß
Danke, danke!
dann binde dieses Beispiel bitte in dein Script ein.
Schönes Wochenende
Tsuki
wenn du mir jetzt noch sagen kannst wie ich den datei pfad auf
%Userprofile%\Local Settings\Notes\Data\notes.ini
legen kann ist es fertig :D
%Userprofile%\Local Settings\Notes\Data\notes.ini
legen kann ist es fertig :D
dann binde dieses Beispiel bitte in dein Script ein.
Set BenPfad = CreateObject ("WScript.Shell")
AktBenutzerPfad = BenPfad.ExpandEnvironmentStrings ("%USERPROFILE%" & "\Local Settings\Notes\Data\notes.ini")
msgbox AktBenutzerPfad
Schönes Wochenende
Tsuki