Schleife durch mehrere divs mit VBA

Ich bin versucht, extrahieren von Informationen aus einer HTML-Seite per Vb-script. Dies ist die HTML-Seite, von der aus ich versuche, die Informationen extrahieren.

<div id="profile-education">

  <div class="position  first education vevent vcard" id="xxxxxx">
  University 1
  <span class="degree">Ph.D.</span>
  <span class="major">Computer Science</span>
  <p class="period">
  <abbr class="dtstart" title="2005-01-01">2005</abbr> &#8211; <abbr class="dtend" 
  title="2012-12-31">2012</abbr>
  </div>          

  <div class="position  education vevent vcard" id="xxxxxx">  
  University 2                  
  <span class="degree">M.Eng.</span> 
  <span class="major">Computer Science</span>
  <p class="period">
  <abbr class="dtstart" title="2000-01-01">2000</abbr> &#8211; <abbr class="dtend" 
  title="2004-12-31">2004</abbr>
  </p>
  </div>

</div>

Möchte ich extrahieren Sie die Informationen in der unten aufgeführten format.

  • Hochschule Name: Universität 1.
  • Grad Name: Phd
  • Major: Computer Science
  • Zeitraum: 2005 - 2012
  • Hochschule Name: Universität, 2
  • Grad Name: M. Eng
  • Major: Computer Science
  • Zeitraum: 2000 - 2004

In meinem VB-script, ich habe den folgenden code, extrahiert die gesamten Daten als eine einzelne variable.

Dim openedpage as String
openedpage = iedoc1.getElementById("profile-education").innerText

Allerdings, wenn ich die folgende Aussage in meinem vb-Script, ich kann bekommen einer bestimmten Spannweite Informationen.

openedpage = iedoc1.getElementById("profile-education").getElementsByTagName("span")
(0).innerText

Den obigen code gibt mir die Promotion als Ausgang. Allerdings will ich nicht wissen, die insgesamt erstreckt vorher und so kann ich nicht einfach geben, span(0) und span(1) in meinem code. Außerdem würde ich gerne extrahieren Sie die Informationen für alle div-tags und ich werden nicht wissen, diese Informationen entweder. Im Grunde möchte ich einige loop-Struktur zu iterieren durch die div-tags mit der id Profil-Ausbildung, von dem aus ich sollte in der Lage sein extrahieren von mehreren div-und span-Informationen.

Verwenden Sie vbscript oder VBA? Sie sind nicht genau das gleiche...
Ich benutze excel mit VBA. Sorry für die nicht zu erwähnen es eindeutig.

InformationsquelleAutor Ramesh | 2013-05-21

  1. 6
    Dim divs, div

set divs = iedoc1.getElementById("profile-education").getElementsByTagName("div")

for each div in divs
    debug.print "*************************************"
    debug.Print div.ChildNodes(0).toString
    debug.print div.getElementsByTagName("span")(0).innerText
    debug.print div.getElementsByTagName("span")(1).innerText
    '  etc...
next div
    Ich bin immer NULL als Ausgabe. Ich erhalte kein Wert zurückgegeben wird. Als ich versuchte, drucken divs Wert, ich bin immer [object HTMLDivElement] als Ausgabe.
    Siehe mein edit für das erste text-node - funktioniert für mich.
    Ich bekomme immer noch NULL ist, nur.. ich bin nicht sicher, wo falsch mache. Das ist mein code. openedpage = iedoc1.getElementById("Profil-Bildung").getElementsByTagName("div") Für Jede div In openedpage MsgBox div.ChildNodes(0).toString MsgBox div.getElementsByTagName("span")(0).innerText MsgBox div.getElementsByTagName("span")(1).innerText Nächste div
    Getestet habe ich mit dem genauen HTML, die Sie geschrieben in deiner Frage. Sind Sie nicht mit Set opendpage = ... ? Sie benötigen Satz für das zuweisen von Werten zu Variablen Objekt.
    Tim, nochmals vielen Dank. Nun, ich bin immer die richtigen Werte nach Ihrer Zuordnung zu Objekt-Variablen. Aber ich komme nicht auf das Uni 1 und Uni 2 als Ausgang. Auch bin ich nicht in der Lage, um die Perioden ausgegeben.

    InformationsquelleAutor Tim Williams

Schreibe einen Kommentar