获得从speicific类href的值

Iwant拿到从下面的代码的HREF链接：获得从speicific类href的值

<div class="border-content"> 
     <div class="main-address"> 

      <h2 class="address"> 
       <a href="/Propiedades/Detalles/7717095--Departamento-tipo-casa-de-1-Dormitorio-en-Venta-en-Capital-Federal?ViewNameResult=VistaResultados" title="Marcos paz 2500. Villa Devoto - Capital Federal">Marcos paz 2500<span></span></a> 
      </h2>

我试着使用的getElementsByTagName（“A”），但我不知道该怎么做的具体的类“地址”。有任何想法吗？

来源

2016-02-19 Federico Sanchez

你甚至搜索过吗？如果你把你的标题放在[Google]（https://www.google.com/search?q=Get+href+value+from+speicific+class+in+vba）中，很多结果会弹出。即使是一个[SO]（http://stackoverflow.com/questions/32677931/vba-to-get-the-href-value）。这些都不帮助吗？请让我们知道您尝试过的内容，您搜索的内容以及您的努力是如何工作的。 – BruceWayne

我在网页上看到所有“a”的代码，所以我无法使用它。我通过创建一个由chr（34）分割它的数组来结束使用outerHTML属性，然后我知道了它。不是最好的方式，但它的作品 –

你最近怎么样？用简单的字符串操作？常用表达？你有没有试过一些XPath？ –

谢谢Kilian，这里是我如何处理一切。相当复杂，但它的工作，虽然它需要永远，因为我有很多嵌套循环：

Sub Propiedades() 

'to refer to the running copy of Internet Explorer 
Dim ie As InternetExplorer 
'to refer to the HTML document returned 
Dim html As HTMLDocument 
'open Internet Explorer in memory, and go to website 
Set ie = New InternetExplorer 
ie.Visible = False 
ie.Navigate "http://www.argenprop.com/Departamentos-tipo-casa-Venta-Almagro-Belgrano-Capital-Federal/piQ86000KpsQ115000KmQ2KrbQ1KpQ1KprQ2KpaQ135Kaf_816Kaf_100000001KvnQVistaResultadosKaf_500000001Kaf_801KvncQVistaGrillaKaf_800000002Kaf_800000005Kaf_800000010Kaf_800000041Kaf_800000011Kaf_800000020Kaf_800000030Kaf_800000035Kaf_800000039Kaf_900000001Kaf_900000002Kaf_900000006Kaf_900000008Kaf_900000009Kaf_900000007Kaf_900000010Kaf_900000033Kaf_900000034Kaf_900000036Kaf_900000038Kaf_900000037Kaf_900000035Kaf_900000039Kaf_900000041Kaf_900000042Kaf_900000043" 
'Wait until IE is done loading page 
Do While ie.ReadyState <> READYSTATE_COMPLETE 
Application.StatusBar = "Trying to go to argenprop ..." 
DoEvents 
Loop 
'show text of HTML document returned 
Set html = ie.Document 
'close down IE and reset status bar 
Set ie = Nothing 
Application.StatusBar = "" 
'clear old data out and put titles in 
Sheets(2).Select 
Cells.ClearContents 
'put heading across the top of row 3 
Range("A3").Value = "Direccion" 
Range("B3").Value = "Mts cuadrados" 
Range("C3").Value = "Antiguedad" 
Range("D3").Value = "Precio" 
Range("E3").Value = "Dormitorios" 
Range("F3").Value = "Descripcion" 
Range("G3").Value = "Link" 


Dim PropertyList As IHTMLElement 
Dim Properties As IHTMLElementCollection 
Dim Property As IHTMLElement 
Dim RowNumber As Long 
Dim PropertyFields As IHTMLElementCollection 
Dim PropertyField As IHTMLElement 
Dim PropertyFieldLinks As IHTMLElementCollection 

Dim caracteristicasfields As IHTMLElementCollection 
Dim caract As IHTMLElement 
Dim caracteristicas As IHTMLElementCollection 
Dim caractfield As IHTMLElement 

Set PropertyList = html.getElementById("resultadoBusqueda") 

Set Properties = PropertyList.Children 

RowNumber = 4 

For Each Property In Properties 

    If Property.className = "box-avisos-listado clearfix" Then 

    Set PropertiesFields = Property.all 
     For Each PropertyField In PropertiesFields 
      Fede = PropertyField.className 
      If PropertyField.className Like "avisoitem*" Then 

       Set caracteristicas = PropertyField.Children 

       For Each caract In caracteristicas 
        f = caract.className 
        If f = "border-content" Then 
         Set caracteristicasfields = caract.all 

         For Each caractfield In caracteristicasfields 

          test1 = caractfield.className 
          u = caractfield.innerText 
          If caractfield.className <> "" Then 
           Select Case caractfield.className 

           Case Is = "address" 
            Cells(RowNumber, "A") = caractfield.innerText 
            marray = Split(caractfield.outerHTML, Chr(34)) 
            Cells(RowNumber, "G") = "www.argenprop.com" & marray(5) 
           Case Is = "list-price" 
            Cells(RowNumber, "D") = caractfield.innerText 
           Case Is = "subtitle" 
            Cells(RowNumber, "F") = caractfield.innerText 'descripcion 

           'Case is ="datoscomunes" 
            'Set myelements = caractfield.all 

           Case Is = "datocomun-valor-abbr" 

            Select Case counter 
            Case Is = 0 
             Cells(RowNumber, "B") = caractfield.innerText 'square mts 
             counter = counter + 1 
            Case Is = 1 
             Cells(RowNumber, "E") = caractfield.innerText 'DORMITORIOS 
             counter = counter + 1 
            Case Is = 2 
             Cells(RowNumber, "C") = caractfield.innerText ' antiguedad 
             counter = 0 ' reset counter 
             Set caracteristicasfields = Nothing 
             Exit For 'salgo del loop en caractfield 
            End Select 'cierro el select del counter 

           End Select 'cierro el select de caractfield.classname 
          End If ' cierro If caractfield.className <> "" Then 
         Next caractfield 

        End If ' cierro el border content 
        If caract = "border-content" Then Exit For 'salgo del loop dentro de aviso item (caract) 

       Next caract 
      RowNumber = RowNumber + 1 
      End If ' If PropertyField.className Like "avisoitem*" 
     Next PropertyField 'para ir al siguiente aviso 

    End If 


Next Property 

Set html = Nothing 

MsgBox "done!" 
End Sub

来源

2016-02-21 02:54:49

获得从speicific类href的值

回答

相关问题