Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Textdatei mit VB auswerten
Frage
Hallo,
ich habe hier eine liste als *.txt datei die ungefähr wie folgt aussieht:
0
0
1
1
1
4
6
6
7
7
7
7
usw.
Die Zahlen sind zufaellig ausgewaehlt. Nun moechte ich diese Textdatei irgendwie "sortieren" also ich stell mir das so vor dass er jede zeile ausliest und in eine neue txt datei reinschreibt wieviele "0en" , "1en", "6en" usw. die erste liste hatte, also dann steht z.B. da
2 x 0
3 x 1
1 x 4
2 x 6
4 x 7
hoffe mir kann jemand einen tipp geben
danke
Antwort 1 von Thorsti
Ein kleines Muster für Deine Beispieldatei in VBA zur Anregung:
Gruss,
Thorsten
m = 7
ReDim a(m)
Open "c:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, b
a(b) = a(b) + 1
Wend
Close #1
msg = ""
For n = 0 To m
If a(n) > 0 Then
msg = msg + CStr(a(n)) + " x " + CStr(n) + Chr(10)
End If
Next
MsgBox msg
Gruss,
Thorsten
Antwort 2 von ECay
hey das hat mir schonmal ein ganzes stueck weiter geholfen
mir ist nur der syntax "ReDim" neu. Kannst du mir sagen was er bedeutet?
Dann haette ich auch gleich noch eine weitere frage und zwar, wie kann ich nur die vorletzte oder letzte zeile einer txt datei einlesen?
mir ist nur der syntax "ReDim" neu. Kannst du mir sagen was er bedeutet?
Dann haette ich auch gleich noch eine weitere frage und zwar, wie kann ich nur die vorletzte oder letzte zeile einer txt datei einlesen?
Antwort 3 von Thorsti
Du kennst Dim? Mit Dim dimensioniert man einen Array. Mit ReDim kann man neben der Erstdimensionierung eines Arrays aber auch einen bestehenden Array neu (re-) dimensionieren. Ich habe ReDim nur benutzt, weil es als Dimensionsangabe eine Variable (m) erlaubt. Dim akzeptiert da nur Konstanten, also z.B. Dim a(7).
Wie man aussschliesslich die letzten Zeilen einer Datei lesen kann, weiss ich nicht. Du kannst natürlich alle lesen und Dir nur die letzten davon merken. ;-)
Gruss,
Thorsten
Wie man aussschliesslich die letzten Zeilen einer Datei lesen kann, weiss ich nicht. Du kannst natürlich alle lesen und Dir nur die letzten davon merken. ;-)
Gruss,
Thorsten