>use table in 81 >use table in 82 >>some may also have tabs at the beginning of the lines.
function do_it() local RegExp, Match, s, i RegExp= CreateObject('VBScript.RegExp') RegExp.IgnoreCase = TRUE RegExp.Global = TRUE RegExp.Pattern = "use\s+.+\s+in\s+[1-9]\d*" s = [use ('ppp') in 24] Match = RegExp.Execute(s) do case case empty(Match.Count) && nothing otherwise for i = 0 to Match.Count-1 ? Match.Item[i].Value endfor endcase endfunc