XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Programmverzeichnis bestimmen (auch Dateinamen und Extension filtern)
Lauffähig ab Profan-Version 5.0
Declare LW$,PF$,DAT$,EXT$

PROC MAKEABSPFAD

    declare Pfad$
    Let Pfad$=@$(1)
    Laufwerk
    Let LW$=@Mid$(Pfad$,1,2)
    Pfad
    Let PF$=@Del$(Pfad$,1,2)

    WhileNot @Equ$(@Mid$(PF$,@Len(PF$),1),)

        Let PF$=@Del$(PF$,@Len(PF$),1)

    Wend

    Dateiname
    Let DAT$=Pfad$

    While @Gt(@Instr(,DAT$),0)

        Let DAT$=@Del$(DAT$,1,1)

    Wend

    Case @Gt(@Instr(.,DAT$),0) : Let DAT$=@SubStr$(DAT$,1,.)
    Erweiterung
    Let EXT$=Pfad$

    While @Gt(@Instr(,EXT$),0)

        Let EXT$=@Del$(EXT$,1,1)

    Wend

    Case @Gt(@Instr(.,EXT$),0):Let EXT$=@SubStr$(EXT$,2,.)

ENDPROC

##############################################
Beispiel:
declare prgverz$
MakeAbsPfad @par$(0)
Let prgverz$ = add$(LW$,PF$)
MessageBox(prgverz$,I N F O,4160)
end