AW: Beginner: Textverarbeitung
Zitat:
Gruß K-H |
AW: Beginner: Textverarbeitung
Zitat:
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. |
AW: Beginner: Textverarbeitung
Vielen Dank für die Tipps! Ah okay Jumpy das mit dem or hatte ich probiert jedoch ch=' ' nicht in Klammern gesetzt -.-. Okay stimmt darüber hatte ich noch nicht nachgedacht. Ich versuche AnzWort dementsprechend umzubauen.
Die nächste Aufgabe ist das Programm dahingehend zu erweitern, dass alle Umlaute durch ae ue oe Ae... usw vor dem schreiben in textout geändert werden. Das habe ich jetzt so gelöst: Funktioniert! :) :)
Delphi-Quellcode:
program Textverarbeitung;
{$APPTYPE CONSOLE} uses sysutils; var textout,textin: Text; ch: Char; AnzZeichen: Integer; AnzWort: Integer; sZeichen: String; sText: String; 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 ganze Zeile in textout. Zeilenende wird automatisch angefügt. readln(textin); // Liest ganze Zeile aus textin. Zeilenende wird automatisch verworfen. end else begin read(textin,ch); // Liest ein Zeichen aus textin und schreibt es in ch sZeichen:=ch; // String sZeichen mit Wert aus ch Case sZeichen of // Ändert bestimmte Zeichen vor dem Schreiben in textout #196:sZeichen:='Ae'; // Ä #214:sZeichen:='Oe'; // Ö #220:sZeichen:='Ue'; // Ü #228:sZeichen:='ae'; // ä #246:sZeichen:='oe'; // ö #252:sZeichen:='ue'; // ü #223:sZeichen:='ss'; // ß end; sText:=sText+sZeichen; // Zusammenfügen aller sZeichen zu sText write(textout,sZeichen); // Schreibt das soeben gelesene Zeichen aus sZeichen in textout Inc(AnzZeichen); // Zählt die Anzahl der Zeichen If eoln(textin) or (ch=' ') then Inc(AnzWort); // Zählt die Anzahl der Zeilenumbrüche und Leerzeichen end; end; CloseFile(textout); // Schließt textout CloseFile(textin); // Schließt textin writeln(sText); // Gibt sText aus writeln('Anzahl der Zeichen: ',AnzZeichen); // Gibt Anzahl der Zeichen aus writeln('Anzahl der Worte: ',AnzWort); // Gibt Anzahl der Worte aus readln(); end. |
AW: Beginner: Textverarbeitung
Da es ja nur eine Übung ist, würde ich nicht alle Sonderfälle berücksichtigen, sondern erst mal von einem idealen Text ausgehen. Will man jeden Sonderfall berücksichtigen, kommt man schnell vom 100sten ins 1000ste und dann kommt man gar nicht mehr weiter. Und ich denke, das ist nicht Sinn der Übung eine perfekte Wortzählroutine zu entwickeln.
Aber du solltest dir angewöhnen nicht jede Zeile zu kommentieren. Das macht den Code nur sehr unübersichtlich. Klar als Anfänger kann man schon mal ein paar mehr Zeilen kommentieren. Zum Beispiel Inc, wenn der Befehl für einen neu ist. Aber CloseFile kommentieren? Der Funktionsname sagt doch schon, was die Funktion macht. |
AW: Beginner: Textverarbeitung
Was mir aufgefallen ist: In sText dürften nachher die Zeilenumbrüche fehlen? Als folge sind das Wort am Ende einer Zeile und das am Anfang der nächsten Zeile evtl. zusammengeschrieben? Evtl. Lösung:
Delphi-Quellcode:
Und dann sei noch die Bemerkung erlaubt, dass der Code jetzt eine Länge ereicht hat, bei dem man evtl. überlegen sollte Teile in eine Unterfunktion auszulagern, z.B.:
if eoln(textin) then // eoln True wenn Zeilenende
begin writeln(textout); // Schreibt ganze Zeile in textout. Zeilenende wird automatisch angefügt. readln(textin); // Liest ganze Zeile aus textin. Zeilenende wird automatisch verworfen. sText:=sText+CHR(13)+CHR(10); // Zeilenumbruch hinzufügen. Kann auch 10 13 sein, kann mir das nie merken. end
Delphi-Quellcode:
function ErsetzeUmlaute(ch:Char):String;
var sZeichen:String; begin Case ch of #196:sZeichen:='Ae'; // Ä #214:sZeichen:='Oe'; // Ö #220:sZeichen:='Ue'; // Ü #228:sZeichen:='ae'; // ä #246:sZeichen:='oe'; // ö #252:sZeichen:='ue'; // ü #223:sZeichen:='ss'; // ß else sZeichen:=ch; end; Result:=sZeichen; end; //Dann in der Hauptfunktion: //... read(textin,ch); sZeichen:=ErsetzeUmlaute(ch); sText:=sText+sZeichen; write(textout,sZeichen); //... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz