remplacer nombre fichier text

**BakiTheGrappler** · 19/05/2014, 19h15

bonjour j'aimerai avoir votre aide
En faite j'ai un fichier txt a l'interieur se trouve +/-100 lignes

Groupe 1
ligne_numero_00000
ligne_numero_00000
Groupe 2
ligne_numero_00000
ligne_numero_00000
...
Groupe 20
ligne_numero_00000
ligne_numero_00000

j'ai voulu faire une (boucle ?) qui permet de remplacer les 0 en 1 2 3 comme ceci :

Groupe 1 :
ligne_numero_00001
ligne_numero_00002
Groupe 2
ligne_numero_00003
ligne_numero_00004
...
Groupe 20
ligne_numero_00099
ligne_numero_00100

sans pour autant changer "ligne_numero_" mais vu ma connaissance ça va être compliqué, enfin dites le moi si vous n'avez pas compris ^^
si c'est possible merci beaucoup !

**Pragmateek** · 19/05/2014, 20h07

Tu as plusieurs solutions.

Si tu as un petit fichier, comme c'est le cas à priori, alors tu peux utiliser la méthode ReadAllLines de la classe System.IO.File.
(Si tu avais un gros fichier alors il est conseillé de travailler en streaming via un StreamReader et un FileStream pour la sortie.)

Puis en effet il suffit de faire une boucle et de modifier les lignes qui se terminent par "00000", en remplaçant ce suffixe par la valeur d'un compteur.
Pour faciliter le formatage sur 5 caractères tu as la méthode PadLeft du type String.

Ensuite tu peux réécrire le tout dans le fichier via la méthode File.WriteAllLines.

**BakiTheGrappler** · 19/05/2014, 20h24

D'accord merci beaucoup pour ces indices
je vais essayer ça !

**rv26t** · 19/05/2014, 21h36

Bonjour,

Envoyé par seriousme

Si tu as un petit fichier, comme c'est le cas à priori, alors tu peux utiliser la méthode GetAllLines de la classe System.IO.File.

Il me semble que c'est la méthode ReadAllLines.

Et tu peux utiliser une List(Of String) pour traiter tes lignes

**BakiTheGrappler** · 19/05/2014, 21h44

Envoyé par rv26t

Bonjour,

Il me semble que c'est la méthode ReadAllLines.

Et tu peux utiliser une List(Of String) pour traiter tes lignes

Oui exact je ne trouvais pas cette méthode merci
pouvez vous me faire un exemple je débutes avec le vb.net
merci beaucoup !!

**rv26t** · 19/05/2014, 22h05

Pour apprendre il vaut mieux essayer par soit même, on retient mieux

Voici ce que tu pourrais faire (avec les mot du langage à utiliser)
'traitement
pour chaque ligne lu dans le fichier - For Each - File.ReadAllLines.
- si elle contient la chaîne de caractère - Contains.
-- i+1.
-- Ajoute la ligne dans la List(of string) en remplaçant la chaîne - Add - Replace - ToString - PadLeft.
- sinon.
-- ajoute la ligne - Add.
sauvegarde - File.WriteAllLines.

**BakiTheGrappler** · 19/05/2014, 22h11

J'ai fait ceci

Code :

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

1
2
3
4
5
6
7
    Dim lines As String() = System.IO.File.ReadAllLines("C:\Users\Admin\Desktop\mylist.txt")
 
        For i = 0 To lines.Length - 1
            lines(i) = lines(i).Replace("00000", i.ToString.PadLeft(5, "0"))
        Next
 
        System.IO.File.WriteAllLines("C:\Users\Admin\Desktop\mylist.txt", lines)

Mais quand il y a la ligne Groupe 1 par exemple la numerotation saute une fois au lieu de 10, 11, 12... c'est 10, 12,13

**rv26t** · 19/05/2014, 22h51

C'est normal avec un for, il aurait fallut utiliser un while et incrémenter un compteur

Voici la solution par rapport à mon post précédant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub btnModifieLigne_Click(sender As System.Object, e As System.EventArgs) Handles btnModifieLigne.Click
        Const KCHAINE As String = "00000" ' chaîne à rechercher
        Dim i As Integer = 0
        Dim ListeLignes As List(Of String) = New List(Of String) ' la nouvelle liste
        'traitement de chaque ligne du fichier
        For Each ligne As String In File.ReadAllLines("D:\data\fichiers\groupe.txt")
            If ligne.Contains(KCHAINE) Then i += 1
            ListeLignes.Add(ligne.Replace(KCHAINE, i.ToString.PadLeft(5, "0"))) ' formate et ajoute la ligne
        Next ligne
        'sauvegarde
        File.WriteAllLines("D:\data\fichiers\groupemodif.txt", ListeLignes)
    End Sub