DIM t AS STRING
  DIM t1( 20 ) AS STRING   '<---- anpassen
  DIM i AS LONG
  DIM x AS LONG
  DIM xx AS LONG
  DIM anzahl AS LONG
 
  i = 1
 
  OPEN "d:\testein.txt" FOR INPUT AS #1
 
  WHILE NOT EOF( 1 )
    LINE INPUT #1, t
    x = INSTR( t, ";" )
    t1( i ) = LEFT$( t, x - 1 )
    i = i + 1
  WEND
  CLOSE
 
  OPEN "d:\testaus.txt" FOR OUTPUT AS #1
 
  FOR x = 1 TO i
    IF LEN( t1( x )) THEN
      t = t1( x )
      anzahl = 1
 
      FOR xx = x + 1 TO i
        IF t1( xx ) = t THEN
          t1( xx ) = ""
          anzahl = anzahl + 1
        END IF
      NEXT
 
      PRINT #1, "Anzahl    "; t; TAB( 25 ); anzahl
      PRINT #1
 
    END IF
  NEXT
  CLOSE