Re: Smarte Methode zum Dateipfad kürzen gesucht
Verfasst: 12.03.2020 09:40
Guten Morgen,
ich habe mich auch schon seid längerem damit, gedanklich, beschäftigt den Pfad kleiner aber auch lesbar sichtbar zu machen.
Dank Eurer Innovation habe ich mich jetzt hingesetzt und ein entsprechendes Tool erstellt, jedenfalls eines welches ich gebrauchen kann. 
ich habe mich auch schon seid längerem damit, gedanklich, beschäftigt den Pfad kleiner aber auch lesbar sichtbar zu machen.
Dank Eurer Innovation habe ich mich jetzt hingesetzt und ein entsprechendes Tool erstellt, jedenfalls eines welches ich gebrauchen kann.
Code: Alles auswählen
Procedure.s GetParentPath(vPath.s, vLen.i = 16)
Protected n.i, pLen.i, pLast.s
Protected pMax.i = CountString(vPath, #PS$) + 1
Protected Dim pValue.s(pMax)
For n = 1 To pMax
pValue(n) = StringField(vPath, n, #PS$)
Next n
pLen = Len(pValue(pMax))
If (vLen>pLen)
vPath = #Null$
For n = 1 To (pMax-1)
If ((Len(vPath)+pLen)>vLen)
vPath + "..." + #PS$
Else
vPath + pValue(n) + #PS$
EndIf
Next n
vPath + pValue(pMax)
EndIf
ProcedureReturn vPath
EndProcedure
Debug GetParentPath("D:\1\Obst\Äpfel\Reife\Greenstar.exe")
Debug GetParentPath("D:\1\Obst\Äpfel\Reife\Greenstar\")
Debug GetParentPath("D:\1\Obst\Äpfel\Reife\Greenstar")
End