Discussion :

[balabonov]

bonjour,

Je developpe une application qui a un moment donné doit cherché une ligne précise dans un fichier texte.

Elle lit le fichier en boucle jusqu'a qu'elle trouve une certaine valeur.

Je voudrais savoir comment enregistré dans 2 variables ce qui se trouve avant cette ligne et après cette ligne.

(Ce qui me permettra en fait de pouvoir modifier la ligne en question et de réécrire tout le fichier: La partie avant / La ligne modifiée / La partie après)

Voici le code qui cherche une ligne précise:

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
26
27
 
 Try
                Dim A As String
                Dim SR As StreamReader = File.OpenText("Mon_Fichier.txt")
                Dim AnalyseChaine As String
                Dim Verification As Boolean = False
 
                A = TextBoxA.Text
 
'Lit le fichier ligne par ligne jus'à qu'il trouve, ou jusqu'à la fin
                Do
                    UneLigne = SR.ReadLine()
                    If Not UneLigne Is Nothing Then
'On recherche le text entré dans la textboxA
                        AnalyseChaine = UneLigne.IndexOf(";" + A + ";")
'S'il trouve on quitte la boucle
                        If AnalyseChaine >= 0 Then
 
                            Verification = True
                            Exit Do
                        End If
                    End If
                Loop Until UneLigne Is Nothing
                SR.Close()
 
                          Catch ex As Exception
            End Try

Car actuellement si j'écris la modification, soit j'efface tout, soit je rajoute a la fin mais l'ancienne ligne se trouve toujours dans le fichier (et je le veux pas car cela doublerais la variable A)

[leSeb]

Si ton fichier n'est pas trop important, voila comment tu peux faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fichier As StreamReader
Dim contenu As String
Dim lignes As String()
Dim index As Integer
 
fichier = New StreamReader("MonFichier.txt")
contenu = fichier.ReadToEnd()
lignes = contenu.Replace(vbCrLf,Chr(13)).Split(Chr(13))
For index = 0 To lignes.Length - 1
   If lignes(index) = MA_CONDITION Then
      lignePrecedente = lignes(index-1)
      ligneSuivante = lignes(index+1)
   End If
Next

Bon biensur, il faut rajouter quelques contrôles de début et fin de liste mais le grand principe est là.

Bon courage

[balabonov]

Pour info le fichier fait + 3000 lignes.

Merci de ta réponse je vais essayer d'explorer un peu cela.

[skaraa]

si je comprends bien ce que tu veux faire la variable ligne precedente prend la valeur de la ligne qui précède celle qui m'interesse.

d'un point de vue méthode dois-je faire en sorte d'écrire cette variable jsuqu'à qu'il n'y ai plus de ligne avant

Puis écrire ma ligne modifiée (LigneActuelle)

Puis écrire ma ligneSuivante jusqu'à qu'il yen ai plus?

(prendre en compte qu'il ya environs 3000 lignes, donc est ce raisonable de faire cela)

PS: est il possible d'effacer la ligne en question? (ou une ligne précise d'un tableau)

- A la limitte je pourrais mettre toutes les lignes du fichier dans un tableau

contenu = fichier.ReadToEnd()
tableau = contenu.Replace(vbCrLf,Chr(13)).Split(Chr(13))

- J'efface la ligne en question (clear??????)

- J'écris toutes les lignes du tableau dans un fichier texte qui ecrase l'ancien fichier

- je réécris la ligne modifiée

* skaraa = balabonov