Jump to content

Smokin

Members
  • Content count

    2
  • Joined

  • Last visited

Community Reputation

0 Comum

About Smokin

  1. Olá!Estou desenvolvendo um aplicativo para mim e estou tendo um problema, alguém pode me ajudar?Eu tenho um módulo Module Extensions <Runtime.CompilerServices.Extension()> _ Public Function GetElementsByClassName(ByVal Source As HtmlDocument, ByVal ClassName As String) As HtmlElement() Dim output As New List(Of HtmlElement) For i As Integer = 0 To Source.All.Count - 1 Try If (Source.All(i).GetAttribute("className") = ClassName) Then output.Add(Source.All(i)) End If Catch ex As Exception End Try Next Return output.ToArray() End Function End Module Enfim, o problema é que eu preciso para obter mais de uma classe em uma única linha.Eu tenho o seguinte código plus está retornando erro Dim app As HtmlElement = WebBrowser1.Document.GetElementsByClassName("pid-1-high" & "pid-1-ask & pid-1-ask2")(0) Quero adicionar esta classe automaticamente em um listview Dim z As ListViewItem z = New ListViewItem(app.GetAttribute("InnerText")) Alguém pode me ajudar? Obrigado
  2. Smokin

    getElementsByClassName

    Olá!Estou desenvolvendo um aplicativo para mim e estou tendo um problema, alguém pode me ajudar?Eu tenho um módulo Module Extensions <Runtime.CompilerServices.Extension()> _ Public Function GetElementsByClassName(ByVal Source As HtmlDocument, ByVal ClassName As String) As HtmlElement() Dim output As New List(Of HtmlElement) For i As Integer = 0 To Source.All.Count - 1 Try If (Source.All(i).GetAttribute("className") = ClassName) Then output.Add(Source.All(i)) End If Catch ex As Exception End Try Next Return output.ToArray() End Function End Module Enfim, o problema é que eu preciso para obter mais de uma classe em uma única linha.Eu tenho o seguinte código plus está retornando erro Dim app As HtmlElement = WebBrowser1.Document.GetElementsByClassName("pid-1-high" & "pid-1-ask & pid-1-ask2")(0) Quero adicionar esta classe automaticamente em um listview Dim z As ListViewItem z = New ListViewItem(app.GetAttribute("InnerText")) Alguém pode me ajudar? Obrigado
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.