voisi mon code mais il y a une erreur la QUEL

Question

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'FileOpen(1, "c:	exaco\client.txt", OpenMode.Input)
        Dim momo() As String
        Dim a As Integer
        Dim Line() As String
        FileOpen(1, "c:	exaco\client.txt", OpenMode.Input) 
        a = 1
        While Not EOF(1) 
            a = a + 1
            Line(a) = LineInput(1) ' Lire chaque ligne
            If TextBox1.Text = Mid(Line(a), 1, 1) Then
                TextBox2.Text = Mid(Line(a), 3, 10)
            End If
        End While
        FileClose(1) ' Fermer.

    End Sub

cs_DARKSIDIOUS · Answer

Et si tu nous disais quel est l'erreur... ce serait plus facile pour t'aider !

Je n'ai jamais fais de .NET, mais la ligne  Line(a) = LineInput(1) me semble très différentes de VB 6, qui s'écrivais alors comme cà :
LineInput #1, Line(a)
Je ne sais pas si ca vient de là...
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

petiflamand · Answer

L'erreur est qu'il ne veut pas pas faire
Line(a) = LineInput(1)
il n'axepte pas de placer lineinput(1) dans line(a)
mais je sait pas pourquoi
j'ai beaucoup plus facile avec vb5 (vb6 je connait pas)
Mais j'ai envoie d'essayer

radcur · Answer

salut,

je ne connais pas vb.net comme vb6 mais la logique de déboggage reste la même peu importe le langage.

ça  bloque au premier passage ou après quelques-un ?

as-tu essayer de voir ce qu'il y avait dans "lineInput(1)" ?

au lieu de faire line(a)=lineinput(1) fait msgbox lineinput(1)  ... je suis sûr que tu trouveras quelque chose.

et puis Line n'est pas un mot réservé ???

petiflamand · Answer

dans ma lineinput(1) il me lit la ligne qui est dans mon fichier .txt
sa il y a pas de probleme le probleme c'est qu'il ne veut pas le placer dans line(a)

cs_CanisLupus · Answer

Salut,

tu déclares 
Dim Line() As String
mais où donnes tu ses dimensions ?

Dans ce cas, il faudrait inclure 
redim preserve Line(a)
entre
a = a + 1
et
Line(a) = LineInput(1) ' Lire chaque ligne

Cordialement, CanisLupus

Voisi mon code mais il y a une erreur la QUEL

5 réponses