AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Buchstabenhäufigkeit

Ein Thema von Lisa.99 · begonnen am 13. Feb 2017 · letzter Beitrag vom 6. Mär 2017
Antwort Antwort
Lisa.99

Registriert seit: 13. Feb 2017
21 Beiträge
 
#1

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 07:34
Er zählt leider die Satzzeichen mit, wenn er die Buchstabenanzahl berechnen soll, aber das will ich nicht.

Delphi-Quellcode:
begin
 if not (key in [#65..#90, #97..#122, #8]) then
  key := #0;

 StringGrid1.Cells[0,0]:= 'Buchstabe';
 StringGrid1.Cells[1,0]:= 'Häufigkeit';

 for i := 0 to 26 do
 begin
   StringGrid1.Cells[0,i+1]:= char (i+65);
 end;
 text:= Edit1.Text;
 text:=stringreplace(text,' ','',[rfReplaceAll]);
 for n1 := 1 to length (text) do
    begin
    Buchstabe := text[n1];
    Buchstabe := Upcase (Buchstabe);
    Ordnungszahl:= Ord(Buchstabe);
    Index:= Ordnungszahl-64;
    if Index in [1..26] then
      begin
      anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
      anzahl := anzahl + 1;
      StringGrid1.Cells[1,Index] := inttostr(anzahl);
      end;
    end;
   Edit2.Text:= inttostr(n1-1);
end;

Geändert von Luckie ( 6. Mär 2017 um 08:32 Uhr) Grund: Delphi-Tags eingefügt. Beim nächsten Mal bitte selber machen!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 08:40
Überlege dir doch mal wie du NUR die Buchstaben zählen würdest. Schritt für Schritt.

Code:
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen kein Buchstabe, Zähler nicht erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
...
Das heißt, du "überprüfst" im Kopf, ohne dass du es bewusst wahrnimmst, ob du gerade einen Buchstaben zählst oder nicht. Das musst du jetzt in Code umsetzen:
Code:
wenn Buchstabe
  Zähler erhöhen
ansonsten
  tue nichts
Da der "ansonsten"-Zweig leer ist, kann man ihn natürlich weglassen. Letztendlich läuft es darauf hinaus den Zähler nur hoch zu zählen, wenn ein Buchstabe Buchstaben vorliegt. Das kann man jetzt sprachtechnisch unterschiedlich lösen. Am einfachsten wäre der in-Operator:
Code:
Wenn Zeichen in Buchstaben-ASCII-Bereich, dann zähle hoch
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 08:47
Und warum zählst Du nicht alle Zeichen und gibst dann die Zählung der Buchstaben aus?
Ohne Mehraufwand wäre dann auch die Zählung der Satzzeichen, Umlaute oder was auch immer verfügbar.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 09:10
Lass sie erst mal das eine Problem lösen. Optimieren kann sie dann immer noch, wenn sie es verstanden hat.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Lisa.99

Registriert seit: 13. Feb 2017
21 Beiträge
 
#5

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 16:05
Ich benutze doch den in Operator:
if Index in [1..26] then
begin
anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
anzahl := anzahl + 1;
StringGrid1.Cells[1,Index] := inttostr(anzahl);
end;

Und dieser soll ja nur die Zeichen zählen, die in diesem Bereich liegen.
Muss ich den Bereich ändern in:
if Index in [#65...#90] then ?
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 16:17
Probier es doch einfach aus. Und bitte setz deinen Code in Delphi Tags, dann ist er auch besser lesbar.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#7

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 16:19
anzahl := anzahl + 1;
selbe wie
inc(anzahl);

anzahl := anzahl - 1;
selbe wie
dec(anzahl);

gruss

Geändert von EWeiss ( 6. Mär 2017 um 16:24 Uhr)
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#8

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 16:46
Ich benutze doch den in Operator:
if Index in [1..26] then
begin
anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
anzahl := anzahl + 1;
StringGrid1.Cells[1,Index] := inttostr(anzahl);
end;

Und dieser soll ja nur die Zeichen zählen, die in diesem Bereich liegen.
Muss ich den Bereich ändern in:
if Index in [#65...#90] then ?
Ich bin mal so dreist und kommentiere Deinen Quelltext:
Delphi-Quellcode:
// mache von 1 bis 26 also 26 mal das Folgende:
if Index in [1..26] then
begin
  // Lese die Zeichenfolge aus
  // StringGrid1.Cells[1,Index]
  // und konvertiere sie zu einer Zahl, falls das nicht geht, gib' mir eine 0 zurück.
  anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
  // Addiere zu dieser Zahl 1
  anzahl := anzahl + 1;
  // Schreibe das Ergebnis der Addition in de soeben ausgelesene Zelle zurück.
  StringGrid1.Cells[1,Index] := inttostr(anzahl);
end;
Hier wird also, wie mir scheint, zu 26 Zahlen im Stringgrid 1 addiert.
Sofern zu Beginn im StringGrid aber keine Zahlen stehen, sondern Texte, so wird in den Zellen der Text (beim ersten Aufruf) jeweils durch 1 ersetzt.

Weil:
Textumwandlung in eine Zahl nicht funktioniert,
der Rückgabewert in diesem Fall (2. Parameter von StrToIntDef) = 0 sein soll
und anschließend auf 0 1 addiert wird.

Was gänzlich fehlt: Eine Routine, die den ggfls. in StringGrid1.Cells[1,Index] enthaltenen Text in irgendeiner Form auswertet und als Ergebnis die Anzahl der dort enthaltenen Wörter liefert.

Werde mal versuchen einen Pseudoquelltext zu schreiben, der Dir eventuell als Anhaltspunkt für Veränderungen dienen könnte.
Dabei gehe ich davon aus, dass in jeder Zeile des StringGrids in der ersten Spalte ein Text (bestehend aus mehr oder weniger vielen Worten) steht und in der zweiten Spalte die Anzahl der Worte aus Spalte eins stehen soll.
Delphi-Quellcode:
function ZaehleWorteIn(Zeichenfolge : String) : Integer;
var
         i : Integer;
begin
  // Erstmal gehen wir von keinem Wort aus.
  Result := 0;
  // Entfernen führende und folgende Leerzeichen.
  // Außerdem hängen wir am Ende dann ein Leerzeichen an,
  // damit auch das letzte Wort gezählt wird.
  // Als Worttrennung wird hier ausschließlich das Leerzeichen genutzt.
  // Reicht das nicht oder werden Zeichenfolgen als Wort erkannt, die kein Wort sind,
  // so ist die Routine entsprechend anzupassen.
  Zeichenfolge := Trim(Zeichenfolge) + ' ';
  for i := 1 to Length(Zeichenfolge) do begin
    Case Zeichenfolge[i] of
      ' ' : Result := Result + 1;
    end;
  end;
end;

var
    Zeile : Integer;
    Zeichenfolge : String;
    Anzahl : Integer;
begin
  for Zeile := 1 to StringGrid1.RowCount - 1 do begin
    Zeichenfolge := StringGrid1.Cells[0,Zeile];
    Anzahl := ZaehleWorteIn(Zeichenfolge);
    StringGrid1.Cells[1,Zeile] := IntToStr(Anzahl);
  end;
end;
Das ist jetzt nur hingedaddelt und nicht getestet.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

AW: Buchstabenhäufigkeit

  Alt 6. Mär 2017, 17:39
Hier geht es um die Buchstabenhäufigkeit und nicht um die Anzahl der Wörter. Die suchst sie in dem anderen Thread.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz