XProfan

Français

E.T.

Salut,

habe plan dans einem meiner Progs feststellen doit, cela
@GetFileTitle(@Addr(BMP_Pfad$), @Addr(BMP_D$), @Len(BMP_D$))
sous verschiedenen XP-Installationen verschiedene Werte zurück liefert
(autre WINs hab je encore pas getestet), et zwar la fois avec Erweiterung
et la fois sans. So heist z.B. une Bilddatei la fois profan et la fois profan.bmp.

peux es à versch. API-Versionen liegen ??
cherche la fois den Voir le texte source raus, dauert seulement nen Moment...

mais vieleicht hat déjà quelqu'un ne concept.

Mario

So, ici isser:
Kompilieren Marque Séparation

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

05.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[offtopic]
je mach cela so
Kompilieren Marque Séparation

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

alors so
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

Muss je doch juste la fois essayer...

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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

@IF: merci. Klappt oui bestens, aussi sans API.

si on quelque chose comme plan seulement alle halbes l'an la fois braucht, schaut on dans qui Aider et nimmt cela, quoi angeboten wird (quelquefois grasiert plan qui Denkfaulheit)

pouvons qui unterschiedlichen Rückgaben chez qui 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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

il peut es aussi so faire:
Kompilieren Marque Séparation

Proc DateiName

    Parameters Datei$
    Return FindFirst$(Datei$)

EndProc

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

/a>

ou bien so pour ältere Versionen, si on qui Substr$-variante bevorzugt:
Kompilieren Marque Séparation

Def CharCount(2) Int(Sous(Len(@$(1)),Len(translate$(@$(1),@$(2),))))
Def VerzeichnisTiefe(1) Int(Sous(Len(@$(1)),Len(Translate$(@$(1),\,))))
Def PfadTeil(2) $ Substr(@$(1),@%(2),\)
auparavant sollte on qui Verzeichnistiefe ermitteln
Def DateiName(1) $ Substr(@$(1),Ajouter(VerzeichnisTiefe(@$(1)),1),\)
Def DateiPfad(1) Translate$(@$(1),Ajouter$(\,DateiName(@$(1))),)

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

05.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörgs variante scheint mir effizienter!

05.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sebastian
Sprenger

Hi,
Mario Patzlaff

pouvons qui unterschiedlichen Rückgaben chez qui API ( -Version) liegen ??

non, cela hängt de qui Option Erweiterungen chez bekannten Dateitypen ausblenden ab (siehe im Explorer sous Extras > Ordneroptionen > Ansicht).
Salut, Sebastian