Vokale entfernen

[DeddyH]

Eine sehr unperformante Variante: alle Vokale in Groß- und Kleinschreibung in einem konstanten Array deklarieren. Dann dieses Array in einer Schleife durchgehen und dann in einer weiteren Schleife die Position des aktuellen Vokals ermitteln und solange löschen, bis dieser Vokal nicht mehr enthalten ist, Pos also 0 zurückgibt.

[mkinzler]

Oder mit 2 Strings: über Quellstring iterieren und nur Konsonaten/zahle usw. in Zielstring übernehmen

[himitsu]

@mkinzler: Die Aufgabe ist die Verwendung von Delete
(glaub ich zumindestens so verstanden zu haben)


Kennt ihr IN schon?

Delphi-Quellcode:

if s[index] in ['a', 'A', 'e', ...] then 
  Delete(s, index, 1);

// entspricht
if (s[index] = 'a') or (s[index] = 'A') or (s[index] = 'e') or ... then 
  Delete(s, index, 1);

Und nicht vergessen ... beim Löschen solltest du die Schleife rückwärts (downto) laufen lassen, da sich beim Löschen der Index verschiebt, was in einer Vorschleife nicht angepaßt wird, es sei denn man rechnet einen Offset mit ein oder verwendet eine While-Schleife.

[Connor Temple]

In haben wir leider nicht benutzt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text                               :String;
    i                                  :Integer;
begin
Text := Texteingabe.Text ;
i := 1 ;
While i <= length(Text) Do
     Begin
          If Text[i] = 'a'
            Then Delete (Text, a) ;

     i := i + 1 ;
     end;
Textausgabe.Text := Text;
end;

end.

So siehts aus, mein Fehler liegt jetzt aber bei dem Delete, außerdem möchte ich das gerne für alle Vokale in Groß- und Kleinschreibung benutzen.
Aber so kommt ein Fehler, ich weiß echt nicht mehr weiter und verzweifel grad schon wieder an diesem komischen Programm, das einfach nicht versteht was ich von ihm will -.-

[himitsu]

Zitat von Connor Temple:

So siehts aus, mein Fehler liegt jetzt aber bei dem Delete, außerdem möchte ich das gerne für alle Vokale in Groß- und Kleinschreibung benutzen.
Aber so kommt ein Fehler, ich weiß echt nicht mehr weiter und verzweifel grad schon wieder an diesem komischen Programm, das einfach nicht versteht was ich von ihm will -.-

Schön, daß man uns nie den Text der Fehlermeldung sagt.
Aber ich kann's mir zum Glück denken, da heute die Glaskugel mal funktioniert.
Irgendwas vonwegen fehlendem Parameter ... niwa?
Schau mal in die OH, was sie dir zum Delete sagt.

PS: i := i + 1; Den Index nur herhöhen, wenn nicht gelöscht wurde (ELSE > delete oder i+1).
Den Grund nannte ich schon. (oder eben die While-Schleife am Ende des Strings loslaufen lassen und dann rückwärts zur 1 runterzählen)

[Connor Temple]

Also soll ich die "While >= length(Text)" schreiben?
Das beschriebene Index hatten wir in Verbindung mit Delete noch gar nicht.
Deswegen hab ich grad voll das Problem eure Lösungen so zu verstehen...

[Fussel9]

... welcher der folgenden Begriffe sagt die denn was:

- rekusiv
- Menge
- pos({code})
- if ...or... then

je nach dem welche du kennst kann man einen Ansatz herausarbeiten

[Fussel9]

Habs, als rekursive Lösung.

d.h. das sich die procedure oder hier function in sich selbst aufruft.

das funktioniert hier z.B. so:

Ist der String leer?
-Nein
Ist der erste Buchstabe ein Vokal?
-Ja : lösche ihn und frage erneut
-Nein : merke ihn dir
_________lösche den ersten Buchstaben
_________gebe den gemerkten Buchstaben mit dem ergebniss einer erneuten prüfung aus

-Ja tue nichts


Also für das Wort 'Vokal' ergibt sich folgendes:

ist V ein Vokal?
-Nein
-result1:=V+ ist o ein Vokal?
_________-Ja
_________-result2:= ist k ein Vokal?
__________________-Nein
__________________-result3:=k+ ist a ein Vokal?
___________________________-Ja
___________________________-result4:= ist l ein Vokal?
____________________________________-Nein
____________________________________-result5:=l
_______________________________________________res ult1:=Vkl

ich glaube der Rest wird spätestens dann klar wenn du dir den Quellcode ansiehst...

[Aphton]

Zitat von Connor Temple:

In haben wir leider nicht benutzt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text                               :String;
    i                                  :Integer;
begin
Text := Texteingabe.Text ;
i := 1 ;
While i <= length(Text) Do
     Begin
          If Text[i] = 'a'
            Then Delete (Text, a) ;

     i := i + 1 ;
     end;
Textausgabe.Text := Text;
end;

end.

So siehts aus, mein Fehler liegt jetzt aber bei dem Delete, außerdem möchte ich das gerne für alle Vokale in Groß- und Kleinschreibung benutzen.
Aber so kommt ein Fehler, ich weiß echt nicht mehr weiter und verzweifel grad schon wieder an diesem komischen Programm, das einfach nicht versteht was ich von ihm will -.-

Hab den Thread noch nicht ganz durchgelesen, aber dein Fehler ist leicht behebbar:
einfach statt Delete(Text,a) ein Delete(Text,a,1) machen.
Das heißt soviel wie: Lösche von Text, ab der Stelle a, 1 Stelle.

Edit: Warum wird hier eigentlich ständig um den heißen Brei herumgeredet?
*duck_und_weglauf

MfG

[Fussel9]

Hi, wir haben ähnliche programme schon einmal geschrieben vielleicht kann dir das Programm weiter hälfen (->Anhang)


€DIT:

Wenn du alle großen und kleinen Vokale und Konsonanten überprüfen willst wirst du IN benutzen müssen, sonst musst du jede Prüfung einzeln machen oder gehst mit ner or Bedingung in eine If schleife, was auch viel zu schreiben ist ^^


Beispiel:

Delphi-Quellcode:

function DeineForm.tötedievokale(deinstring: String; p:Integer) : String
var i: Integer;
    temp: String;
begin
result:='';
i:=p;
if (deinstring[i]='a') or (deinstring[i]='e') or (deinstring[i]='i')  {.... und so weiter ...} then 
begin
  temp:=copy(deinstring,1,(i-1)); //alles ohne den Vokal
  delete(deinstring,1,(i)); //alles mit dem Vokal
    if not(i = length(deinstring)) then
      begin
        i:=i+1;
        temp:=temp+self.tötedievokale(deinstring,i);
      end
    else
      begin
        temp:=deinstring;
      end;
result:=temp;
end;