Suchen und Ersetzen (AHK Version 1.0.48.05) Topic is solved

[vltier]

Servus Gemeinde!

Mein Skript ist relativ umfangreich und insbesondere zum Jahreswechsel habe ich verschiedene Daten und Informationen anzupassen. Nun mein Ansatz: Ich möchte Skriptteile markieren und dann mittels "Suchen und Ersetzen" aktualisieren. Hat jemand eine Idee? Der nachfolgende Skript-Schnipsel aus der Netzrecherche brachte mich noch nicht zum Ziel, sah für mich als Laie aber nach einem Anfang aus

Code: Select all

Gui,2: Add, Text  , x10  y10                  , Suchwort
Gui,2: Add, Edit  , x100 y10 w150 vSuchWort   , Tag
Gui,2: Add, Text  , x10  y40                  , Ersatzwort
Gui,2: Add, Edit  , x100 y40 w150 vErsatzWort , Nacht
Gui,2: Add, Button, x10  y70 gErsetzen        , Ersetzen
Gui,2: show, x200 y10 h150 w270, Suchen und Ändern
return

2Guiclose:
Exitapp

Ersetzen:
Gui,2: submit, nohide
suchwort  =%suchwort%%s%
ersatzwort=%ersatzwort%%s%
;FileSelectFile,Filex, , %A_WorkingDir%,
;f1=%filex%
FileRead, Var, %f1%
IfInstring, Var, %SuchWort%
{
    StringReplace, Var, Var, %Suchwort%, %Ersatzwort%,,all
    FileDelete,%f1%
    FileAppend, %Var%`r`n,%f1%
    run, %f1%
    return
}

else
    MsgBox, "%Suchwort%" nicht im Text
return

[hd0202]

welches File soll geändert werden ? Variable F1 ist leer, da FileSelection auskommentiert ist

und soll das Skript dann wirklich gleich ausgeführt werden ?

Hubert

[just me]

Moin,

eigentlich beherrscht das jeder halbwegs taugliche Editor. Wenn wegen von wem auch immer auferlegter Beschränkungen keiner verfügbar ist, kannst Du Dir mit AHK einen eigenen basteln. Voraussetzungist aber immer (wie hd0202 schon sagte), dass das Skript auf die Datei oder Teile davon zugreifen kann. Du musst die Datei dafür entweder einlesen oder wie/wo auch immer markierte Teile in die Zwischenablage (Clipboard) übernehmen.

[vltier]

...zunächst Danke für eure Hinweise! Ich muss mir jetzt erst noch einmal den dienstlichen Editor ansehen, eigentlich hat "just me" ja recht, ich kann mich nur nicht an eine solche Möglichkeit erinnern...

[vltier]

Hat mir jetzt trotz des noch zu prüfenden Editors keine Ruhe gelassen MIt euren Anstößen hat es jetzt so funktioniert, Danke nochmal!

Code: Select all

<^>!e::
Gui,2: Add, Text  , x10  y10                  , Suchwort
Gui,2: Add, Edit  , x100 y10 w150 vSuchWort   , Tag
Gui,2: Add, Text  , x10  y40                  , Ersatzwort
Gui,2: Add, Edit  , x100 y40 w150 vErsatzWort , Nacht
Gui,2: Add, Button, x10  y70 gErsetzen        , Ersetzen
Gui,2: show, x200 y10 h150 w270, Suchen und Ändern
return

2Guiclose:
Exitapp

Ersetzen:
Gui,2: submit, nohide
suchwort  =%suchwort%%s%
ersatzwort=%ersatzwort%%s%
FileRead, Var, C:\Users\Klaus\Documents\Autohotkey.ahk
IfInstring, Var, %SuchWort%
{
    StringReplace, Var, Var, %Suchwort%, %Ersatzwort%,,all
    FileDelete, C:\Users\Klaus\Documents\Autohotkey.ahk
    FileAppend, %Var%`r`n, C:\Users\Klaus\Documents\Autohotkey.ahk
    run, C:\Users\Klaus\Documents\Autohotkey.ahk
    return
}

else
    MsgBox, "%Suchwort%" nicht im Text
return