Help with a multiple text replacement script

Question

Even though this forum so far has been for sharing scripts and not for writing them, I was wondering if I could pick the brains of AHK experts ( and Raphaël Toussaint come to mind right now), to figure something out. 
 I'm trying to put together a script to do multiple text replacements at a segment level, i.e., for the active segment only, so I can easily see what has been changed, without calling up the Find & Replace window. 
 I've managed to put together this script (silly examples included): 
 #r:: ClipSaved := ClipboardAll Clipboard = SendInput, ^a^c ClipWait, 30 FixString := Clipboard vList := " ;continuation section ( dog perro 
 house casa &iquest; &iquest; / / , , ? ? . . pie 2 pie2 m 2 m2 )" Loop, Parse, vList, `n { oTemp := StrSplit(A_LoopField, "`t") FixString := StrReplace(FixString, oTemp.1, oTemp.2) } oTemp := "" Clipboard := FixString ; load the new string to clipboard Sleep 200 Send ^v Return 
 This works fine in segments with no tags, but when there are tags, they get stripped at some point during the replacement operation and the text that is pasted back into the segment has all the necessary replacements but no tags. Is there any way of preserving the tags in the clipboard? 
 I came up with a very clumsy workaround for this, which involves using Studio's Delete to Next Tag shortcut, so instead of Select All-Copy, the script would do Delete to Next Tag-Undo-Copy: 
 #r:: ClipSaved := ClipboardAll Clipboard = ;SendInput, ^a^c ;ClipWait, 30 Send ^+D ;delete to next tag Sleep 100 Send ^z ;undo Sleep 50 Send ^c ClipWait, 30 FixString := Clipboard vList := " ;continuation section ( organisation organization &iquest; &iquest; / / , , ? ? . . pie 2 pie2 m 2 m2 )" Loop, Parse, vList, `n { oTemp := StrSplit(A_LoopField, "`t") FixString := StrReplace(FixString, oTemp.1, oTemp.2) } oTemp := "" Clipboard := FixString ; load the new string to clipboard Sleep 200 Send ^v Return 
 While this also works in segments with no tags, I would like to optimize it. 
 My second question is: how would I go about creating a list of all these replacements (CSV? Excel?) and getting the script to take them from there instead of having to add them manually to the script? I've been reading up on arrays but I'm still far away from being able to implement what I need. 
 I have another simpler script attempt with just multiple StringReplace lines (see below), but again, that would require creating possibly hundreds of replacement lines and I imagine it's not the best solution. 
 #p:: Send, ^a Send, ^c StringReplace, clipboard, clipboard, dog, perro, All StringReplace, clipboard, clipboard, cat, gato, All StringReplace, clipboard, clipboard, raining, lloviendo, All Send ^v Return 
 So, any help with this would be greatly appreciated. 
 Thank you!

Raphaël Toussaint · Answer

Hi Nora, 
 I'll start with some suggestions to your second question about how to better implement the search and replacement items: 
 Separating search and replacement parts by a tab is smart, but you don't need to put these into your script. It is way easier to maintain a simple text file where you add them and then read that text file into a variable like this: 
 FileRead, vList, vListFile.txt 
 In order to run your search and replace, just use a simple loop: 
 Send, ^a Send, ^c Loop, Parse, vList, `r, `n { oTemp := StrSplit(A_LoopField, "`t") FixString := StrReplace(FixString, oTemp.1, oTemp.2) } SendInput, %FixString% 
 As for the tag question, I need to look a bit deeper into this, but I fear it won't be easy without (again) the help of Studio APIs. 
 Kind regards, Rapha&euml;l

Nora Díaz · Answer

I have used TermInjector in the past, but not for a couple of years, it may be worth having a new look. 
 
I need this script for several things: 
 
1. MT post edit job clean-up: lots of unwanted spaces before specific punctuation marks and around backslashes and mixed quotation marks that are a pain to delete/fix manually but still need to be checked segment by segment (for those times I don't want to run a global Find and Replace on the document) 
2. Also in MT post edit jobs: term replacement, which can be recurrent depending on the MT engine used by the client on the file 
3. Regular editing jobs: multiple term replacement but only for the current segment 
4. Localization jobs: I have a list of words that always need to be localized 
 
I also need to be able to share the solution with my team and an AHK script + a file that can be easily edited would be a lot easier to share than TermInjector, which is a bit more complicated to implement, from what I remember.

Jesús Prieto · Answer

Robert Paetzold 
 I think you missed this important line just before the loop: 
 FixString := Clipboard

Paul · Answer

Robert Paetzold 
 Just for fun I put your exact post into ChatGPT. I have no idea if the response is correct and have not attempted to test it... but I am curious. Maybe it'll work, but if not perhaps there will be something in the answer that could be helpful for you: 
 ^#&#252;::
ClipSaved := ClipboardAll
Clipboard =

FileRead, vList, vListFile.txt
Send, ^{Ins}
Send, ^a
Send, ^c
ClipWait, 2 ; Wait for clipboard to be populated
if ErrorLevel {
 MsgBox, 48, Error, Clipboard was not populated within 2 seconds.
 return
}

FixString := Clipboard

; Build a dictionary for faster lookup
ReplacementDict := {}
Loop, Parse, vList, `r, `n
{
 oTemp := StrSplit(A_LoopField, "`t")
 ReplacementDict[oTemp.1] := oTemp.2
}

; Replace words using the dictionary
FixString := RegExReplace(FixString, "\b\w+\b", Func("ReplaceWords"))

SendInput, %FixString%

Sleep 200
Send, {ctrl down}&#228;{ctrl up}
Return

ReplaceWords(m) {
 global ReplacementDict
 word := m.Value
 if (ReplacementDict.HasKey(word)) {
 return ReplacementDict[word]
 }
 return word
}
 
 Here are the main optimizations used in this script: 
 
 Use ClipWait to ensure the clipboard is populated before proceeding with the script. 
 Build a dictionary (associative array) with the replacement list for faster word lookups. 
 Use RegExReplace with a function object to handle word replacements more efficiently. 
 
 These optimizations should make the replacement process quicker and allow the script to complete the additional steps.

Trados Studio > 6. AutoHotKey

Help with a multiple text replacement script