| VB-Homepage Tipp 313 |
| Anpassen der Anzeige von Pfadangaben an vorgegebene Länge |
| Im Zeitalter der langen Dateinamen kann es sehr schnell
passieren, daß eine Pfadangabe die von Ihnen vorbestimmte Länge für eine Anzeige
überschreitet. Nun können Sie natürlich hacken, aber entweder man erkennt dann vorn nichts mehr (Laufwerk:\..) oder die gewählte Datei hinten verschwindet. Deshalb gibt es hier eine saubere Lösung, die natürlich auch hacken muß, aber in der Mitte, so das sowohl Laufwerk und Oberverzeichnis als auch die gewählte Datei am Ende noch ersichtlich ist und zwischendrin erscheint ein \...\ Dabei werden keine Verzeichnisnamen zerhackt. Und alles dies verbirgt sich in dieser Funktion. Public Function longfix(OriginalText As String, MaxLength As Integer) As String Dim i As Integer Dim labellen As Integer, StringLen As Integer Dim tempstring As String tempstring = OriginalText labellen = MaxLength If Len(tempstring) <= labellen Then longfix = tempstring Exit Function End If labellen = labellen - 6 For i = Len(tempstring) - labellen To Len(tempstring) If Mid$(tempstring, i, 1) = "\" Then Exit For Next i If InStr(Len(tempstring) - labellen, tempstring, "\") < 1 Then longfix = Left$(tempstring, 3) & "..." & Right$(tempstring, labellen) Else longfix = Left$(tempstring, 3) & "..." & Right$(tempstring, Len(tempstring) - (i - 1)) End If End Function |
| Tipp-Download |
| Quelle : Steve Austin / icomp@erols.com |
 |