Doppelte Buchstaben filtern

[ScarFace01]

Ich habe Probleme mit einem alten Programm von mir und bin nun dabei mir eine Erweiterung dafür zu basteln.

Das alte Tool ist sehr umfangreich und ich habe den Src dazu leider nicht mehr, kann also den Fehler dadrin nicht mehr beheben!

Egal!

Es geht auf jeden Fall dadrum, dass ich einen Text erhalte der decodiert bzw. generiert wird aber nen Fehler hat und mit so ziemlich alle Buchstaben/Ziffern doppelt ausgiebt. Dafür nun die Erweiterung die den Text filtern soll.

Hier mal ein Beispiel Text den ich erhalte:

Zitat:

HHaalllloo,, iicchh bbiinn eeiinn BBeeiissppiieell TTeexxtt!!

Gibt es eine relativ einfach Möglichkeit diesen text nun zu zu filtern, dass er wieder ein normaler Text wird?

Ich könnte ja einfach in einer Schleife anhand von pos() und stringreplace() nach den doppelten Buchstaben suchen und sie ersetzten aber was mache ich mit den doppelten, die doppelt bleiben sollen? wie in HHaalllloo(Hallo)? Gibt es eine Befehl in der Art wie strip() oder so der dafür funktionieren würde? Ich denke mal nicht. Aber ich hoffe, dass mich hier jemand auf ne Idee bringen kann und/oder sogar nen Beispiel oder Schnipsel Code für mich hat!

Danke im Vorraus!

[XHelp]

Vllt sowas wie:

Delphi-Quellcode:

function parseDoubleLetters(s:string):string;
var
  i:integer;
begin
i:=1;
result:='';
while (i<=length(s)) do begin
  result:=result+s[i];
  if (s[i]=s[i+1]) then begin
    inc(i);
  end;
  inc(i);
end;
end;

Ansonsten lässt sich bestimmt auch irgendein schlauer RegEx bauen.

[supermuckl]

kommt dir das über einen tastaturhook so rüber?

[XHelp]

Du kannst den RegEx (.)\1 benutzen und durch die 1. Gruppe ersetzen.

[bernau]

Die doppelten Buchstaben sind ja immer vorhanden.

Delphi-Quellcode:

for a:=1 to (length(quellstring) div 2) do
  result:=result+quellstring[a*2];

Einfach nur so runtergetippt.

[angos]

Zitat von ScarFace01:

[...] und mit so ziemlich alle Buchstaben/Ziffern doppelt ausgiebt.[...]

Gibt er nun immer jeden Buchstaben doppelt aus, oder nur in bestimmten Fällen. Wenn jeder Buchstabe doppelt ist, nimm die Lösung von bernau.

Anonsten hast du das Problem, dass du exakt wissen musst, wann die Buchstaben doppelt sind.

Die Funktion von XHelp filtert zwar alle doppelten Buchstaben raus, aber auch eben ein "p" aus doppelt oder ein "t" aus Mittag, was in dem Fall ja nicht gewünscht wäre.

Gruß
angos

[XHelp]

Zitat von angos:

Die Funktion von XHelp filtert zwar alle doppelten Buchstaben raus, aber auch eben ein "p" aus doppelt oder ein "t" aus Mittag, was in dem Fall ja nicht gewünscht wäre.

Die Funktion von bernau macht aus doppelt>"dpet". Bedenke, dass du die Funktionen schon mit dem passendem Wort testen musst, wo auch die Buchstaben doppelt vorkommen. Meine Funktion macht aus ddooppppeelltt>doppelt. Du hast recht, wenn es "mal doppelt, mal nicht" ist, dann wird man nichts sinnvolles machen können.

[ScarFace01]

Nein also es ist wirklich alles doppelt und auch immer! Habe mich da versehentlich falsch ausgedrückt! Es ist wirklich jedes Zeichen (sogar Space/Freizeichen) doppelt.

Ich werde das mal jetzt erst einmal mit der parseDoubleLetters() Funktion versuchen.

Was du mit "...RegEx (.)\1 benutzen und durch die 1. Gruppe ersetzen..." gemeint hast, verstehe ich leider nicht! Sry!

Aber vielen Dank für eure Ideen.