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

Ansicht des Beitrags:
Von:
Holger		 Datum:
28.08.2008 20:11:27		 Views:
799		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Daten in txt-Dateien bearbeiten
Hallo Axel,
versuche
If x = 1 Then Put #2, , y Else Put #2, , x
oder
If x = 1 Then
Put #2, , y
Else
Put #2, , x
end if
Stimmt die Kopie tatsächlich mit der Originaldatei überein? Da der Zugriff byteweise erfolgt, hast du aber vermutlich nicht 6000000 Datensätze, sondern wesentlich mehr. Überprüfe das eventuell mit der Dateigröße.
Ansonsten z.B. anstelle der For-Next-Schleife:
y = 2 'braucht nicht jedesmal gesetzt zu werden
Do
Get #1, , x
If x = 1 Then Put #2, , y Else Put #2, , x
loop until eof(1)

Ich habe meinen Vorschlag nicht ausprobiert. Viel Erfolg
Holger


Axel schrieb am 27.08.2008 13:00:26:

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
27.08.2008 13:00:26 Axel
NotSolved
Blau Aw:Daten in txt-Dateien bearbeiten
 28.08.2008 20:11:27 Holger
NotSolved