Hallo,
Ich als Anfänger brauch mal Hilfe.
Habe eine txt-Datei mit Daten (2000 Zeilen mal 3000 Spalten) etwa so:
-9999 -9999 -9999 -9999 -9999 -9999 -9999 -9999 -9999 -9999
-9999 -9999 -9999 -9999 -9999 -9999 1 1 1 -9999
-9999 -9999 -9999 -9999 -9999 -9999 -9999 -9999 -9999 -9999
-9999 -9999 -9999 1 1 1 -9999 -9999 -9999 -9999
-9999 -9999 -9999 1 1 1 1 -9999 -9999 -9999
ich möcht die Datei kopieren und dabei bearbeiten die -9999 soll erhalten bleiben und die 1 soll zur 2 werden
Sub test()
Dim x As Integer
Dim y As Integer
dateiname1 = "test.txt"
dateiname2 = "test2.txt"
Open dateiname1 For Binary Access Read As #1
Open dateiname2 For Binary Access Write As #2
For Wiederholung = 1 To 6000000
Get #1, , x
y = 2
If x = 1 Then Put #2, , y Else
Put #2, , x
Next Wiederholung
Close #1
Close #2
End Sub
Nun, das kopieren klappt, aber die if-Abfrage ?
Wahrscheinlich sollte ich mal einen Grundkurs belegen.
Hoffentlich kann mir jemand helfen.
Vielen Dank.
|