Supportnet Computer
Planet of Tech

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:

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?

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: