09-11-2022, Saat: 20:27
Merhaba,
Web Parse işlemi için aşağıdaki kodları kullanıyorum.
Yaklaşık 100 yakın verileri almaya çalışırken veriler eksik geliyor. Aynı div blogu içindeki link ve açıklamaları nasıl eksiksiz alabilir?
Örnek div:
<div class="s-card-s-latency-cf-section s-card-border"> <a class="a-link" href="/click?e=Bvacuum%26qi">
<span class="a-color-base a-text-normal">High-Powered 60w Motor</span></div>
Web Parse işlemi için aşağıdaki kodları kullanıyorum.
Yaklaşık 100 yakın verileri almaya çalışırken veriler eksik geliyor. Aynı div blogu içindeki link ve açıklamaları nasıl eksiksiz alabilir?
IDoc.Close; I := 0; IHrefName := IDoc.Body.All.Tags('a'); IDivName := IDoc.Body.All.Tags('div'); ISpanName := IDoc.Body.All.Tags('span'); IDivSay := Integer(IDoc.Body.All.Tags('div').Length); while I < IDivSay do begin IDiv := IDivName.Item(I); if SameText(IDiv.ClassName, 's-card-s-latency-cf-section s-card-border') then // Start begin ISpan := ISpanName.Item(I); IHref := IHrefName.Item(I); BoolLink := SameText(IHref.ClassName, 'a-link'); BoolTitle := SameText(ISpan.ClassName, 'a-color-base a-text-normal'); if BoolLink then begin Showmessage(IHref.Href); end; if BoolTitle then begin Showmessage(ISpan.InnerText); end; end; Inc(I); // While end; end;
Örnek div:
<div class="s-card-s-latency-cf-section s-card-border"> <a class="a-link" href="/click?e=Bvacuum%26qi">
<span class="a-color-base a-text-normal">High-Powered 60w Motor</span></div>