XProfan

Español

E.T.

¡Hola,

habe eben en un meiner Progs determinar necesario, el
@GetFileTitle(@Addr(BMP_Pfad$), @Addr(BMP_D$), @Len(BMP_D$))
bajo verschiedenen XP-Installationen verschiedene Werte zurück liefert
(otro WINs tener Todavía no getestet), y zwar veces con Erweiterung
y veces sin. So heist z.B. una Bilddatei veces profano y veces profano.bmp.

Kann lo a versch. API-Versionen mentira ??
Búsqueda veces el Ver código fuente fuera, dauert sólo nen Moment...

Aber vieleicht ha ya alguien ne Concepto.

Mario

So, hier isser:
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

[offtopic]
Yo mach el así
Kompilieren Marca Separación

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 así
Kompilieren Marca Separación

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

[/offtopic]

05.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Muss Todavía igual veces 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 Cita Zeilenweise Cita

E.T.

@IF: Gracias. Klappt sí bestens, auch sin API.

Wenn uno algo como eben sólo todos halbes Jahr veces braucht, schaut uno en el Ayuda y nimmt el, qué angeboten se (manchmal grasiert eben el Denkfaulheit)

Können el unterschiedlichen Rückgaben en API ( -Versión) mentira ??

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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Se puede lo auch así hacer:
Kompilieren Marca Separación

Proc DateiName

    Parameters Datei$
    Return FindFirst$(Datei$)

EndProc

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

/a>

Oder así para ältere Versionen, si uno el Substr$-Variante bevorzugt:
Kompilieren Marca Separación

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 debería uno el 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 Cita Zeilenweise Cita

Jörgs Variante scheint me effizienter!

05.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
Sprenger

Hi,
Mario Patzlaff

Können el unterschiedlichen Rückgaben en API ( -Versión) mentira ??

nein, el hängt de el Opción Erweiterungen en bekannten Dateitypen ausblenden de (siehe en el Explorer bajo Extras > Ordneroptionen > Ansicht).
Saludo, Sebastian