Einträge sortiert auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sergej,
hier mal eine Möglichkeit:

Option Explicit

Sub TxtDatenSortiertEinlesen()

 Dim sPathname As String, sFilename As String

 Dim iff As Integer, i As Integer

 Dim sZeile As String, sItems As String

 sPathname = "C:&bsol;Users&bsol;ffm&bsol;Desktop&bsol;"

 sFilename = "Daten.txt"

 iff = FreeFile

 If Dir$(sPathname & sFilename) &LT;&GT; "" Then          'Datei existent?

  With CreateObject("System.Collections.SortedList")

    Open sPathname & sFilename For Input As #iff    'Datei öffnen

    Do While Not EOF(iff)

      Line Input #iff, sZeile                       'Zeile lesen

      If Not .contains(sZeile) Then .Add sZeile, sZeile

    Loop

    Close #iff                                      'Datei schließen

    For i = 1 To .Count

      sItems = sItems & .GetByIndex(i - 1) & vbCrLf 'Element übernehmen

    Next i

    MsgBox sItems, vbInformation, "Daten einlesen"  'Elemente anzeigen

  End With

 Else

   MsgBox "Die Datei " & sFilename & " existiert nicht!", vbCritical, "Daten einlesen"

 End If

End Sub

Viele Grüße aus Freigericht
Karl-Heinz

Hallo Sergej,
bei Zahlen bis 100 und gleichem Vortext könnte, wenn es um die Zahlensortierung geht, folgende Änderung schon helfen.
Ansonsten ist es nun mal Text. Für eine spezielle Sortierung, wobei Text und Zhal auseinanderdividiert werden muüssen, wird's dann schon aufwendiger.
PS: Was muss ich bitte im Code ändern, wenn meine TXT-Datei wie folgt heißt "VF_K4_U1_RL_S4.txt" dann würde es mit der Sortierung der Zahlen (s. oben fett dargestellt) funktionieren oder?
Diesen Zusammenhang kann ich nicht nachvollziehen. Auch hier würde "VF_K4_U1_RL_S10.txt" ja nach "VF_K4_U1_RL_S1.txt" und von "VF_K4_U1_RL_S4.txt" kommen.

Option Explicit

Sub TxtDatenSortiertEinlesen()

 Dim sPathname As String, sFilename As String

 Dim iff As Integer, i As Integer

 Dim sZeile As String, sItems As String, sSort As String

 sPathname = "C:&bsol;Users&bsol;voltm&bsol;Desktop&bsol;"

 sFilename = "Daten.txt"

 iff = FreeFile

 If Dir$(sPathname & sFilename) &LT;&GT; "" Then            'Datei existent?

  With CreateObject("System.Collections.SortedList")

    Open sPathname & sFilename For Input As #iff      'Datei öffnen

    Do While Not EOF(iff)

      Line Input #iff, sZeile                         'Zeile lesen

      sSort = Right$(sZeile, 2)                       'Sortierkriterium

      If Not .contains(sSort) Then .Add sSort, sZeile 'In Array einfügen

    Loop

    Close #iff                                        'Datei schließen

    For i = 1 To .Count

      sItems = sItems & .GetByIndex(i - 1) & vbCrLf   'Element übernehmen

    Next i

    MsgBox sItems, vbInformation, "Daten einlesen"    'Elemente anzeigen

  End With

 Else

   MsgBox "Die Datei " & sFilename & " existiert nicht!", vbCritical, "Daten einlesen"

 End If

End Sub

Viele Grüße aus Freigericht
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einträge sortiert auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread