| |

Suche Visual-Basic Codein excel eine liste aus mehreren teilen eines textes erstellen | |  | 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 |  |
 | 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 |
  |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|