Discussion :

[benjea06]

Bonjour,

Je m'initie au VB.
Je tâche d'extraire une ligne d'un fichier texte mais je n'y parviens pas.
J'ai un message d'erreur: Erreur 1 'File' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
        Dim lines As String() = File.ReadAllLines("C:\Users\Utilisateur\Desktop\eff\test.txt")
        Dim index As Integer = Array.IndexOf(lines, "12")
 
        MsgBox(index)

Or quand je passe par cette commande, il m'affiche bien le contenu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
         Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText("C:\Users\Utilisateur\Desktop\eff\test.txt")
        MsgBox(fileReader)

Quelqu un aurait une idée?

[wallace1]

Bonsoir,

Et en utilisant une boucle For ...each ou For ... Next pour parcourir ton tableau Lines() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For each line in lines 
 ' Msgbox(line)
End for

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i as integer = 0 to lines.count - 1
 ' Msgbox(lines(i))
Next

Si tu veux lire uniquement la ligne 12 tu devrais pouvoir ajouter ce qu'il faut dans ces 2 exemples..

Bon codage ++

[Phil Rob]

Bonjour,

Avant toute autre investigation, je te propose d'écrire la ligne de code Imports System.IO tout en haut de ta page de code, avant la ligne Public Class .....

Communiques-nous les problèmes qui surviennent ensuite.

[wallace1]

@Phil : bien vu, a coup sure il a oublié l import.

[benjea06]

Bingo,
c'était ça!

J'ai rajouté le code suivant qui me retrouve les info selon les lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  Dim tabFichier As String() = File.ReadAllLines("C:\Users\Utilisateur\Desktop\eff\test.txt")
 
        ' Là tu peux récupérer la ligne souhaitée (index 3 pour ligne 4 du fichier par exemple)
        Dim numligne As String = tabFichier(2)
 
        MsgBox(numligne)

Je n'ai pas encore bien compris ce que fait Imports System.IO mais ça marche...
En revanche, j'aimerais (après extraction d'une partie de la ligne, j'y travaille) attribuer cette variable à un label et je n'y parviens pas...
Je suis encore preneur d'un tuyau...


En tout cas bien joué!

[Pol63]

Je n'ai pas encore bien compris ce que fait Imports System.IO mais ça marche...

le framework est composé de plein de dlls, une dll c'est comme un exe, ca contient du code, sauf qu'on ne peut pas la lancer, seul un exe peut démarrer
une dll ou un exe on appelle ca un assembly
pour utiliser une dll dans un projet il faut l'ajouter en référence, il y en a plusieurs incluses par défaut (les plus couramment utilisées)

ensuite une dll est composée de plein de classes, vu qu'il y en a beaucoup elles sont rangées dans des tiroirs qu'on appelle namespace
par exemple la classe File qui gère les fichiers est rangé dans le namespace IO qui est lui même dans le namespace System

pour utiliser cette classe il faut donc écrire System.IO.File
pour éviter d'écrire System.IO à chaque fois on peut ajouter imports System.IO en haut du fichier .vb, dans ce fichier toutes les classes contenues dans System.IO sont directement utilisables par leur nom

tu peux toi même ranger tes classes dans des namespaces avec le mot clé namespace

[Phil Rob]

Bonsoir,
Pour affecter le label :
LeLabelEnQuestion.Text = LaValeurQueTuVeux.
Bonne soirée

[benjea06]

Merci pour l'explication Pol63, c'est ce que j'avais cru comprendre sans pour autant en saisir toutes les nuances...

Phil Rob, ce code, je le mets ou?
Pour l'instant, je double clic sur mon label mais ca m'ouvre un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
 
    End Sub

[Phil Rob]

Tu mets ce code là où tu obtiens la valeur à affecter, peut-être même dans la procédure Label3_Click ..., en fait ça dépend de ton algo, de ce que tu faire.
Envoie plus de code ou tout ton projet (En zip) mais je n'aurai pas de temps avant demain dans l'après-midi.
Tu trouveras peut-être la solution entre temps...