Hallo liebe Delphi-Praxis Mitglieder

Ich habe ein kleines Problem, wo ich mal wieder eure Hilfe brauche. Ich will einen String in ein bestimmtes Format bekommen. Der String könnte z.B. so in die Funktion reinkommen.

Zitat:

BORKUM{61}, BLA2{60}, REL{62}, EN/NORD{72}, ESSEN{59}, TRINKEN{70}, HERNE{71}, HSK1{67}, MAMA123{65}, KW/DINSL{64}, OBERHAUSEN{66}, EN/SÜD{73}, KW/MOERS{63}, HSK2{68}, HSK3{69}

Folgende Funktion habe ich dafür vorgefunden. Was ich erreichen will, ist das der String, der am Ende rauskommt auch damit zurecht kommt, wenn in dem Namen vor der geschweiften Klammer auch evtl ein Komma oder ein Leerzeichen vorkommt. Also das z.b. der Input ESS,EN{59}, TRIN KEN{70} am Ende ESS,EN, TRIN KEN ergibt.

Ist das mit einfachen Mitteln möglich? Mir fehlt dafür leider ordentlich Basiswissen von Delphi.

Ach ja, wichtige Information, ich arbeite hier mit Delphi 7 Professional.

Schon mal vielen Dank im voraus und nun folgt der bisherige Code, der zwar ansich gut funktioniert aber mit Kommas und Leerzeichen im Namen nicht zurecht kommt.

Gruß Michael

markieren

Delphi-Quellcode:

function getSender(List: Boolean; Value: String): String;
(* Wandelt einen String mit SenderId in eine Senderliste oder
   einen kommagetrennen SenderSting ohne SenderId *)

zusammenfalten · markieren

Delphi-Quellcode:

function getSender(List: Boolean; Value: String): String;
var Sl : TStringlist;
    S : String;
    i : Integer;
begin
 Sl := TStringlist.Create;
 sl.Text := Value;
 Result := '';
 if sl.Count > 0 then
 begin
  S := Sl[0]; // Falls Text mehrzeilig
    sl.CommaText := S;
  for i := sl.Count -1 downto 0 do
   if pos('{', Sl[i]) > 0 then begin
    Sl[i] := CopyBis('{', SL[i]);
   end
   else sl.Delete(i);
  if List then Result := Sl.Text
  else begin
   Result := sl[0];
   for i := 1 to sl.Count -1 do Result := Result + ', ' + Sl[i];
  end;
 end;
end;

Was ist, wenn du nach "," einfach nach "}," suchst? Würde das dein Problem lösen?

Also mit einer TStringList klappt das schon mal nicht, die trennt nach jedem Komma.
Da muss man den String von Hand zerlegen.

Beim ersten Wort mit Pos nach einem '{' suchen, mit Copy bis zu dieser Position dieses Wort auslesen.
Dann mit Pos nach einem ',' suchen, und mit Delete den String bis zu dieser Position links abschneiden. Mit Trim evtl. führende Leerzeichen löschen, und dann weiter wie beim ersten Wort.

Wie wär es denn mit Regexen?

markieren

Code:

([^{]+)(?={\d+},)

Vielleicht so...

zusammenfalten · markieren

Delphi-Quellcode:

function MyFunc(input:string):string;
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='{[0-9]*}';
    Result:=RegExpr.Replace(input, '', true);
  finally
    RegExpr.Free;
  end;
end;

RegExpr

Gruss
Thorsten

Zitat von gunfran:

Mir fehlt dafür leider ordentlich Basiswissen von Delphi.

Das kann man ändern:
http://r2c2.weingut-rehn.de/content3...mit_Delphi.htm

mfg

Christian

Regular Expressions sind natürlich viel eleganter!
Gleich mal gucken gehen, ich bin begeistert!
Ich bin leider teilweise geistig noch auf dem Stand von Delphi3, berufsbedingt...

Das mit der Regular Expression-Geschichte wirkt interessant. Ich probier das mal aus. Bis hierher erstmal vielen Dank für die Hilfe. Ich schreib mal, wie weit ich damit gekommen bin.

Gruß

Michael

Zitat von bluesbear:

Regular Expressions sind natürlich viel eleganter!

Und langsamer!
Z.B. bei Webanwendungen, die mit einer hohen Besucheranzahl fertig werden müssen, sollte man "normale" Stringverarbeitungsfunktionen immer regulären Ausdrücken vorziehen!

Reguläre Ausdrücke werden nur bei komplexen Aufgaben benötigt, bei denen sich der Programmieraufwand nicht lohnt bzw. zu groß wird.

LG,
Xong

PS: Natürlich ist das Problem bei reinen Single-User-Anwendungen nicht gegeben.

in der Codelib gibt es einige Funktionen welche dir den String auch an "}," trennen können.