Delphi : TRegExpr

Question

문제 : 문자열의 모든 st를 가져와야합니다. 그렇게하면 메모에 마지막 결과 인 st2 만 추가됩니다. st와 st2 등을 어떻게 얻을 수 있습니까?

const 
    pattern = '<h3 class=.*><a class=.*>([a-zA-Z0-9а-яА-Я]+)</a></h3>'; 
var 
    r: TRegExpr; 
    s: string; 
begin 
r:=TRegExpr.Create; 
s:='<h3 class="yt-lockup-ellipsize"><a class="yt-uix-sessionlink yt-uix-tile-link result-item-translation-title"dir="ltr"title="Женщины"data-sessionlink="ei=CO_0s_S3oLECFQQZ3wodxl5sKw%3D%3D"href="/watch?v=E0MzksPjObU">st1</a></h3>'; 
s:=s + '<h3 class="yt-lockup-ellipsize"><a class="yt-uix-sessionlink yt-uix-tile-link result-item-translation-title"dir="ltr"title="Женщины"data-sessionlink="ei=CO_0s_S3oLECFQQZ3wodxl5sKw%3D%3D"href="/watch?v=E0MzksPjObU">st2</a></h3>'; 
r.Expression:=pattern; 
if r.Exec(s) then 
    REPEAT 
    Memo2.Lines.Add(r.Match[1]); 
    UNTIL not r.ExecNext; 

Answer 1

어. regexs = bad로 HTML을 파싱하면 이 좋지 않습니다. 아이디어입니다.

어쨌든 정규식은 욕심이 많으므로 "<h3 class=.*><a class=.*>" 부분이 첫 번째 태그에서 두 번째 태그까지 일치합니다. 그 첫 번째 ">"를 통해서만 물건을 중얼 거릴 필요가 있으므로 "<h3 class="[^>]*><a class="[^>]*>([a-zA-Z0-9а-яА-Я]+)</a></h3>"과 같은 것을 시도해보십시오. (예 : ". *"대신 ". +?"와 같은 게으른 한정 기호를 사용할 수도 있지만 제외 된 옵션을 사용하는 것보다 느립니다.)

">"포함 된 따옴표 붙은 속성에서 - 더 많은 일을해야합니다.

• 편집 : 참고로, 여기에 게으른 정량 버전입니다 : <h3\sclass=.+?><a\sclass=.+?>([a-zA-Z0-9а-яА-Я]+)</a></h3>합니다 ("\ s는"공백 문자 - 훨씬 더 신뢰할 수있는 대부분의 정규식에 파서.).

정말, XML 파서를 통해 실행하는 것이 훨씬 낫습니다.