wir nutzen IBM-Notes und ich möchte in der notes.ini ein paar Einträge setzen.
Das Skript funktioniert, verändert mir aber das Encoding der Datei.
Code: Alles auswählen
DefVar $NotesINI$
Set $NotesINI$ = "%CurrentProfileDir%\AppData\Local\IBM\Notes\Data\notes.ini"
Patches_notes.ini $NotesINI$
[Patches_notes.ini]
set [Notes] $ServerMailAddressing=1
set [Notes] TypeaheadShowServerFirstDefault=1
set [Notes] $locDD=1
set [Notes] TypeaheadShowServerFirst=1
set [Notes] $locCB=1
Code: Alles auswählen
DefVar $NotesINI$
Set $NotesINI$ = "%CurrentProfileDir%\AppData\Local\IBM\Notes\Data\notes.ini"
;Inhalt der notes.ini auslesen
DefStringList $list1$
set $list1$ = loadTextFileWithEncoding($NotesINI$, "cp1252")
;Inhalt der zur notes.ini hinzugefügt wird
DefStringList $list2$
set $list2$ = createStringList ('$ServerMailAddressing=1','TypeaheadShowServerFirstDefault=1', '$locDD=1', 'TypeaheadShowServerFirst=1', '$locCB=1')
;zusammenfügen der beiden String-Listen
DefStringList $list$
set $list$ = addListToList($list1$, $list2$)
;speichern der notes.ini
if (saveTextFileWithEncoding($list$, $NotesINI$, "cp1252"))
endif