Moin,
Ich Lese Eine Textdatei aus und teile die zeilen immer beim TAB um etwas Text dazwischen zu bringen.
Nun würde ich aber die Ausgabe gern Aufsteigend sortieren. Zähler dafür soll llf(2) sein. Wie gehe ich das am besten an ?
mfg jonny
Private Sub Auslesen()
If Len(Text1.Text) fehlercheck Then
End If
na = App.Path & "\Portliste.txt"
fehlercheck = Text1.Text
Open na For Input As #ff
While Not EOF(ff)
Line Input #ff, fehlertext
If InStr(LCase(fehlertext), LCase(Text1.Text)) Then
PSAXview
End If
n = n + 1
Wend
Close #ff
End If
End Sub
Private Sub PSAXview()
fll = fehlertext
For I = LBound(llf) To UBound(llf)
Next
On Error GoTo Readerror
llf(2) = Replace(llf(2), ".", " Port: ")
List1.AddItem "PSAX: " & llf(0) & " TYP: " & llf(1) & " Karte: " & llf(2) & " Gegenstelle: " & llf(27)
Exit Sub
Readerror:
End Sub