Textfile bearbeiten
Ralf_P
ich möchte aus xbelibiegen txt files die Zahlenwerte auslesen, dann die Zahlenwerte berechnen (z.B. Wert mal 5) und dann das Ergebnis in die entsprechende Zeile zurückschreiben.
Alle txt files sind nach der gleichen Struktur aufgebaut, so dass das über eine Schleife gehen müsste.
Hier mal ein Beispiel - es sollen die Zahlen in Zeile 1, 2 und 4 verändert und zurückgeschrieben werden:
Fzgmasse [t] 150.800
Reibmasse [t] 119.300
Haftreibungswert 1.000
Rhofzg (-) 4.540
Wirkgrad_konst 0.82000
Ich dachte an etwas in dieser Form:
Sub Text()
Dim strZeile
Open "Daten.txt" For Input As #1 Open "Datenneu.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, strZeile
strZeile = Replace(strZeile, "alte Zahl", "neue Zahl")
Write #2, strZeile
Loop
Close #1 ' Datei schließen.
Close #2
End Sub
Ich weiß jetzt nicht genau, wie ich die Zahlen extrahiere - berechne - und zurückschreibe.Viele Grüße
Ralf