XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Pfad: Details über einen Dateipfad
Ein PROFAN-Beispiel Quelltext von Achim Engelhardt
Profan-Vers.: 6.5 oder höher
Zeigt Details über einen Dateipfad

Proc SHOWDETAILS

    Parameters FILENAME$
    Decimals 0
    DECLARE XXX%,XYX%,AAA%,BBBBBB$,ACHFONT%,EBENEN%
    Let ACHFONT%=@CREATEFONT(Achfont,16,12,0,0,0)
    UseFont Achfont,12,8,0,0,0
    DrawText 0,10,FILENAME$
    UseFont Achfont,12,7,0,0,0
    Let XXX%=1

    WhileNot @Gt(XXX%,@LEN(FILENAME$))

        Let BBBBBB$=@Mid$(FILENAME$,XXX%,1)

        If @OR(@EQU$(BBBBBB$,\),@EQU$(BBBBBB$,.))

            DrawText @SUB(@MUL(XXX%,6),6),35,BBBBBB$

        Else

            DrawText @SUB(@MUL(XXX%,6),6),35,-

        EndIf

        Inc XXX%

    Wend

    Let XXX%=25

    WhileNot @Lt(XXX%,1)

        Let BBBBBB$=@SubStr$(FILENAME$,XXX%,\)

        IfNot @EQU$(BBBBBB$,)

            Inc EBENEN%
            CASENOT XYX% : Let XYX%=@Len(BBBBBB$)Länge der Datei inkl. Erweiterung
            Let AAA%=@INT(@Instr(.,BBBBBB$))

            If AAA%=wenn Punkt in Teilstring vorkommt

                DrawText @SUB(@MUL(@INT(@Instr(BBBBBB$,FILENAME$)),6),6),35,@Str$(@LEN(@SubStr$(BBBBBB$,1,.)))
                DrawText @SUB(@MUL(@ADD(@INT(@Instr(BBBBBB$,FILENAME$)),@ADD(@LEN(@SubStr$(BBBBBB$,1,.)),1)),6),6),35,@Str$(@LEN(@SubStr$(BBBBBB$,2,.)))

            Else

                DrawText @SUB(@MUL(@INT(@Instr(BBBBBB$,FILENAME$)),6),6),35,@Str$(@LEN(BBBBBB$))

            EndIf

        EndIf

        Dec XXX%

    Wend

    DELETEOBJECT ACHFONT%
    DrawText 0,50,@ADD$(@ADD$(Gesamte Länge des Pfades mit Datei: ,@STR$(@LEN(FILENAME$))), Zeichen.)
    DrawText 0,65,@ADD$(@ADD$(Länge des Dateinamens inkl. Erweiterung: ,@STR$(XYX%)), Zeichen.)
    DrawText 0,80,@ADD$(@ADD$(Länge des Pfades inkl. abschl. Slash: ,@STR$(@SUB(@LEN(FILENAME$),XYX%))), Zeichen.)
    DrawText 0,95,@ADD$(@ADD$(Pfadtiefe inkl. Datei: ,@STR$(EBENEN%)), Ebenen.)
    DrawText 0,110,@ADD$(DOS-Name: ,@ShortName$(FILENAME$))

EndProc

Declare A$

If @EQU(%ParCount,2)

    WindowTitle Achims Pfad-Details
    Window 0,0-%MaxX,250
    Cls @RGB(255,255,0)
    Let A$=@LOADFILE$(ÖFFNE:,*.*)
    SHOWDETAILS A$
    WaitInput

EndIf

end