VB.net - Получить информацию об элементе и нажать ссылку события - PullRequest
Новая
       7

VB.net - Получить информацию об элементе и нажать ссылку события

0 голосов
/ 21 января 2019

Я понимаю, что мне нужно искать себя, но я пытаюсь и не имею ни малейшего представления, как это искать.

У меня много таких элементов: 

<li class="s-item " id="w4-items[32]">
    <div class="s-item__wrapper clearfix">
        <div class="s-item__image-section">
            <div class="s-item__image">
                <a href="https://example.com/1.jpg">
                    <div class="s-item__image-wrapper">
                        <div class="s-item__image-helper"></div>
                        <img class="s-item__image-img" alt="Apple Computer ..." src="https://example.com/1.jpg">
                    </div>
                </a>
            </div>
        </div>
        <div class="s-item__info clearfix">
            <div class="s-item__title-hotness"></div>
            <a class="s-item__link" href="https://example.com/abc">
                <h3 class="s-item__title" role="text">Apple Computer ...</h3>
            </a>
            <div class="s-item__details clearfix">
                <div class="s-item__detail s-item__detail--primary">
                    <span class="s-item__price">$14.24</span>
                </div>
                <div class="s-item__detail s-item__detail--primary">
                    <span class="s-item__shipping s-item__logisticsCost">Free shipping</span>
                </div>
                <div class="s-item__detail s-item__detail--primary">
                    <span class="s-item__hotness s-item__itemHotness"><span class="POSITIVE">HOT HOT</span></span>
                </div>
            </div>
        </div>
    </div>
</li>

Использованиеэтот код: 

For Each telement As HtmlElement In WebBrowser1.Document.GetElementsByTagName("li")
    Dim Class1 As String = "POSITIVE"
    Dim Class2 As String = "s-item__info"

    If telement.OuterHtml.Contains(Class1) And telement.OuterHtml.Contains(Class2) Then
        Dim conStr As String = telement.GetAttribute("innertext")
        TextBox4.Text = TextBox4.Text & conStr & Environment.NewLine
    End If
Next

Результат: 

Apple Computer...$14.24Free ShippingHOT HOT
Apple2 Computer...$15.00Free ShippingHOT HOT
Apple3 Computer...$16.00Free ShippingHOT HOT

Почему ссылка https://example.com/abc не включена в результат?
И как поставить "|"и удалите «Бесплатная доставка», чтобы результат был следующим: 

Apple Computer... | $14.24 | HOT HOT | https://example.com/abc
Apple2 Computer... | $15.00 | HOT HOT | https://example.com/abc
Apple3 Computer... | $16.00 | HOT HOT | https://example.com/abc

И у меня более 10 таких страниц, так как создать цикл обработки событий для всех страниц?

...