XProfan

Deutsch

E.T.

Hallo,

habe eben in einem meiner Progs feststellen müssen, das
@GetFileTitle(@Addr(BMP_Pfad$), @Addr(BMP_D$), @Len(BMP_D$))
unter verschiedenen XP-Installationen verschiedene Werte zurück liefert
(andere WINs hab ich noch nicht getestet), und zwar mal mit Erweiterung
und mal ohne. So heist z.B. eine Bilddatei mal profan und mal profan.bmp.

Kann es an versch. API-Versionen liegen ??
Suche mal den Quelltext raus, dauert nur nen Moment...

Aber vieleicht hat schon jemand ne Idee.

Mario

So, hier isser:
Kompilieren Markieren Separieren

CLS
Def @GetFileTitle(3) !COMDLG32.DLL, GetFileTitleA
Declare BMP_Pfad$, BMP_D$
BMP_Pfad$ = @LoadFile$(BITMAP EINBINDEN,*.BMP)
Print Komplett : +BMP_Pfad$
BMP_D$ = @Space$(255)
@GetFileTitle(@Addr(BMP_Pfad$), @Addr(BMP_D$), @Len(BMP_D$))
BMP_D$ = @Trim$(BMP_D$)+.bmp
BMP_Pfad$ = @Translate$(BMP_Pfad$,BMP_D$,)
Print Pfad : +BMP_Pfad$
Print Datei : +BMP_D$
waitinput
end

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

05.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

[offtopic]
Ich mach das so
Kompilieren Markieren Separieren

proc LASTSUBSTR

    PARAMETERS S$,D$
    RETURN (SUBSTR$(S$,LEN(S$,D$),D$))

endproc

proc GETFNAME

    PARAMETERS S$
    RETURN LASTSUBSTR(S$,\)

endproc

proc GETFTITLE

    PARAMETERS S$
    RETURN SUBSTR$(GETFNAME(S$),1,.)

endproc

also so
Kompilieren Markieren Separieren

lastsubstr(string s,d){return (substr$(s,len(s,d),d))}
getfname(string s){return lastsubstr(s,\)}
getftitle(string s){return substr$(getfname(s),1,.)}

[/offtopic]

05.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Muss ich doch gleich mal probieren...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

05.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

@IF: Danke. Klappt ja bestens, auch ohne API.

Wenn man sowas eben nur alle halbes Jahr mal braucht, schaut man in die Hilfe und nimmt das, was angeboten wird (manchmal grasiert eben die Denkfaulheit)

Können die unterschiedlichen Rückgaben bei der API ( -Version) liegen ??

Mario

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

05.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Man kann es auch so machen:
Kompilieren Markieren Separieren

Proc DateiName

    Parameters Datei$
    Return FindFirst$(Datei$)

EndProc

Print DateiName($SysPath + \Shell32.dll)
WaitInput

Oder so für ältere Versionen, wenn man die SubStr$-Variante bevorzugt:
Kompilieren Markieren Separieren

Def CharCount(2) Int(Sub(Len(@$(1)),Len(translate$(@$(1),@$(2),))))
Def VerzeichnisTiefe(1) Int(Sub(Len(@$(1)),Len(Translate$(@$(1),\,))))
Def PfadTeil(2) SubStr$(@$(1),@%(2),\)
Vorher sollte man die Verzeichnistiefe ermitteln
Def DateiName(1) SubStr$(@$(1),Add(VerzeichnisTiefe(@$(1)),1),\)
Def DateiPfad(1) Translate$(@$(1),Add$(\,DateiName(@$(1))),)

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

05.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörgs Variante scheint mir effizienter!

05.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Sebastian
Sprenger

Hi,
Mario Patzlaff

Können die unterschiedlichen Rückgaben bei der API ( -Version) liegen ??

nein, das hängt von der Option Erweiterungen bei bekannten Dateitypen ausblenden ab (siehe im Explorer unter Extras > Ordneroptionen > Ansicht).
Gruß, Sebastian