[VB] vullen van array

[Remco]

Ik wil een array vullen met gegevens.
Maar telkens krijg ik er maar een foutmelding op.
Ik doe iets verkeerd, maar zie absoluut de bomen door het bos niet meer.

Ik zal even uitleggen wat er gebeurd.
Er word een directory-listing gemaakt van de *.dfu bestanden.
Deze worden in een array geplaatst.
Hierna word een combobox gevuld met deze array.
Werkt allemaal prima.

Daarna wil ik uit het bestand het kenteken en opdrachtnummer halen.
Dat werkt ook allemaal prima. (eerst kenteken, daarna opdrachtnummer)

Nu ik de kentekens heb uit de bestanden wil ik deze in een array plaatsen.
Dit doe ik in regel 26. En hier loopt het fout.

code:

An unhandled exception of type 'System.NullReferenceException' occurred in audaexp.exe

Additional information: Object reference not set to an instance of an object.

de opdracht is :
kenteken(filenummer) = kentekennummer
In de debugger heeft filenummer (1) en kentekennummer (12-ab-cd).
Dus deze waardes kloppen wel, maar toch loopt het fout.

Later in regel 34 weer, maar dat is dezelfde routine.

Visual Basic:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
 System.EventArgs) Handles Button1.Click

        Dim files() As String
        Dim file As String
        Dim filenummer As String = 1
        Dim kenteken() As String
        Dim opdracht() As String
        Dim kentekennummer, opdrachtnummer As String
        Dim temp_string As String = ""
        'variabelen voor bepalen positie gegevens.
        Dim begin As String = 77
        Dim einde As String = 8
        Dim begin1 As String = 42
        Dim einde1 As String = 8

   files = Directory.GetFiles(bron, "*.dfu")     

   For Each file In files
            ComboBox1.Items.Add(file)
            FileOpen(filenummer, file, OpenMode.Input)

            'kenteken uit bestand file halen
            While Not EOF(filenummer)
                temp_string &= LineInput(filenummer)
            End While
            kentekennummer = Mid$(temp_string, begin, einde)
            kenteken(filenummer) = kentekennummer

            'opdrachtnummer uit bestand file halen
            temp_string = ""
            While Not EOF(filenummer)
                temp_string &= LineInput(filenummer)
            End While
            opdrachtnummer = Mid$(temp_string, begin1, einde1)
            opdracht(filenummer) = opdrachtnummer

            'even wegschrijven naar box voor controle
            RichTextBox1.AppendText(opdrachtnummer)
            RichTextBox1.AppendText(vbCrLf)
            RichTextBox1.AppendText(kentekennummer & "" & opdrachtnummer & vbCrLf)

            FileClose(filenummer)
            filenummer = filenummer + 1
        Next
    End Sub

[ Voor 6% gewijzigd door Remco op 06-04-2003 21:45 ]

[Michali]

Als ik me niet heel erg vergis is het eerste argument dat je aan FileOpen geeft een handle naar een file. En die dien je altijd eerst te initialiseren door:

Visual Basic:

filenummer = FreeFile()

te gebruiken. Dan krijgt filenummer zoals verwacht een nummer wat nog niet wordt gebruikt.

http://msdn.microsoft.com.../vblr7/html/vastmOpen.asp

http://msdn.microsoft.com...98/html/vafctFreeFile.asp

Het moet dus ook een integer zijn en geen string.

Wat er dus gebeurde was dat je steeds filenummer verhoogd totdat je er een tegenkomt die niet gebruikt kan worden. (denk ik, de fout lijkt op wat anders te wijzen maar probeer eerst dit maar eens te verbeteren)

ik vind dit ook maar eigenlijk een vreemde regel

Visual Basic:

Dim filenummer As String = 1

en die daar onder ook.

Ik zou daarom naast die filenummer een andere variabel maken die je dan als index gebruikt.

[ Voor 13% gewijzigd door Michali op 06-04-2003 23:53 ]

[Remco]

Je hebt gelijk.
filenummer moet inderdaad integer zijn, stom...

Maar uiteindelijk heb ik het vannacht in mijn slaap gevonden.
In regel 28 wil ik een waarde in de array stoppen.
Maar de array is dynamisch (ander woord misschien ) als ik de arrays als volgt zet:

Visual Basic:

        Dim filenummer As Integer = 1
        Dim kenteken(30) As String
        Dim opdracht(30) As String

Werkt het wel.
In regel 28 zeg ik eigenlijk:
kenteken (1) = "12-ab-cd"
Dat werkt wel, maar niet met een var: kenteken()
Want dan heeft de array nog geen veld 1, alleen 0 want daar begint een array te tellen.

Dan zet ik de array maar vast op 30.
Die waarde zal niet voorkomen. Het is niet netjes, maar ach...