Discussion :

[hunteshiva]

Bonjour,
j'ais réussi a lire mon fichier texte sans problème avec la routine suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub LireLeFichierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LireLeFichierToolStripMenuItem.Click
 
        Try
            Dim sReader As StreamReader = New StreamReader(Application.StartupPath & "\Texte.txt")
            Dim sLine As String
 
 
            RichTextBox1.Text = "..... Debut du fichier ...."
            sLine = sReader.ReadLine()
            While Not sLine Is Nothing
                RichTextBox1.Text = RichTextBox1.Text & vbCrLf & sLine
                sLine = sReader.ReadLine()
            End While
            RichTextBox1.Text = RichTextBox1.Text & vbCrLf & ".... Fin du fichier ...."
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

a l'écran j'ais bien ce que je veut :


seulement je voudrais lire des lignes précises
ou une ligne sur deux *ou sur 3*
et je ne vois pas comment faire ....

[meziantou]

tu peux ajouter un compteur de ligne. Ensuite pour savoir si c'est une ligne dont tu veux, tu peux utiliser un modulo : (n° de la ligne) mod x = 0
Si tu veux une ligne sur 2 : modulo 2
Si tu veux une ligne sur 3 : modulo 3

[hunteshiva]

j'ais trouvé une solution

Code :

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

 Dim Lignes As String() = File.ReadAllLines(Application.StartupPath & "\Texte.txt")

aprés c'été facile de trouver la ligne tu fesais *par exemple*

Code :

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

textBox1.Text = Lignes(1)

seulement,
je travaille sur une application SmartDevice
qui utilise le CompackNetFramework et non une version classique NetFramework 2.0 ou 3.0

donc je ne peut pas me servir de cette solution puisqu'elle n'existe pas pour une appli SmartDevice

#################################################

je n'ais pas bien saisie ton idée meziantou
tu veu bien me l'expliquer avec un peut plus de détails ....

#################################################

sinon j'ais une autre solution
qui me pousse a créer mon fichier texte de la manière suivante:

Nom de la Ligne : A
Offset en X : 500
Offset en Y : 46
Offset en Z : 24

et aprés avec la fonction split
je peu facilement extraire mes valeurs comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
            Dim sReader As StreamReader = New StreamReader(Application.StartupPath & "\Texte.txt")
            Dim sLine As String
            Dim LectureSplit As String()
            Dim NomLigne As String
            Dim OffsetX, OffsetY, OffsetZ As Integer
 
            'Lecture de nom de la ligne
            sLine = sReader.ReadLine()
            LectureSplit = sLine.Split(": ")
            NomLigne = LectureSplit(1)
 
            'Lecture de l'Offset en X
            sLine = sReader.ReadLine()
            LectureSplit = sLine.Split(": ")
            OffsetX = LectureSplit(1)
 
            'Lecture de l'Offset en Y
            sLine = sReader.ReadLine()
            LectureSplit = sLine.Split(": ")
            OffsetY = LectureSplit(1)
 
            'Lecture de l'Offset en Z
            sLine = sReader.ReadLine()
            LectureSplit = sLine.Split(": ")
            OffsetZ = LectureSplit(1)

########################################################################################################
pour ceux qui liront ce post et qui ne connaissent pas la fonction split je vous laisse un aperçu de ce que sa donne en un peut plus concret

j'avais : Nom de la Ligne : A
avec un split qui sépare ma chaine dés qu'elle voit ": ", en image sa donne ceci :


elle permet de séparer un string en plusieurs parties afin d'en récupérer ce qui nous intéresse *ou de le classer*

[meziantou]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim i as Integer = 0
sLine = sReader.ReadLine()
While Not sLine Is Nothing
    If i Mod 2 = 0 Then
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & sLine
    End If
    sLine = sReader.ReadLine()
    i = i + 1
End While

Tu ne traites que 1 ligne sur 2.

[hunteshiva]

Ok,
je vois mieux ce que tu voulais me dire maintenant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i as Integer = 0
sLine = sReader.ReadLine()
While Not sLine Is Nothing
    If i = 0 Then
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & sLine
    Else
        i = 0
    End If
    sLine = sReader.ReadLine()
    i = i + 1
End While

je pensé faire comme ceci,
sur un fichier avec beaucoup beaucoup de lignes, sa peut éviter d'avoir un "i" trop grand
*mais faut en vouloir pour dépasser la capacité d'un integer"


et bien écoute je crois que le probléme est résolue,
j'ais toutes les cartes en mains pour avancer

merci meziantou