XProfan

English

E.T.

Hi,

have even in a of my Progs check must, the
@GetFileTitle(@Addr(BMP_Pfad$), @Addr(BMP_D$), @Len(BMP_D$))
under different XP-Installationen different values back supply
(others WINs Have I not yet tested), and of course time with expansion
and sometimes without. so heist z.B. a Bilddatei time profane and times profane.bmp.

can it on various. API-versions lying ??
Search time whom View source out, lasts only NEN momentum...

but Maybe has already someone ne idea.

Mario

so, here isser:
Compile Mark Separation

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

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...

04/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[offtopic]
I mach the so
Compile Mark Separation

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

means so
Compile Mark Separation

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]

04/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

Do I still same time try...

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...

04/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

@IF: thanks. Klappt Yes fine, too without API.

If one something like even only any halbes year time need, schaut one into Help and takes the, what offered becomes (sometimes grasiert even The Denkfaulheit)

can The unterschiedlichen Rückgaben with the API ( -Version) lying ??

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...

04/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

one can it too so make:
Compile Mark Separation

Proc DateiName

    Parameters Datei$
    Return FindFirst$(Datei$)

EndProc

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

/a>

or so for ältere versions, if one The SubStr$-Variante bevorzugt:
Compile Mark Separation

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),\)
before ought to one The Verzeichnistiefe detect
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 ...

04/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörgs Variante shining me effizienter!

04/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
Sprenger

Hi,
Mario Patzlaff

can The unterschiedlichen Rückgaben with the API ( -Version) lying ??

No, the depends from the option extensions with known File Types Hide ex (see in the Explorer under Extras > Ordneroptionen > view).
Greeting, Sebastian