>test = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033{\fonttbl{\f0\fnil\fprq2\fcharset134 SimSun;}}\viewkind4\uc1\pard\f0\fs14\'d7\'f1\'ca\'d8\'b5\'b1\'b5\'d8\'b7\'a8\'b9\'e6\'b7\'cf\'c6\'fa\'c4\'da\'d7\'b0\'ce\'ef\'ba\'cd\'c8\'dd\'c6\'f7 }." > >Local oRE >oRE = CreateObject("VBScript.RegExp") >oRE.Pattern = "\\'([a-zA-Z0-9]+)" >cresult = oRE.test(test) >>
>\'d7\'f1\'ca\'d8\'b5\'b1\'b5\'d8\'b7\'a8\'b9\'e6\'b7\'cf\'c6\'fa\'c4\'da\'d7\'b0\'ce\'ef\'ba\'cd\'c8\'dd\'c6\'f7
>
>However, this only returns .T..test = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033{\fonttbl{\f0\fnil\fprq2\fcharset134 SimSun;}}\viewkind4\uc1\pard\f0\fs14\'d7\'f1\'ca\'d8\'b5\'b1\'b5\'d8\'b7\'a8\'b9\'e6\'b7\'cf\'c6\'fa\'c4\'da\'d7\'b0\'ce\'ef\'ba\'cd\'c8\'dd\'c6\'f7 }." Local oRE, matches, i oRE = CreateObject("VBScript.RegExp") oRE.Pattern = "\\'([a-zA-Z0-9]+)" oRE.IgnoreCase = .f. oRE.Global = .t. matches = oRE.Execute(test) local match for i = 0 to matches.count-1 match = m.matches.item[m.i] ?m.match.FirstIndex, m.match.Length, m.match.Value endfor