| |
![zurück](../images/b_zurueck.gif)
Suche Visual-Basic Codein excel eine liste aus mehreren teilen eines textes erstellen | | ![](../images/trans.gif) | Autor: dajüm | Datum: 31.10.08 03:44 |
| Hallo,
ich habe folgendes problem:
ich möchte aus einer textdatei, die eine einzige zeile enthält, mehrere textstücke kopieren, wenn eine bestimmte bedingung erfüllt ist. diese will ich dann in eine excelliste untereinander einfügen.
die datei enthält im groben folgenden text:
...<tr height="40"><td class="c132" onmouseover="mi(132,36901,172.65,7,14,'','',0,2,'Spicey')" onclick="mgo(36901)" " height="40"><div class="mhighlight">​​​​​ </div></td><td class="c210" onmouseover="mi(210,36902,173.54,23,1,'','',0,0,'')" onclick="mgo(36902)" "> </td><td class="c101" onmouseover="mi(101,36903,174.43,1,14,'BarzaKing08','WAR',1047,0,'')"...
! die datei hat kein eindeutiges muster
das einzige was regelmäßig ist, ist die fett geschriebene zahl, sie ist eine fotlaufende nummer onmouseover="mi(101,36903,174.43,1,14,'BarzaKing08','WAR',1047,0,'')"
die bedingung ist:
wenn die fett geschriebene zahl einen bestimmten wert hat,
onmouseover="mi(101,36903,174.43,1,14,'BarzaKing08','WAR',1047,0,'')"
soll dann die dazugehörigen fortlaufende nummer in excel kopiert werden.
und die nächste dann darunter usw.
das ist ein teilproblem, aber es ist der erste schritt in meiner arbeit,
mit probelisten habe ich inzwischen den rest meiner aufgabe komplett gelöst.
alles in vb/vba. nur das erstellen der liste fehlt mir nun noch.
habe schon probiert die datei als csv einzulesen, bzw als text in excel mit tabulator als trennzeichen einzulesen. das funktioniert auch ganz gut, da der ausdruck
onmouseover="mi(101,36903,174.43,1,14,'BarzaKing08','WAR',1047,0,'')"
nun in einer zelle steht. aber dann bekomme ich probleme mit der weiteren verarbeitung.
oder könnte man dann mit vb die zelle so verändern, dass wenn die bedingung stimmt anstatt des ausdrucks die nummer in die zelle geschrieben wird und alle zellen die nicht die bedingung erfüllen gelöscht werden? so würde ja dann auch die liste mit den nummern entstehen.
ob man da mit der mid-funktion weiterkommt?
ich probier mal weiter, aber für lösungsansätze wäre ich dankbar.
gruß dajüm | ![](../images/trans.gif) |
![](../images/48x48/info.gif) | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
Neu! sevCoolbar 3.0 ![Professionelle Toolbars!](../images/werbung/sevclb20_150x125.gif)
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats Access-Tools Vol.1 ![Access-Tools CD Vol.1](../images/werbung/apvol1_68x100.gif)
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|