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;