Zum Inhalt springen

Textdateiinhalt ändern mit VBA


charly2005

Empfohlene Beiträge

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.

Link zu diesem Kommentar
Auf anderen Seiten teilen

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 ?

Link zu diesem Kommentar
Auf anderen Seiten teilen

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.

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...