Discussion :

[Kreepz]

Bonjour,

Voilà, je dois regrouper quatre fichier en un puis les découper.
Je voudrais que à chaque "@" dans mon fichier il saute une ligne.
J'ai effectué quelques recherches sur les traitements de fichier mais n'ai pas trouvé mon bonheur...

Un exemple de ligne:

8096010010087987973@11002465464675354344535@JEAN MARC

Et donc que cela ce change en:

8096010010087987973@
11002465464675354344535@
JEAN MARC

[Uranne-jimmy]

Bonjour,
Un petit indice seulement : String.split(), cette méthode à elle seul devrait te débloquer.

[Kreepz]

Bonjour,
Un petit indice seulement : String.split(), cette méthode à elle seul devrait te débloquer.

Merci, je vais me renseigner!

[rv26t]

Bonjour,
Ou aussi avec un replace

Code :

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

        MessageBox.Show("8096010010087987973@11002465464675354344535@JEAN MARC ".Replace("@", "@" & vbCrLf))

[Uranne-jimmy]

A ouais pas faux @.@ j'ai pas donné la plus pratique des méthodes.

[Kreepz]

Bonjour,
Ou aussi avec un replace

Code :

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

        MessageBox.Show("8096010010087987973@11002465464675354344535@JEAN MARC ".Replace("@", "@" & vbCrLf))

Je peux faire un "replace" sur tout le fichier?

[rv26t]

Oui, teste avec un petit fichier et un richtextbox

Code :

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

RichTextBox1.Text = File.ReadAllText("D:\data\fichiers\ficrep.txt").Replace("@", "@" & vbCrLf)

[Kreepz]

J'ai tenté de récupèrer toutes les lignes du fichier dans allLines en utilisant le replace mais le retour chariot ne s'effectue pas:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub miseEnFormeFichier(ByVal cheminFichier As String)
Dim lines As List(Of String) = System.IO.File.ReadAllLines(cheminFichier).ToList
 
For i As Integer = 0 To lines.Count - 1
   allLines.Add(lines(i).Replace("@", "@" & vbCrLf))
Next
 
End Sub

[Kreepz]

Sinon je voulais essayer:

Code :

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

1
2
 
Liste = File.ReadAllText(fichierALHTPLUX).Replace("@", "@" & vbCrLf).ToList

Mais j'ai l'erreur "Impossible de convertir une List(Of Char) en List(Of String)" ...

[rv26t]

En utilisant un fichier temporaire

Code :

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

1
2
        File.WriteAllText("D:\data\fichiers\temp.txt", File.ReadAllText("D:\data\fichiers\ficrep.txt").Replace("@", "@" & vbCrLf))
        Dim lines As List(Of String) = System.IO.File.ReadAllLines("D:\data\fichiers\temp.txt").ToList

Mais bon, on doit pouvoir faire l'équivalent en mémoire.

[Kreepz]

En utilisant un fichier temporaire

Code :

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

1
2
        File.WriteAllText("D:\data\fichiers\temp.txt", File.ReadAllText("D:\data\fichiers\ficrep.txt").Replace("@", "@" & vbCrLf))
        Dim lines As List(Of String) = System.IO.File.ReadAllLines("D:\data\fichiers\temp.txt").ToList

Mais bon, on doit pouvoir faire l'équivalent en mémoire.

Sinon j'ai réussi comme cela: :p

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Dim lines As List(Of String) = System.IO.File.ReadAllLines(fichier).ToList
              For Each ligne In lines
                Dim tmpListe As String()
                tmpListe = ligne.Split("@")
 
                For i As Integer = 0 To tmpListe.Count - 1
                    allLines.Add(tmpListe(i))
                Next
            Next

[rv26t]

Ou plus simplement

Code :

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

1
2
3
4
        Dim alllines As List(Of String) = New List(Of String)
        For Each ligne In System.IO.File.ReadAllLines("D:\data\fichiers\ficrep.txt").ToList
            alllines.AddRange(ligne.Split("@"))
        Next

Note : ' utiliser alllines.AddRange(ligne.Split(New [Char]() {"@"c})) ou alllines.AddRange(ligne.Split(Char.Parse("@"))) avec l'option strict on

Remarque : le @ n'est pas concervé

[Kreepz]

Ou plus simplement

Code :

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

1
2
3
4
        Dim alllines As List(Of String) = New List(Of String)
        For Each ligne In System.IO.File.ReadAllLines("D:\data\fichiers\ficrep.txt").ToList
            alllines.AddRange(ligne.Split("@"))
        Next

Note : ' utiliser alllines.AddRange(ligne.Split(New [Char]() {"@"c})) ou alllines.AddRange(ligne.Split(Char.Parse("@"))) avec l'option strict on

Remarque : le @ n'est pas concervé

Effectivement!

Merci pour votre aide!