Problem mit Regex

[omata]

Hallo colder,

in Delphi oder PHP?

Delphi...

Delphi-Quellcode:

procedure FindVars(HTML:string; Vars:TStrings);
var Regexpr:TRegExpr;
begin
  Vars.Clear;
  Regexpr:=TRegExpr.Create;
  try
    Regexpr.Expression:='\$[_A-Z]*';
    if Regexpr.Exec(HTML) then begin
      repeat
        Vars.Append(Regexpr.Match[0]);
      until not Regexpr.ExecNext;
    end;
  finally
    Regexpr.free;
  end;
end;

PHP...

Code:

  if (preg_match_all('/\$[_A-Z]*/', $html, $match)) {
    for($i = 0; $i < count($match[0]); $i++) {
      echo $match[0][$i] . "
";
    }
  }

Gruss
Thorsten