zeilenumbruch in text-file löschen

[xaromz]

Hallo,

Du solltest vielleicht nach dem Schreiben von t1 den Dateizeiger mit Seek zurücksetzen, sonst liest Du nach dem Ende der Datei.

Gruß
xaromz

[Hansa]

Zitat:

Zitat von ArminF

aargh... ich krieg die krätze... jetzt kackt mir das programm andauernd ab.

Und das wundert Dich auch noch ? Reset <F1> und dann mal genau gucken. Das andere fängt auch mit re... an. :lol:

[ArminF]

Delphi-Quellcode:

procedure cDNAEingabe;                                                          {Eingabe der cDNA}

var
  f1, t1 : text;
  zeile  : string;

begin
  writeln ('Bitte speichern Sie die komplette cDNA-Sequenz');
  writeln ('OHNE ZEILENUMBRUCH in d:\armin\cNDA.txt');
  writeln ('Bitte Datei wieder schliessen und mit RETURN bestaetigen!');
  readln;
  writeln;
  assign (f1,'d:\ARMIN\codeX\cDNA.txt');
  rewrite (f1);
  assign (t1,'d:\ARMIN\codeX\cDNA_tmp.txt');
  reset (t1);
  while not eof(f1) do
    begin
      readln (f1,zeile);         {liest aus f1 eine Zeile und speichert in "zeile"}
      write(t1,zeile);           {schreibt in t1 den Inhalt von zeile}
    end;
  seek (t1,0);
  read (t1,cDNAgesamt);
  close (f1);
  close (t1);
end;

...bekomm ich als fehlermeldung "inkompatible typen" bei der zeile

Delphi-Quellcode:

seek (t1,0);

kann es sein, dass seek bei textdateien nicht funktioniert?

[ArminF]

Zitat:

Zitat von Hansa

Zitat:

Zitat von ArminF

aargh... ich krieg die krätze... jetzt kackt mir das programm andauernd ab.

Und das wundert Dich auch noch ? Reset <F1> und dann mal genau gucken. Das andere fängt auch mit re... an. :lol:

hä?! jetzt versteh ich nur bahnhof :roll: ...und was bitte fängt auch mit re... an?! Bitte keine armen verstreuten akademiker verwirren, bitte :lol:

[Hansa]

1. nachträglich geänderter Quelltext ist für Fragesteller selber nicht gut. (reset <-> rewrite) 8)

2. Folgefehler : Logik schreiben/lesen nicht ganz klar, was ?

Zitat:

Zitat von ArminF

Delphi-Quellcode:

  while not eof(f1) do
    begin
      readln (f1,zeile);                                                         {liest aus f1 eine Zeile und speichert in "zeile"}
      write(t1,zeile);                                                           {schreibt in t1 den Inhalt von zeile}
    end;
  seek (t1,0);
  read (t1,cDNAgesamt);
  close (f1);
  close (t1);
end;

3. Wozu überhaupt close ?

4. Was soll das seek bewirken ?

F1 bewirkt Wunder ! 8)

[xaromz]

Hallo,

Zitat:

Zitat von ArminF

hä?! jetzt versteh ich nur bahnhof :roll: ...und was bitte fängt auch mit re... an?! Bitte keine armen verstreuten akademiker verwirren, bitte :lol:

Du hast Rewrite und Reset vertauscht. Du öffnest die Quelldatei zum Schreiben und die Zieldatei zum Lesen.
Versuch's mal so:

Delphi-Quellcode:

procedure cDNAEingabe;                                                          {Eingabe der cDNA} 

var 
  f1, t1 : text; 
  zeile  : string; 

begin 
  writeln ('Bitte speichern Sie die komplette cDNA-Sequenz'); 
  writeln ('OHNE ZEILENUMBRUCH in d:\armin\cNDA.txt'); 
  writeln ('Bitte Datei wieder schliessen und mit RETURN bestaetigen!'); 
  readln; 
  writeln; 
  assign (f1,'d:\ARMIN\codeX\cDNA.txt'); 
  reset (f1);          // <- hier
  assign (t1,'d:\ARMIN\codeX\cDNA_tmp.txt'); 
  rewrite (t1);        // <- und hier
  while not eof(f1) do 
    begin 
      readln (f1,zeile);                                        {liest aus f1 eine Zeile und speichert in "zeile"} 
      write(t1,zeile);                                          {schreibt in t1 den Inhalt von zeile} 
    end; 
  close (t1);  // <- statt Seek: einfach neu öffnen
  reset (t1);
  read (t1,cDNAgesamt); 
  close (f1); 
  close (t1); 
end;

Gruß
xaromz

[ArminF]

Zitat:

Zitat von xaromz

Hallo,

Zitat:

Zitat von ArminF

hä?! jetzt versteh ich nur bahnhof :roll: ...und was bitte fängt auch mit re... an?! Bitte keine armen verstreuten akademiker verwirren, bitte :lol:

Du hast Rewrite und Reset vertauscht. Du öffnest die Quelldatei zum Schreiben und die Zieldatei zum Lesen.
Versuch's mal so:

Delphi-Quellcode:

procedure cDNAEingabe;                                                          {Eingabe der cDNA} 

var 
  f1, t1 : text; 
  zeile  : string; 

begin 
  writeln ('Bitte speichern Sie die komplette cDNA-Sequenz'); 
  writeln ('OHNE ZEILENUMBRUCH in d:\armin\cNDA.txt'); 
  writeln ('Bitte Datei wieder schliessen und mit RETURN bestaetigen!'); 
  readln; 
  writeln; 
  assign (f1,'d:\ARMIN\codeX\cDNA.txt'); 
  reset (f1);          // <- hier
  assign (t1,'d:\ARMIN\codeX\cDNA_tmp.txt'); 
  rewrite (t1);        // <- und hier
  while not eof(f1) do 
    begin 
      readln (f1,zeile);                                        {liest aus f1 eine Zeile und speichert in "zeile"} 
      write(t1,zeile);                                          {schreibt in t1 den Inhalt von zeile} 
    end; 
  close (t1);  // <- statt Seek: einfach neu öffnen
  reset (t1);
  read (t1,cDNAgesamt); 
  close (f1); 
  close (t1); 
end;

Gruß
xaromz

...tatsache! so funktioniert's! DAAAAAAANKE


...bin leider grad eben furchtbar aufm schlauch gestanden. :gruebel: Und auch noch ein wenig unerfahren mit delphi. hab das gute teil ja erst seit n paar wochen...