Punkte in Dateinamen ersetzen.

[Luckie]

Get ist ein schlechtes Verb für die Funktion. Mit Get verbindet man in der Regel einer Getter-Methode einer Klasse, die den Wert eines Attributs zurückliefert. Make, Do oder gar nichts wäre besser. Oder noch besser ReplaceDotsWithSpaceInFilename(Filename: string): string; Man könnte es noch verallgemeinern: ReplaceDotsInFilename(Filename: string, ReplaceWith: string = ' ');

[Christian Seehase]

Moin Zusammen,

statt sich mit solchen Funktionen wie StringReplace zu belasten (bezüglich der Performance) schlage ich folgenden Weg vor:

Delphi-Quellcode:

function  ReplaceDotsInFilename(const AsFilename : string;const AReplaceChar : Char = ' ') : string;

var
  i : Integer;

begin
  SetLength(Result,Length(AsFilename));
  for i := 1 to LastDelimiter('.',AsFilename)-1 do begin
    if AsFilename[i] <> '.' then begin
      Result[i] := AsFilename[i];
    end else begin
      Result[i] := AReplaceChar;
    end;
  end;
  for i := LastDelimiter('.',AsFilename) to Length(AsFilename) do begin
    Result[i] := AsFilename[i];
  end;
end;

[Sanguis]

Ich danke Euch vielmals! Manchmal sieht man den Wald vor lauter Bäumen nicht und denkt viel zu kompliziert. Also, danke .

[Sanguis]

Au man, meine Zerstreutheit nimmt kein Ende.
Ich möchte noch alles was in Klammern steht, inkl. der Klammern, aus dem String entfernen. Ich denke dazu muss ich mit pos() die Klammern finden und dann einen Substring erstellen. Mein Problem ist, das die Klammern mehrfach vorkommen können und nicht immer an der selben Stelle. Also mal am Anfang, mal in der Mitte, mal am Ende. Mit immer unterschiedlichem Inhalt. Wonach soll ich also suchen und wie entferne ich nur den Teil?
Au mann... ich bekomm Kopfschmerzen...

Gruss,
Andreas

[Bummi]

Wenn Du den Code von Christian Seehase dahingehend modifizierst daß Du nur gültige oder ersetzte Zeichen an ein inital leeres Result anhängst kannst Du sobald Du ( findest z.B. eine Flag IsInBreak setzen welches beim Erreichen von ) zurückgesetzt wird. Solange IsInBreak gesetzt ist wird nichts an Result angehängt.

[himitsu]

Man könnte das ganze Problem bestimmt auch via RegEx lösen.


Aber zu den [...]:
via Pos nach dem '[' suchen,
dann über Pos/PosEx das nachfolgende ']' finden
und nun via Delete diesen Bereich löschen.

[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

[Sanguis]

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

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 : Anfang := Pos (st,'('); Ende der Klammer : Ende := Pos (st,')'); Alles zwischen den Klammern löschen : delete (st,Anfang, Ende); Wie gesagt : Besser F1 drücken, da steht sowieso alles ausführlich drin.