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]

Zitat von 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;

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

Zitat von Hansa:

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

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.

Bei dem bisher angesprochenen gilt das hier aber nicht :

Zitat von Sanguis:

Und seit Delphi3 hat sich einiges verändert.

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

[Sanguis]

Zitat von Hansa:

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

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 .