Hallo Leute, hab schon seit längerem ein riesiges Problem, welches ich mit VBA lösen muß - es aber irgendwie nicht hinbekomme. Hab eine txt-Datei mit folgendem Inhalt:

H|\^&|||H7600^1|||||host|RSUPL^REAL|P|1

P|1|||||||U||||||^

O|1| 0918599|0^5049^4^^S1^SC|^^^773^\^^^413^\^^^433^\^^^219^\^^^686^\^^^684^\^^^678^\^^^781^|R||20090623174459||||N||||1|||||||20090623174038|||F

C|1|I| ^ ^ ^ ^ |G

R|1|^^^773/|0.65|mg/dl||N||F||mm |||P1

C|1|I|0|I

R|2|^^^413/|43.4|g/l||N||F||mm |||P1

C|1|I|0|I

R|3|^^^433/|195|mg/dl||N||F||mm |||P1

C|1|I|0|I

R|4|^^^219/|33.6|U/l||N||F||mm |||P1

C|1|I|0|I

R|5|^^^686/|20.5|U/l||N||F||mm |||P1

C|1|I|0|I

R|6|^^^684/|18.4|U/l||N||F||mm |||P1

C|1|I|0|I

R|7|^^^678/|71.3|g/l||N||F||mm |||P1

C|1|I|0|I

R|8|^^^781/|145|mg/dl||N||F||mm |||P1

C|1|I|0|I

L|1|N

In der dritten Zeile steht immer eine 7-stellige Nummer (hier = 0918599).

Diese Nummer muß ich an den Anfang jeder Zeile setzen, die an erster Stelle ein R hat. In diesem Beispiel sind es acht Zeilen mit R - können aber auch mehr oder weniger sein.

Hat jemand eine Idee ?

Vielen Dank im Vorfeld.

schau hier: vb@rchiv · Tipps & Tricks · Textdateien komfortabel einlesen und schreiben

Wenn du dann konkrete fragen hast, dann melde dich nochmal.

Vielen Dank dafür - allerdings geht es dort immer nur um daß Auslesen / Ändern von ganzen Zeilen - ich muß lediglich einen bestimten Teil einer Zeile "ausschneiden" und ihn weiter unten an den Anfang von weiteren Zeilen einfügen....

auf dieser Seite gibt's ziemlich weit unten einen Abschnitt "Ändern eines bestimmten Zeileninhaltes einer Datei". Das dürfte für dich passend sein.

Hi,

da ist zwar ein Beispiel für daß Ändern eines Zeilenbausteines - allerdings funktioniert daß mit dem Beispiel nur, wenn der Inhalt immer derselbe ist. In meinem Fall ist der auszuschneidende Teil zwar immer an derselben Stelle, aber der Inhalt ist variabel - und auch daß "Ziel" ist mehrfach vorhanden.

Hast Du vielleicht eine Alternativ-Idee ?

du musst die Struktur der Datei dir genau anschauen.

3. Zeile einlesen nach "|" aufteilen und den einzufügenden String merken.

Datei ab der 4. Zeile durchgehen, wenn mit R beginnt, dann diese Zeile ändern (den gemerkten String voranfügen).

Wenn du eine fertige Lösung von jmd. anderen gemacht haben möchtest, dann bist du hier im Forum falsch.