Beginner: Textverarbeitung

[jdiephaus]

Okay vielen Dank erstmal Klaus!

Wie kann ich den Status Carriage Return oder Linefeed aus ch auslesen?

Habe ich den Code (so wie ich ihn kommentiert habe) richtig verstanden?

Edit: Kann ich dafür ord(ch) nutzen? 32 ist in dem Fall ein Leerzeichen.

[Klaus01]

Hallo,

in einer Ascii Tabelle nachschauen -> http://www.torsten-horn.de/techdocs/ascii.htm
LF = #10
CR = #13

Grüße
Klaus

[Jumpy]

So wie du den Code planst brauchst du das mMn gar nicht wissen. Immer wenn ein eoln war, ausser beim letzten mal, müsste doch ein neues Wort sein, wenn man jetzt mal davon ausgeht, dass es keine Silbentrennung im Text gibt und Worte die ohne Silbentrennung in der nächsten Zeile weiter gehen.

Dann bräuchtest du nur 2 Zählvariablen. Eine für AnzZeichen und eine Für AnzWort. Am Anfang beide 0.
im else zweig steigt jedes mal AnzZeichen und wenn ch=' ' dann auch AnzWort. Hier evtl. Sonderfall mehrerer Leerzeichen hintereinander betrachten, z.B. durch speichern des vorherigen Zeichens.
Und dann "könnte" sich bei jedem eoln auch die Wortzahl erhöhen (wenn nicht gleich auch eof ist).

[himitsu]

Zitat:

Delphi-Quellcode:

       end //Kein Semikolon?
    else
      begin

Nein, wegen dem ELSE.

Zitat:

Delphi-Quellcode:

         readln(textin) //Kein Semikolon?
       end

Man könnte es weglassen, weil danach ein END folgt, aber besser immer machen, da der Befehl ja zuende ist.

Fazit: Semikolon immer, außer vor ELSE, da dort der Gesamt-Befehl (inkl. IF) noch nicht endet.

Zitat:

Delphi-Quellcode:

         writeln(textout); //Schreibt eingelesene Zeile in textout?
         readln(textin) //Liest nächste Zeile ein? Kein Semikolon?

Variable vergessen. (string)
Und wäre es nicht besser erst einzulesen und dann zu Gelesene speichern?

PS: TStringList

[Whookie]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

         writeln(textout); //Schreibt eingelesene Zeile in textout?
         readln(textin) //Liest nächste Zeile ein? Kein Semikolon?

Variable vergessen. (string)
Und wäre es nicht besser erst einzulesen und dann zu Gelesene speichern?

Nein das passt schon so
Es wird das Zeilenende erkannt und danach in die Ausgangsdatei geschrieben. Es muss natürlich dann auch noch von der Eingangsdatei entfernt werden.

[jdiephaus]

Delphi-Quellcode:

program Textverarbeitung;
{$APPTYPE CONSOLE} uses sysutils;
var textout,textin: Text;
    ch: Char;
    AnzZeichen: Integer;
    AnzWort: Integer;
begin
  Assignfile(textin,'test.in');
  Assignfile(textout,'test.out');
  RESET(textin);                 // Datei textin öffnen
  REWRITE(textout);              // Datei textout zum überschreiben öffnen
  AnzZeichen:=0;                 // Startwert AnzZeichen
  AnzWort:=0;                    // Startwert AnzWort
  while not(eof(textin)) do      // eof True wenn Dateiende
  begin
    if eoln(textin) then         // eoln True wenn Zeilenende
    begin
      writeln(textout);          // Schreibt <cr><lf> in die textout Datei
      readln(textin);            // Liest <cr><lf> aus der textin Datei (und verwirft es)
    end
    else
    begin
      read(textin,ch);           // Liest ein Zeichen aus der textin - Datei
      write(textout,ch);         // Schreibt das soeben gelesene Zeichen in die textout - Datei
       Inc(AnzZeichen,1);        // Zählt die Anzahl der Zeichen inkl. Leerzeichen
       If eoln(textin) then
          Inc(AnzWort,1);        // Zählt die Anzahl der Zeilenumbrüche
       If ch=' ' then
          Inc(AnzWort,1);        // Zählt die Anzahl der Leerzeichen
    end;
  end;
  CloseFile(textout);            //Schließt textout
  CloseFile(textin);             //Schließt textin
  writeln('Anzahl der Zeichen: ',AnzZeichen);  // Gibt Anzahl der Zeichen aus
  writeln('Anzahl der Worte: ',AnzWort);       // Gibt Anzahl der Worte aus
  readln();
