How to rename duplicated fields in the text?

[m3user]

Hi, I have strings which contain several fields which may be duplicated. What would be the best approach to rename all duplicated fields? For example, the second and a third etc. occurrence of <field name> field would be replaced with <field name DUP#> etc. Is there a RegEx command to do this?

Example:

Code: Select all

Original string:
text<field name>text<field address>text<field name>text<field address>text<field name>
Expected result:
text<field name>text<field address>text<field name DUP1>text<field address DUP1>text<field name DUP2>

[andymbody]

Try this

Code: Select all

#Requires AutoHotkey v1.1.35+
#SingleInstance Force

str := "text<field name>text<field address>text<field name>text<field address>text<field name>"
while (p := RegExMatch(str, "(<([^>]+)>)(?=.*?\1)", m)) {
	c := o := 0
	Loop {
		str := RegExReplace(str, m1, "<" m2 " DUP" ++c ">",o,1, p+StrLen(m1))
	} Until o=0
}
MsgBox % "[" str "]"

[Chunjee]

.uniq will remove all duplicates from an array but you would have to parse the string input

https://biga-ahk.github.io/biga.ahk/#/?id=uniq

[m3user]

Thank you, it works great!

Try this

Code: Select all

#Requires AutoHotkey v1.1.35+
#SingleInstance Force

str := "text<field name>text<field address>text<field name>text<field address>text<field name>"
while (p := RegExMatch(str, "(<([^>]+)>)(?=.*?\1)", m)) {
	c := o := 0
	Loop {
		str := RegExReplace(str, m1, "<" m2 " DUP" ++c ">",o,1, p+StrLen(m1))
	} Until o=0
}
MsgBox % "[" str "]"