怎么用正则表达式截止HTML部分内容啊

Question

  with TPerlRegEx.Create do
    try
      Options := [preSingleLine];
      Subject := Memo1.Text;
      RegEx := '<ul class="mainTextColor">(.*?)</ul>';
      if not Match then
        Exit;      Subject := Groups[1];
      RegEx := '&nbsp;|<a.*?>';
      ReplaceAll;      Start := 1;
      RegEx := '<li.*?>(.*?：)\s*(.*?)\s*</';
      Replacement := '\1\2';
      while MatchAgain do
        Memo2.Lines.Add(ComputeReplacement);    finally
      Free
    end;

Answer 1

去掉Subject := Groups[1];
倒是得到正确结果