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 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.

[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

seek (t1,0); kann es sein, dass seek bei textdateien nicht funktioniert?

[ArminF]

Zitat von Hansa:

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.

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

[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 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 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 von xaromz:

Hallo,

Zitat von ArminF:

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

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. Und auch noch ein wenig unerfahren mit delphi. hab das gute teil ja erst seit n paar wochen...