En fil ser i princip ut så här

12 23 45
13 34 121
12 23 45
34 19 87
...
...
13 34 121

Allstå varje rad kan återkomma flera gånger. Hur räknar jag antalet
12 23 45 och antalet 13 34 21 och så vidare i filen? Det är ca tusen rader.

Hej
Vet du hur många olika kombinationer det finns ??

undrar
Sven

Jag föreslår en tredimensionell array. Enklast att räkna antal:
<code>
Private Sub Command1_Click()
Dim Antal() As Long
Dim Values() As String
Dim strLine As String
Dim FileName As String
Dim FileNumber As Long

FileName = "c:\Test.txt"
FileNumber = FreeFile()

ReDim Antal(0 To 255, 0 To 255, 0 To 255)

Open FileName For Input Access Read Shared As #FileNumber
Do Until EOF(FileNumber)
Line Input #FileNumber, strLine
Values = Split(strLine)
Antal(Values(0), Values(1), Values(2)) = Antal(Values(0), Values(1), Values(2)) + 1
Loop
Close #FileNumber
End Sub


</code>

Line Input var ett bra förslag. Tack för det!