Thema Datum  Von Nutzer Rating
Antwort
Rot Daten in txt-Dateien bearbeiten
 27.08.2008 13:00:26 Axel
NotSolved
28.08.2008 20:11:27 Holger
NotSolved

Ansicht des Beitrags:
Von:
Axel		 Datum:
27.08.2008 13:00:26		 Views:
1816		 Rating:
     
Antwort:
  Ja
Thema:
Daten in txt-Dateien bearbeiten
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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten in txt-Dateien bearbeiten
 27.08.2008 13:00:26 Axel
NotSolved
28.08.2008 20:11:27 Holger
NotSolved