String in Datei schreiben bzw. auslesen

[Tassi]

Hi zusammen,

Ein Problem jagt das nächste habe ich das Gefühl. Vielleicht kann mir ja wieder einer helfen. Sollte "eigentlich" ganz einfach sein. Wie schon bei mir in Stringketten zerlegen, möchte ich nun gerne auch eine Solche datei einlesen und speichern.

Die Datei hat einmal Strings der Form "Fräse:Bosch:1992" der aus einer beliebigen Datei eingelesen werden soll. Wie mache ich das?

Und zur nächsten Frage. Nachdem ich die Daten bearbeitet habe, sollen der neue String in eine andere Datei exportiert werden.

Vielleicht hat jemand ein Programmierbeispiel.

 

[JensG]

ungetestet und ohne Fehlerbehandlung

Dim f1,f2 as Integer
Dim Feld(2) as String
Dim Textzeile as String

f1 = FreeFile
f2 = f1 + 1


Open DeineNeueDatei For Append As f1
Open DeineAlteDatei For Input As f2
Do While Not EOF(f2)
Line Input #f2, TextZeile

Feld() = Split(TextZeile, ":", , vbTextCompare)

Print #f1, Feld(0) & "--" & Feld(1) & "--" & Feld(2)

Loop
Close #f2
Close #f1


Viel Spaß