so nun eine kleine Erklärung wie Du vorgehen mußt.
Ich wollte zwar erst mein Beispiel Dir erklären, aber ich denk mal ich zeig Dir
mal wie Du vorgehen mußt mit Deiner eBay-Mail-Datei:
Hier erstmal einen Auszug von einer eBay ersteigerten Mail (hab sie als HTML Format zuvor abspeichern müssen)
<tr valign="top">
<td class="BodyFont" valign="top">
<font style="font-size: x-small; font-family: arial," & _
"sans-serif"><Label>Straße</Label>:</font>
</td>
<td class="BodyFont" width="55%">
<font style="font-size: x-small; font-family: arial," & _
"sans-serif">Sportplatzstraße 33a-35<br></font>
</td>
</tr> Man sieht deutlich das immer gewisse HTML-Befehle sich wiederholen am Anfang und am Ende eines Wertes was Du auswerten möchtest
Mit diesem Modul möchten wir nun die Straße ermitteln und per MsgBox erstmal nur anzeigen (später mußte das halt in eine Variable setzen!)
On Error Resume Next
Dim TextInhalt As String
Dim SucheBegin As Long
Dim EndString As String
TextInhalt = "" ' <--- hier muß der Inhalt der eBay-HTML-Datei eingeladen
' werden !
' müßtest also noch eine Routine schreiben um die Datei in diese Variable zu
' setzen !
SucheBegin = 1' <- ist die Position wo man anfangen möchte die Datei auszulesen
MsgBox MemberDatenErmitteln("Straße", TextInhalt, SucheBegin)
' Die Variable SucheBegin, hat nun nicht mehr den Wert 1 sondern einen höheren
' Wert, ist der Wert nach dem Straßen-Namen&Hausnummer
' sprich mit der nächsten MemberDatenErmitteln(....) einfach fortfahren !!!Da in Deinem Fall die Routine MemberDatenErmitteln neu angepasst werden muß,
würde das in Deinem Fall so aussehen !
Function MemberDatenErmitteln(tempMemberDatenVon As String, TextInhalt As _
String, SucheBegin As Long) As String
On Error Resume Next
MemberDatenErmitteln = SucheZwischenBereich(TextInhalt, SucheBegin, _
"<label>" & LCase$(tempMemberDatenVon) _
& "</label>", "</font></td>")
MemberDatenErmitteln = SucheZwischenBereich(TextInhalt, SucheBegin, "<font" & _
"style=" & chr$(34) & "font-size: x-small; font-family: arial," & _
"sans-serif" & chr$(34) & ">", "<br></font></td></tr>")
End Functionmmm bin mir leider jetzt nicht so sicher das es auf anhieb funktioniert, das Problem was wir hier haben das vor und nach der Straße kein eindeutiges Zeichen direkt haben sondern noch jede Menge HTML Code 
Aber gut zu wissen, ich werde später selbt mich mal daran machen um solch ein Problem auch einfach hinzubekommen, sprich das man mit eine * arbeiten kann was alles ersetzt (bzw überliest).
sprich wenn sowa wie das vorkommt
<font style="font-size: x-small; font-family: arial, sans-serif"> im VB Code dann wie folgt erkennt werden soll
<font *> denn eBay brauch nur mal die Schriftart ändern oder die Position von diesen Schriftarten austauschen/ändern und schon würde das Programm nicht mehr arbeiten
hoffe man versteht wie ich vorgehe und wie man mit dieser Routine sicher was schönes draus machen kann, würde mich freuen
wenn mich jemand gern damit unterstützen möchte, dann einfach mal per ICQ oder Mail melden.
bis denne
Gruß Tim
*greetz*
Tim
.
http://www.DotNetWorld.de |
Forenübersicht Suchen Forumsregeln
Oktober 2025
Sie sind aktuell nicht angemeldet.
