dotNETportal.cz

Potrebujem načítat 3 externé súbory (súbory *.txt obsahujú celé aj desatiné čísla, čísiel môže byť v jednom súbore viac ako 1000), a aby sa tieto čísla s časom menili (napr. po 1 minúte).

niečo som spravil s pomocou stránky http://www.vbnet.cz/clanek--33-vb_net_od..., ale nefunguje mi to tak ako potrebujem.

keď načítam súbor zobrazí sa mi iba pár čísiel, čísla sa nezobrazujú od začiatku (prvé a druhé číslo sa nezobrazí a taktiež aj posledné), po zobrazeni čísiel VB vyhodí chybu: Index je mimo hranice pole.

zdrojový kód:pre jeden súbor

Structure Zaznam
        Dim hodnota As Integer
    End Structure
    Dim i As Integer
    Dim zaznamy() As Zaznam
    'Dim pole() As Integer = {5, 7, 2, 4, 1, 6, 3, 12, 45, 65}
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        i = i + 1
        Label1.Text = (zaznamy(i).hodnota)
        'Label1.Text = pole(j)
    End Sub
    Dim sr As New IO.StreamReader("c:\1.txt", System.Text.Encoding.Default)
    Dim pocet As Integer = CInt(sr.ReadLine())
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim zaznamy(pocet - 1)

        For i As Integer = 0 To pocet - 1
            zaznamy(i).hodnota = CInt(sr.ReadLine())
        Next

        sr.Close()
        Timer1.Interval = 200
        Timer1.Enabled = True
    End Sub

Do proměnné "počet" načítáte první řádek souboru. V opakovacím cyklu se pak záznamy plní od druhého řádku.

Proměnnou i v Timeru startujete od jedničky (po definici je nulová, ale v Timeru připočtete jedničku). Tak vynecháte hodnotu s indexem 0 v poli zaznamy()

To je důvod nezobrazení prvních dvou hodnot.

Konec čtení s chybou působí chybně stanovený počet...

díky moc mi to pomohlo