EALA FREYA FRESENA

Public Class Form1
 
    'Hier ist ein Beispiel, um die Anzahl der Elemente eines Array auszugeben 
    ' und zu zählen.
    'Auf einer Form befinden sich ein Button namens "btnOK", eine ListBox 
    ' namens "lblNamen" und ein Label namens "lblAnzahl":
 
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles _
      btnOK.Click
 
        'Den vollen Dateinamen incl. Pfad in eine Variable laden
        Dim MeineDatei As String = "e:\Testdaten\namen.txt"
 
        'Ein StreamReader-Objekt erstellen und es die Textdatei öffnen lassen
        Dim sr As New System.IO.StreamReader(MeineDatei)
 
        'Nur eine einzige Zeile, nämlich die erste, als Ganzes in eine 
        ' Stringvariable einlesen
        Dim Zeile As String = sr.ReadLine
 
        'Das StreamReader-Objekt schließen
        sr.Close()
 
        'Ein Array erstellen aus dem Inhalt der String-Variablen "Zeile". Das 
        ' Trennzeichen ist das Semikolon
        Dim Namen() As String = Zeile.Split(";")
 
        'Aus der Anzahl der Array-Elemente ergibt sich die Anzahl der Namen
        Dim Anzahl As Integer = Namen.Count
 
        'Hier ist auf der Form ein Label namens "lblAnzahl". Dort wird 
        ' ausgegeben, wieviel Namen, also Array-Elemente, ermittelt wurden
        lblAnzahl.Text = "Anzahl: " & Anzahl
 
        'Die einzelnen Namen sollen nun noch ausgegeben werden. Dazu 
        ' initialisieren wir eine Integer-Variable
        Dim i As Integer = 0
 
        'Wir iterieren durch das Array "Namen" durch. Da das Array nullbasiert 
        ' ist, also das erste Element "Namen(0)" heißt, müssen wir von der 
        ' Anzahl eins abziehen.
        'Das Ergebnis, also den Inhalt des jeweiligen Array-Bereiches, 
        ' schreiben wir in eine ListBox namens "lblNamen" hinein.
        For i = 0 To Anzahl - 1
            lbNamen.Items.Add(Namen(i))
        Next
 
    End Sub
End Class

EALA FREYA FRESENA