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 |