>clear >TEXT TO lcList NOSHOW FLAGS 1 PRETEXT 1 + 2 + 4 > Vic: Lastname, Firstname > Vic: abc, def > Vic: xyz, wrt > Vic: test, test > Vic: somelastname, someFirstname > Vic: hugo, victor >ENDTEXT > >loRegEx = Createobject('VBScript.RegExp') && Create a regular expression. >lcRetStr = '' >with loRegEx as VBScript.RegExp > .Pattern = '(Vic: )(\w+, *)(\w+)' && Set pattern. > .IgnoreCase = .T. && Set case insensitivity. > .Global = .T. && Set global applicability. > > lcRetStr = .Replace(lcList, '$2*****') >ENDWITH > >? lcRetStr >