mikä lienee vikana seuraavanlaisessa pätkässä:
FileOpen(1, "A:/data.txt", OpenMode.Input)
Do Until EOF(1)
For Sarake = 0 To 1
Input(1, Tiedot(Rivi, Sarake))
If Sarake = 1 Then
ComboBox1.Items.Add(Tiedot(Rivi, 1))
End If
Next
Rivi = Rivi 1
Loop
Tulee virheilmoitus "Specified cast is not valid." Input-kohdasta. Tiedot on oliotaulukkomuuttuja, Rivi ja Sarake integer.
FileOpen(1, "A:/data.txt", OpenMode.Input)
Do Until EOF(1)
For Sarake = 0 To 1
Input(1, Tiedot(Rivi, Sarake))
If Sarake = 1 Then
ComboBox1.Items.Add(Tiedot(Rivi, 1))
End If
Next
Rivi = Rivi 1
Loop
Tulee virheilmoitus "Specified cast is not valid." Input-kohdasta. Tiedot on oliotaulukkomuuttuja, Rivi ja Sarake integer.
Vastaukset 1
Vanhimmat
Mitä tarkoitat oliomuuttujalla? Ehkä Input-käskyllä ei pysty lukemaan oliomuuttujaa tiedostosta. Parempi vain lukea merkkijonoja. Joten jos muutat sen seuraavaksi, ainakin VB6:lla toimii:
Open "a:data.txt" For Input As 1
Do Until EOF(1)
For Sarake = 0 To 1
Input #1, mrk$
If Sarake = 1 Then
ComboBox1.Items.Add mrk$
Tiedot(Rivi, Sarake)) =mrk$
End If
Next
Rivi = Rivi 1
Loop