Recent Changes - Search:

Hauptmenue (edit)

FilterScripte

Pascal Filter Scripte

Die Einfachste Variante

Der Davor Setzer

Program DavorSetzer; // optional

Function Filter(InString : String) : String;
Begin
  Result := 'Davor_'+InString;
end;

Begin
// Hauptprogramm bleibt leer
// oder kann ganz weglassen werden
End.

Suchen und Ersetzen

Const
    Search = '.mp3';
    Replace = '.MP3';

Function Filter(InStr : String) : String;
Var
   StartPos, RestLen: Integer;
   StartStr, EndStr : String;
Begin
  Result := '';
  Startpos := pos(Search,InStr);
  if Startpos > 0 then
  Begin
    RestLen  := Length(InStr)-Startpos-Length(search)+1;
    StartStr := copy(InStr,1,StartPos-1);
    EndStr   := copy(InStr, StartPos+Length(Search),RestLen);
    Result   := StartStr + Replace + EndStr;
  End;
End;

Durch Nummerieren

Const
     StartNummer = 1 ;
     Stellen = 5;
     Vorspann ='DSC';
     Endung = '.jpg';

Function Expand(nr,stellen :integer): String;
begin
    result := inttostr(nr);
    while stellen > length(result) do
      result := '0'+result;
end;

Function Filter(InStr : String) : String;
Begin
   Result := Vorspann+expand(FileNummer+startnummer,stellen)+endung;
End;
 
Edit - History - Print - Recent Changes - Search
Page last modified on December 05, 2005, at 10:45 PM