Office: (Office 2000) Aus HTML Datei lesen und Datensätze erstellen

so, hier mal was ich mir so zusammengebastelt habe. bekomme genau das was ich auch brauche.

nun muss ich mir nur noch eine logische Datenbankstruktur überlegen worin ich die werte hinterlasse.

Denn:
-Jedes Einzelteil sollte nur einmal in der DB sein
-Wenn jedoch eine änderung eines Teils vorkommt, z.B. ändert sich die Laserzeit, da wir neine bessere Maschine bekommen haben. Soll gefragt werden ob man das alte Teil überschreiben will, was aber schlecht ist wenn man frühere Programme prüfen möchte, oder ob eine Veite version dieses Teil angelegt werden soll.


Ich denke mal ich mache es (fuer den anfang) mit tbl_Programm und tbl_Einzelteil.
dann kann ich mir immer mit dlookup die ID des Teils suchen, welches ich gerade "analysiert" habe, und diese zuteilen.

Ma schaun ob das was wird.

 

Hallo zusammen,

Bei so umfangreichen und komplexen HTML-Seiten ist es, glaube ich, einfacher, das DOM-Objektmodell zu verwenden, anstatt den HTML-Text mit Stringoperationen zu zerlegen.
Das Objektmodell kommt aus der Verweisdatei "Microsoft HTML Library", die auf jedem Rechner drauf ist.
In der Demo im Anhang wird ein Webbrowser-Steuerlelement verwendet, um die Seite erstmal zu laden - ich hoffe, das läuft bei euch (IE7 verwendet). An sich bräuchte man das gar nicht, weil man die HTML-Seite auch direkt - etwa über HTTPXML - in eine Document-Objektvariable laden könnte. Hier hat man aber so mehr Kontrolle über das Resultat.

Das HTML-Dokument wird dann auf Tabellen analysiert und Zellen ausgelesen und deren Inhalte in die Tabelle tblEinzelteilinfos gespeichert.
Wie man sehen kann, geht das also mit dem DOM-Modell mit sehr viel weniger Codezeilen und vor allen Dingen auch wesentlich schneller. *wink.gif*

Ich hab mal nur die Tabelle mit den Einzelteilinformationen genommen. Mit den anderen Tabellen kann man analog verfahren.

Ciao, Sascha

 

Vom Meister lernen heisst Siegen lernen.

Wenn man das richtige Handwerkszeug hat und dann noch damit umgehen kann, sieht es dann richtig einfach aus. Feine Arbeit.

 

Danke, Eberhard.
Warum ich mir die Mühe gemacht habe, die Demo zu programmieren:
Die Frage nach Auslesen von HTML-Seiten kommt immer wieder. Ist ja auch plausibel und ich selbst stand ab und an auch vor der Aufgabe, Tabellen aus dem Web auslesen zu müssen.
Hier im Forum findet man aber bislang immer nur die String-Varianten als Lösung. Deshalb wollte ich hier mal grundlegend zeigen, wie flexibel das mit MSHTML geht. Das Beispiel lässt sich ja gut auf andere Fälle übertragen.

Gruß, Sascha

 

wahh *biggrin.gif*
das ist wirklich wenig Code und ne super geschwindigkeit.

Doof ist nur, ich habe es nun geschaft den Stringcode so anzupassen das ich genau das bekomme wie ich es haben möchte.

wie kann ich mein code in deiner wundervollen schnellen Variable umsetzen?#

ich habe dort ein Filesearch mit eingebaut auf ordner "G:/TB Aufträge"

also müsst ihr das eben ändern, falls ihr es antestet.

wäre echt schick wenn ihr mir das ma erklären würdet wie ich die Objekt Varriante so umsetze, Nichts gegen die Version von Eberhard, aber das geht wirklich schneller und ist schick anzusehen.

Und eine frage wäre da noch, es wird ja im formular die HTML datei dargestellt, wenn ich aber nun mehrere habe, wie es bei mir öfter vorkommt, kann man die dort untereinander anzeigen? sonst hätt ich am ende ja nur die letzte denke ich mal.

anbei mal meine DB, ein par zusammengehörende HTML dateien, und ein Screen von den Pfadverzeichnis, in welchen sich unsere Dateien befinden. Damit kann man das vieleicht besser nachvollziehen was ich gebastelt habe.

MfG: Marco mit 1000 Dank

 

\@Sascha:
Ich denke, wenn Deine Demo ins Code-Archiv verschoben wird, kann man sie (später) leichter wiederfinden. Noch mancher wird sich in der Nachfolge über einen solchen Fund freuen.
Vielleicht dazu eine leichte Korrektur: Es gibt im Dokument zwei Tabellen, die den Begriff "EINZELTEILINFORMATION" enthalten. Das kann irritieren. Bezugnehmend zum aktuellen Thema wertest Du dann gerade die Tabelle aus, woraus agmesia keine Informationen will, die aber zur Veranschaulichung sehr geeignet ist.

@agmesia:

Das bleibt Dir ja. Irgendwann gibt es auch mal reine Texte auszuwerten, wo man nicht zeilenweise arbeiten kann ...