end.

Vielen Dank Whookie für diese ausführliche und hilfreiche Antwort. Jetzt bin ich schon etwas schlauer.
Wie muss ich es genau verstehen, dass writeln(textout) cr und lf schreibt und readln(textin) cr und lf ausliest und verwirft? Fungiert die Funktion als Indikator in welcher Zeile man sich gerade befindet?
Wie kann ich in einem If Statement zwei Faktoren prüfen lassen bevor ich z.B. AnzWort erhöhe? Meine Lösung ist ziemlich unschön.

[Ghostwalker]

writeln -> Write Line -> Schreibt eine ganze Zeile. Zeilenende wird automatisch angefügt.
readln -> Read Line -> Ließt eine ganze Zeile. Das Zeilenende wird automatisch verworfen.

Analog dazu gibts auch

write -> Schreibt n Zeichen in die Datei. Zeilenende muss selbst gehandhabt werden.
read -> Ließt n Zeichen aus der Datei. Zeilende muss selbst gehandhabt werden.


vgl. dazu auch die Ausführungen in der Delphi-Hilfe

[Jumpy]

Zitat von jdiephaus:

Wie kann ich in einem If Statement zwei Faktoren prüfen lassen bevor ich z.B. AnzWort erhöhe? Meine Lösung ist ziemlich unschön.

Mehrere Bedingungen kann man mit "and" oder "or" verknüpfen, hier "or":

Delphi-Quellcode:

If eoln(textin) or (ch=' ') then
          Inc(AnzWort,1); // Zählt die Anzahl der Zeilenumbrüche bzw. Leerzeichen

Hier kannst du wie schon erwähnt aber Probleme kriegen, bei zwei oder mehr Leerzeichen hintereinander, oder wie sieht es bei einer leeren Zeile aus, hier muss man evtl. auch noch mal überlegen was dann passiert.

Ach ja, das ",1" bei Inc könntest du auch weglassen, da die 1 der Standardparameter ist oder so, d.h. Inc(AnzWort) geht auch.

[p80286]

Zitat von himitsu:

PS: TStringList

Nee, er muß noch lernen. Kannst Du Dich nicht mehr an diese Sourcen erinnern, die formal vollkommen richtig waren, die aber praktisch keiner je genutzt hat?

Gruß
K-H

[Whookie]

Delphi-Quellcode:

program Textverarbeitung;
{$APPTYPE CONSOLE} uses sysutils;
var textout,textin: Text;
    ch: Char;
begin
  Assignfile(textin,'test.in'); 
  Assignfile(textout,'test.out');
  RESET(textin);    // Datei textin öffnen
  REWRITE(textout); // Datei textout zum überschreiben öffnen
  while not(eof(textin)) do //eof True wenn Dateiende
  begin
    if eoln(textin) then //eoln True wenn Zeilenende
    begin
      writeln(textout); // Schreibt <cr><lf> in die textout Datei
      readln(textin);   // Liest <cr><lf> aus der textin Datei (und verwirft es)  <- Kein Semikolon nötig (es ist aber auch nicht verboten eins zu machen!!)
    end // kein Semikolon, weil der block mit "else" weiter geht
    else
    begin
      read(textin,ch);   // Liest ein Zeichen aus der textin - Datei
      write(textout,ch); // schreibt das soeben gelesene Zeichen in die textout - Datei
      // hier kann einfach ein Zeichenzähler geführt werden.
      // platz für den Wortzähler...
    end;
  end;
  CloseFile(textout); //Schließt textout
  CloseFile(textin);  //Schließt textin
  readln();
end.

Schreib stets nur eine Anweisung pro Zeile, das ist dann auch besser zu kommentieren (und später auch zu debuggen).
Das erste Semikolon "kann" weggelassen werden, weil es die letzte Anweisung vor dem "End" ist - "muss" aber nicht, ich empfehle dir es immer zu setzen.
Das zweite Semikolon ist nicht erlaubt, weil der begin/end-Block über das "else" noch nicht abgeschlossen ist.
Dateien die du öffnest solltest du auch wieder schließen, das gilt auch für textin.

Zum Zählen gibts hier ohnehin schon Hinweise und selber lösen macht bekanntlich schlauer