Textdateiinhalt ändern mit VBA

[charly2005]

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.

[diemah]

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

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

[charly2005]

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....

[diemah]

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

[charly2005]

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 ?

[diemah]

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.