Das Beispiel schaue ich mir noch einmal an - schon aus Eigeninteresse.

Bei vielen auszuwertenden Dateien wird man wohl die Auswertung und die Anzeige voneinander trennen.

 

Guten morgen Eberhard,

nett das du dir das nochmal anschaust, ich hab nur nie mit Objekten gearbeitet und bin mir da nicht ganz schlüssig ob ich das auslesen vom Objekt genauso kürzen und bearbeiten kann, wie ich das mit dem String getan habe.

Ich steige zwar einigermaßen durch die Schleifen durch, und begreife auch das er nach den "table-tags" schaut und dann ließt, aber wie ich genau die Info herausziehen soll,welche ich nun so mit der String-fummelei bekommen habe, weis ich nicht genau.

das Ihr mir hier nichts fertig programmiert ist 1. nicht verkehrt, und 2. auch kein problem fuer mich.

Was ich z.B. meine ist, dass wir festgestellt haben das manche HTML Dateien "Falsch" sind.

z.B. Findet man in der Pfadangabe der .geo Datei mal "/" und mal "\" als Ordnertrennzeichen.
Oder die Namensgabe eines Teils ist Falsch obwohl es das gleiche teil ist.
SD00013592-2MM
SD00013592-2MM1

Wir wissen selber nicht warum er die "1" dahinterschreibt, daher habe ich nun angefangen aus dem .geo Pfad auszulesen.

ebenso gibt es:
G:\ZEICHNUNGEN GEO UND MTL\X\XH\XH300407-28-10MM-GETAG-25623.GEO
und der Name lauftet aber:XH300407-28-10MM-GE1

 

Eben weil die Zeichenfolgen manchmal differieren (das könnt Ihr dem Softwareentwicklern unter die Nase reiben verbunden mit einigen unauffälligen Wünschen) und damit das Finden der richtigen Positionen erschwert wird, wird das Auslesen der Tabellenzellen (nach Abzählen?) weniger fehleranfällig sein.

Das kann ich gar nicht glauben. Ist Dir das Recordset-Objekt unbekannt?

Nebenbei: Warum läuft das Thema als abgeschlossen?

 

hmm
sobald ich meine Variable:
Dim flagfound2 As Boolean

erstelle, sagt er mir: "Funktionsmerkmal oder Objektbibliothek nicht unterstüzt" und springt in zeile:

Set objDoc = objWeb.Document

Ich wollte die Variable benutzen um noch eine Tabelle weiter zu springen, aber naja. soweit kommts erst garnet

Wenn ich das dann neu entpacke, geht das wieder, sobal ich die Variable deklarier, wieder der fehler. ich versteh es net.

Code:

 

Hast Du den Verweis gesetzt?

 

ja klar, ist ja sofort gesetzt wenn ich mir die datei sauge, sie ist auch weiterhin gesetzt wenn der fehler auftritt, ich versteht das net.

ich ändere nichts an der version außer das ich meine variable einfüge und dann mal kompilieren lasse, dann kommt sofort der fehler

edit:

hatte wohl ein threat überlesen oder ein teil daraus.
doch das recordset objekt ist mir bekannt, aber so intensiv ,außer das ich es mal in einem kombifeld bei not in list benutzt habe ,auch nun wieder nicht.

Habe das Thema wieder auf unerledigt geklickt, hatte ich auch ein einem threat geschrieben, da ich dachte den rest selber schaffen zu können, was ich ja auch relativ geschafft habe, aber nun die neue möglichkeit mit dem html-objekt da ist.

 

Lies noch mal, was in #17 steht zum Webbrowser-Steuerelement.
Die Variable objWeb bezieht daraus ihren Inhalt

 

hmm,
aber ich hab das gefühl das mir das bei dem fehler nicht weiterhilft.
ich mache ja nix außer eine Variable Definieren.

Vorgang:
-HTML_analysieren.zip aus Post 17 Saugen
-entpacken
-öffnen
-Test, Funktioniert einwandfrei
-alt+F11, in die Funktion "Private Sub AnalyzeHTML()" gehen
- "Dim flagfound2 As Boolean" eintragen
-Menu/Debugen/Kompilieren von HTML_analysieren.mdb wählen
-Zack fehler kommt.

Mehr, und nichts anderes habe ich gemacht, nichts umgeschrieben, verweise geändert oder ähnliches. Ich kann es mir beim besten willen nicht erklären was ich falsch mache, oder warum mein acces rumspinnt, hab schon /recompile versucht, aber bringt auch nichts, hab ich auch nicht erwartet

 

Das scheint für eine Massenverarbeitung von Dateien der bessere Weg zu sein. Hat jemand dazu einen ausführlicheren Hinweis oder ein Beispiel?

 

naja, ich hab n bischen was geschaft, soweit ich mich dadurchfressen konnte.

ist fuer mich ein guter anfang, und es kommt schon wieder in "Linien" im Direktfenster, also schon auslesbar fuer mich.

nur ein Prob:

Code: