Prüfen ob string auf '.exe' endet

[zobien123]

Hi :-D

folgendes Problem:pale:: Ich möchte einen String aus einem Edit-Feld prüfen, ob er auf '.exe' endet, wenn nicht soll '.exe' angehängt werden. Gibt es irgendwie eine Funktion, mit der man von rechts nach links die Zeichen überprüfen kann, ob diese '.exe' sind?

Vielen Dank für eure Antwort

[Neutral General]

Delphi-Quellcode:

if AnsiLowerCase(ExtractFileExt(str)) = '.exe' then

[Poelser]

Einfach aus SysUtils ChangeFileExt die Extension ändern. Wenn die bereits auf .exe lautet, bleibt sie so wie sie ist.

HTH, Poelser

[Aviator]

Zitat:

Zitat von Poelser (Beitrag 1372039)

Einfach aus SysUtils ChangeFileExt die Extension ändern. Wenn die bereits auf .exe lautet, bleibt sie so wie sie ist.

HTH, Poelser

Das ist aber sehr radikal. Welchen Vorteil erhoffst du dir davon? :shock:

[zobien123]

Zitat:

if AnsiLowerCase(ExtractFileExt(str)) = '.exe' then

Klingt gut, jedoch bekomme ich eine Fehlermeldung:

Zitat:

E2015 Operator ist auf diesen Operandentyp nicht anwendbar

<Edit> Ich kann wohl nicht AnsiLowerCase(ExtractFileExt(s)) = '.exe' vergleichen</Edit>

[zobien123]

Okay hab es. War ein Dummheitsfehler :oops:

Code:

 
  if  AnsiLowerCase(ExtractFileExt(s)) <> '.exe' then
  begin
    s := s + '.exe';
  end;

Danke für die Hilfe :thumb:

[hoika]

Hallo,
mit Pos oder Copy wäre das auch gegangen

if Pos('.exe',S)=Length(S)-4 (oder -3 ;) )
if Copy(S,Length(S)-4,4)='.exe'

Das Upper darf der TE selber einfügen ...

[Delphi-Laie]

Ich würde vorher noch mit lowercase "normieren", denn so, wie es hier angeboten wird, wird z.B. ".EXE" nicht erfaßt, obwohl das eine zulässige Executable-Endung ist.

[Daniel]

Ich nutze für sowas gern "EndsText()" aus der Unit System.StrUtils.
Wobei sich diese Funktion nur um Strings kümmert - ob das nun ein Dateiname ist, interessiert sie nicht.

[DeddyH]

Delphi-Quellcode:

uses StrUtils;

...

if AnsiEndsText('.exe', s) then
  ...

[edit] @Cheffe :lol: [/edit]

[Ydobon]

Wenn in XE 2 schon dabei,

Delphi-Quellcode:

function EndsText(const ASubText, AText: string): Boolean;

aus den StrUtils. Ignoriert von sich aus die Schreibweise.

Edit: Die Aktualisierung der Beiträge im Forum könnte etwas schneller sein.

[Poelser]

Zitat:

Zitat von Aviator (Beitrag 1372043)

Zitat:

Zitat von Poelser (Beitrag 1372039)

Einfach aus SysUtils ChangeFileExt die Extension ändern. Wenn die bereits auf .exe lautet, bleibt sie so wie sie ist.

HTH, Poelser

Das ist aber sehr radikal. Welchen Vorteil erhoffst du dir davon? :shock:

Leicht lesbarer Einzeiler. :)

[Aviator]

Zitat:

Zitat von Poelser (Beitrag 1372059)

Leicht lesbarer Einzeiler. :)

Allerdings mit einer nicht so ganz zufriedenstellenden Lösung. :mrgreen:

[Fritzew]

Dafür bieten sich Unittests förmlich an:

Delphi-Quellcode:

unit Unit30;

interface
uses
  DUnitX.TestFramework;

type

  [TestFixture]
  TExtensionTests = class(TObject) 
  public
    [Test]
    [TestCase('TestA1','test,test.exe')]
    [TestCase('TestA2','test.,test.exe')]
    [TestCase('TestA3','test.e,test.exe')]
    [TestCase('TestA4','test.e.,test.e.exe')]

    procedure Test1(const Value, res : string);


    [Test]
    [TestCase('TestB1','test,test.exe')]
    [TestCase('TestB2','test.,test.exe')]
    [TestCase('TestB3','test.e,test.exe')]
    [TestCase('TestB4','test.e.,test.e.exe')]
    procedure Test2(const Value, res : string);


  end;

implementation
 uses Sysutils;

const
  lext = '.exe';


function ChangeExtension(const Value : string; const extension : string) : string;
begin
  result := ChangeFileExt(Value, extension);
end;


function ChangeExtensionEndsText(const Value : string; const extension : string) : string;
begin
 result := Value;
 if AnsiLowerCase(ExtractFileExt(result)) <> '.exe' then
  begin
    result := result + '.exe';
  end;
end;


procedure TExtensionTests.Test1(const Value, res : string);
Var
    lTestResult : String;

begin
 lTestResult :=   ChangeExtension(value, lext);
 assert.AreEqual(res, lTestResult);
end;


procedure TExtensionTests.Test2(const Value, res : string);
Var
    lTestResult : String;

begin
 lTestResult :=   ChangeExtensionEndsText(value, lext);
 assert.AreEqual(res, lTestResult);
end;

initialization
  TDUnitX.RegisterTestFixture(TExtensionTests);
end.

Wenn man erst mal angefangen hat Tests zu schreiben wird man förmlich süchtig danach :-D

[SneakyBagels]

Zitat:

Dafür bieten sich Unittests förmlich an:

Man kann auch mit Kanonen auf Spatzen schießen ;)

[Fritzew]

Zitat:

Zitat von SneakyBagels (Beitrag 1372113)

Zitat:

Dafür bieten sich Unittests förmlich an:

Man kann auch mit Kanonen auf Spatzen schießen ;)

Stimmt! :-D
Aber das Ergebnis spricht für sich....

Das schöne ist, wenn man einmal angefangen hat hilft es echt....
Und in diesem Zusammenhang Danke Stevie für Testinsight