{"id":55000876,"date":"2013-04-01T00:00:00","date_gmt":"2020-05-22T21:34:49","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=876"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Dateinamen_kuerzen_und_anzeigen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Dateinamen_kuerzen_und_anzeigen\/","title":{"rendered":"Dateinamen kürzen und anzeigen"},"content":{"rendered":"

\"\"<\/p>\n

Die Darstellung von Dateinamen inklusive Pfad ist in Access (und auch in anderen Anwendungen) problematisch, wenn dazu lediglich ein Textfeld, ein Kombinationsfeld oder ein Listenfeld zur Verfügung steht. In der Regel reicht der Platz nicht, um den kompletten Dateinamen darzustellen. Dieser Beitrag zeigt, wie Sie Dateinamen entsprechend gekürzt darstellen und dennoch bei Bedarf die Bearbeitung in Text- oder Kombinationsfeldern erlauben.<\/b><\/p>\n

Beginnen wir mit einem einfachen Textfeld namens txtDateiname<\/b>, das einen mit einem Datei öffnen<\/b>-Dialog ausgewählten Dateinamen aufnehmen soll. Dies erledigen Sie in der Regel mit einer Konstellation wie in Bild 1. Die Schaltfläche rechts löst beim Anklicken das Ereignis Beim Klicken <\/b>aus, das wiederum die folgende Ereignisprozedur startet:<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Einfaches Textfeld zum Aufnehmen eines Dateinamens plus Schaltfläche <\/span><\/b><\/p>\n

Private Sub cmdDateiAuswaehlen_Click()\r\n    Me!txtDateiname = OpenFileName(CurrentProject.Path, , "Access-Datenbank (*.mdb,*.accdb)|Alle Dateien (*.*)")\r\n    End Sub<\/pre>\n
Die Prozedur verwendet die Funktion OpenFilename<\/b>, um einen Datei öffnen<\/b>-Dialog anzuzeigen. Die Datei, die der Benutzer mit diesem Dialog auswählt, wird dann als Wert des Textfeldes txtDateiname <\/b>eingetragen.<\/p>\n
Dies funktioniert auch reibungslos, allerdings zeigt das Textfeld zu lange Dateinamen wie in Bild 2 an.<\/p>\n
\"pic002.png\"<\/p>\n
Bild 2: Anzeige eines zu langen Dateinamens<\/span><\/b><\/p>\n
Dateiname kürzen<\/b><\/p>\n
Was also tun Ganz einfach: Sie nutzen eine kleine Funktion, die den Dateinamen für unsere Zwecke aufbereitet. Das Ergebnis soll so wie in Bild 3 aussehen. Zwischen dem ersten und dem letzten Backslash sollen so viele Verzeichnisse durch drei Punkte (…) ersetzt werden, bis der Ausdruck eine bestimmte Zeichenlänge erreicht – die dann vom Textfeld dargestellt werden kann.<\/p>\n
\"pic003.png\"<\/p>\n
Bild 3: Textfeld mit gekürztem Dateinamen<\/span><\/b><\/p>\n
In diesem Fall hat die Funktion tatsächlich alle Elemente bis auf den Laufwerksbuchstaben und den Dateinamen entfernt.<\/p>\n
Bevor wir einen Blick auf die Funktion werfen, welche die Kürzung vornimmt, schauen wir uns noch an, welche Möglichkeiten es zur weiteren Verarbeitung des Dateinamens gibt. So möchte der Benutzer gegebenenfalls doch noch den kompletten Dateinamen sehen oder diesen sogar weiterverwenden. Das Betrachten des Dateinamens lässt sich ganz einfach realisieren, indem Sie den Dateinamen nach dem Einlesen als Wert der Eigenschaft ControlTipText <\/b>einstellen. Der Dateiname erscheint dann nach dem Überfahren des Textfeldes mit der Maus (s. Bild 4).<\/p>\n
\"pic004.png\"<\/p>\n
Bild 4: Anzeige des vollständigen Dateinamens<\/span><\/b><\/p>\n
Wenn Sie den Wert des Textfeldes weiterverarbeiten möchten, könnten Sie erstens auf den Inhalt der Eigenschaft ControlTipText <\/b>zugreifen. Wenn Sie diese gar nicht nutzen möchten, legen Sie entweder ein weiteres Steuerelement an, das den Dateinamen zwischenspeichert, oder Sie verwenden die Tag<\/b>-Eigenschaft des Steuerelements.<\/p>\n
Die Prozedur cmdDateiAuswaehlen2_Click<\/b>, die beim Mausklick auf die Schaltfläche neben dem zweiten Textfeld ausgelöst wird, liest zunächst den Dateinamen in die Variable strDateiname <\/b>ein (s. Listing 1<\/a><\/span>). <\/p>\n
Listing 1: Füllen des Textfeldes mit gekürztem Dateinamen<\/p>\n
Private Sub cmdDateiAuswaehlen2_Click()\r\n    Dim strDateiname As String\r\n    strDateiname = OpenFileName(CurrentProject.Path, , "Access-Datenbank (*.mdb,*.accdb)|Alle Dateien (*.*)")\r\n    If Len(strDateiname) > 0 Then\r\n        Me!txtDateiKurz = DateinameKuerzen(strDateiname, 50, True)\r\n        Me!txtDateiKurz.ControlTipText = strDateiname\r\n        Me!txtDateiKurz.Tag = strDateiname\r\n    End If\r\nEnd Sub<\/pre>\n
Nach einer Prüfung, ob ein Dateiname eingelesen wurde, führt die Prozedur drei Schritte durch: Sie wendet die weiter unten beschriebene Funktion DateinameKuerzen<\/b> auf den Wert von strDateiname <\/b>an und trägt das Ergebnis in das Textfeld txtDateiKurz <\/b>ein und fügt den vollen Dateinamen als Wert der Eigenschaften ControlTipText <\/b>und Tag <\/b>ein.<\/p>\n
Manuelle änderung des Dateinamens<\/b><\/p>\n
Was geschieht, wenn der Benutzer den Dateinamen manuell ändern möchte Dazu wird der Benutzer in das Textfeld klicken und die gewünschten änderungen vornehmen. Nun müsste man allerdings zu diesem Zeitpunkt den gekürzten Eintrag entfernen und den vollen Dateinamen anzeigen, damit eine Bearbeitung möglich wird.<\/p>\n
Dazu verwenden wir die beiden Ereignisse, die beim Eintreten in das Textfeld und beim Verlassen ausgelöst werden: Bei Fokuserhalt <\/b>und Bei Fokusverlust<\/b>.<\/p>\n
<\/p>\n
Das Ereignis Bei Fokuserhalt <\/b>des Textfeldes txtDateiKurz <\/b>soll die folgende Ereignisprozedur auslösen:<\/p>\n
Private Sub txtDateiKurz_GotFocus()\r\n    Me!txtDateiKurz.Text = Me!txtDateiKurz.Tag\r\nEnd Sub<\/pre>\n
Dies stellt die Eigenschaft Text <\/b>des Textfeldes auf die in der Eigenschaft Tag <\/b>gespeicherte lange Version des Dateinamens ein.<\/p>\n
Der Benutzer kann den Dateinamen nun bearbeiten. Wenn die Eingabe abgeschlossen ist, was beispielsweise beim Verlassen des Textfeldes der Fall ist, soll der geänderte Text wieder in den beiden Eigenschaften Tag <\/b>und ControlTipText<\/b> landen und die gekürzte Fassung angezeigt werden.<\/p>\n
Dazu schreibt die folgende Prozedur zunächst die geänderte lange Version in die Eigenschaften Tag <\/b>und ControlTipText <\/b>und fügt dann die gekürzte Version als Inhalt des Textfeldes ein:<\/p>\n
Private Sub txtDateiKurz_LostFocus()\r\n    Me!txtDateiKurz.Tag = Me!txtDateiKurz\r\n    Me!txtDateiKurz.ControlTipText = Me!txtDateiKurz\r\n    Me!txtDateiKurz = DateinameKuerzen(Me!txtDateiKurz, 50, True)\r\nEnd Sub<\/pre>\n
Dateinamen kürzen<\/b><\/p>\n
Nun sehen wir uns die Funktion an, welche die Dateinamen nach den Vorgaben des Benutzers kürzt. Sie finden die Funktion namens DateinameKuerzen<\/b> in Listing 2<\/a><\/span>.<\/p>\n
Listing 2: Kürzen von Dateinamen<\/p>\n
Public Function DateinameKuerzen(strDateiname As String, intLaenge As Integer, _\r\n        bolVorne As Boolean) As String\r\n    Dim strTemp As String\r\n    Dim intStart As Integer\r\n    Dim intStartTemp As Integer\r\n    Dim intEnde As Integer\r\n    strTemp = strDateiname\r\n    Do While Len(strTemp) > intLaenge\r\n        If Len(strTemp) - Len(Replace(strTemp, "\\", "")) <= 2 Then\r\n            Exit Do\r\n        End If\r\n        If bolVorne = True Then\r\n            strTemp = Replace(strTemp, "\\...\\", "\\")\r\n            If Left(strDateiname, 2) = "\\\\" Then\r\n                intStart = InStr(3, strTemp, "\\")\r\n            Else\r\n                intStart = InStr(1, strTemp, "\\")\r\n            End If\r\n            intEnde = InStr(intStart + 1, strTemp, "\\")\r\n            strTemp = Left(strTemp, intStart) & "..." & Mid(strTemp, intEnde)\r\n        Else\r\n            strTemp = Replace(strTemp, "\\...\\", "\\")\r\n            intEnde = InStrRev(strTemp, "\\")\r\n            intStart = InStrRev(strTemp, "\\", intEnde - 1)\r\n            strTemp = Left(strTemp, intStart) & "..." & Mid(strTemp, intEnde)\r\n        End If\r\n    Loop\r\n    DateinameKuerzen = strTemp\r\nEnd Function<\/pre>\n
Die Funktion erwartet drei Parameter:<\/p>\n