Punkte in Dateinamen ersetzen.

[Bummi]

bitte gegf. anpassen

Delphi-Quellcode:

Function ReplaceAllWHatIDontWannaHave(const s:String):String;
var
  i:Integer;
  IsInBreak:Boolean;
  Procedure Resultadd(c:Char);
    begin
      if not IsInBreak then Result := Result + c;
    end;
begin
  IsInBreak := false;
  for I := 1 to LastDelimiter('.',s)-1 do
    begin
      if s[i] ='.' then ResultAdd(' ')
      else if s[i] ='(' then IsInBreak := true
      else if s[i] =')' then IsInBreak := False
      else ResultAdd(s[i]);
    end;
  Result := Result + ExtractFileExt(s);
end;

[Sanguis]

Ok, PosEx war mir neu (ratet mal was ich fand, als ich grad bei Google danach suchte :shock:).

Also ermittel ich mit Pos erst ab wann das erste Mal '(' auftaucht. Mit PosEx dann das erste Auftauchen von ')' und für delete brauch ich dann noch den Pos Wert - den PosEx Wert, weil delete (laut google) nur Zeichenlängen übernimmt, keine Delemiter. Hab ich so richtig gedacht?

Gruss,
Andreas

[Hansa]

Ne, nicht ganz richtig verstanden. Das erste Pos ermittelt eben die Position des ersten Zeichens. Das wäre dann in der Richtung :

Delphi-Quellcode:

Anfang := Pos (st,'(');

Ende der Klammer :

Delphi-Quellcode:

Ende := Pos (st,')');

Alles zwischen den Klammern löschen :

Delphi-Quellcode:

delete (st,Anfang, Ende);

Wie gesagt : Besser F1 drücken, da steht sowieso alles ausführlich drin.

[Christian Seehase]

Moin Zusammen,

man kann das natürlich auch alles mit Pos, PosEx und Copy machen, läuft dann aber Gefahr strings oft in der Länge zu ändern, was, je nach Anzahl, auch auf die Performace drücken kann.
Ich würd's so lösen:

Delphi-Quellcode:

function RemoveBetween(const AsValue : string;const AOpenChar : char = '(';const ACloseChar : Char = ')') : string;

var
  iIndexIn  : Integer;
  iIndexOut : Integer;
  iState    : Integer;

begin
  SetLength(Result,Length(AsValue));
  iIndexIn  := 1;
  iIndexOut := 0;
  iState    := 1;
  while iIndexIn <= Length(AsValue) do begin
    case iState of
      1 : begin // Alles bis zum AOpenChar übernehmen
        if AsValue[iIndexIn] <> AOpenChar then begin
          Inc(iIndexOut);
          Result[iIndexOut] := AsValue[iIndexIn];
        end else begin
          iState := 2;
        end;
      end;
      2 : begin // Alles bis zum ACloseChar ignorieren
        if AsValue[iIndexIn] = ACloseChar then begin
          iState := 1;
        end;
      end;
    end;
    Inc(iIndexIn);
  end;
  SetLength(Result,iIndexOut);
end;

[Sanguis]

Zitat:

Zitat von Bummi (Beitrag 1057358)

bitte gegf. anpassen

Delphi-Quellcode:

Function ReplaceAllWHatIDontWannaHave(const s:String):String;
var
  i:Integer;
  IsInBreak:Boolean;
  Procedure Resultadd(c:Char);
    begin
      if not IsInBreak then Result := Result + c;
    end;
begin
  IsInBreak := false;
  for I := 1 to LastDelimiter('.',s)-1 do
    begin
      if s[i] ='.' then ResultAdd(' ')
      else if s[i] ='(' then IsInBreak := true
      else if s[i] =')' then IsInBreak := False
      else ResultAdd(s[i]);
    end;
  Result := Result + ExtractFileExt(s);
end;

Danke, das hilft mir sehr. Funktioniert prima! Danke :).

Zitat:

Zitat von Hansa (Beitrag 1057357)

Diese Aufforderung käme mit 100% Sicherheit sowieso in nächster Zeit. :mrgreen:

Ich weiss... aber bei Delphi 3 hab ich mich mit Stringoperationen zum letzten Mal intensiv beschäftigt. Danach war ich größtenteils durch DB Programmierung ausgelastet. Da wurschtelt man zwar auch mit Strings rum, aber eher in der DB Syntax. Und seit Delphi3 hat sich einiges verändert. Sorry für die vermeintlich einfachen Fragen. Aber wenn man so davor sitzt, kommt auf naheliegendes manchmal nicht.
Danke für die Hilfe jedenfalls :).

Gruss,
Andreas

[Hansa]

Ja ja, ist schon klar. Man fragt einfach mal, bevor man selber mal guckt. :mrgreen:

Bei dem bisher angesprochenen gilt das hier aber nicht :

Zitat:

Zitat von Sanguis (Beitrag 1057364)

Und seit Delphi3 hat sich einiges verändert.

pos und delete gibts schon ewig. Zumindest sehr lange vor D3.

[Sanguis]

Zitat:

Zitat von Hansa (Beitrag 1057369)

Ja ja, ist schon klar. Man fragt einfach mal, bevor man selber mal guckt. :mrgreen:

Nicht mein Stil. Ich hab Stundenlang gesucht, aber nur was gefunden, um eine vorgegebene Zeichenkette zu löschen. Aber nicht als von-bis.

Zitat:

pos und delete gibts schon ewig. Zumindest sehr lange vor D3.

Japp, deshalb wusste ich ja auch das es in der Richtung sein muss. Nur die Logik dafür, wie es in meinem Fall genau geht, war mir nicht klar.
Übrigens, PosEx gab es in Delphi3 definitiv noch nicht :).