Découper un fichier texte

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:

Citation:

---

8096010010087987973@11002465464675354344535@JEAN MARC

---

Et donc que cela ce change en:

Citation:

---

8096010010087987973@
11002465464675354344535@
JEAN MARC

---

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

Citation:

---

Envoyé par Uranne-jimmy

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

---

Merci, je vais me renseigner! :)

Bonjour,
Ou aussi avec un replace

Code:

---

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

---

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

Citation:

---

Envoyé par rv26t

Bonjour,
Ou aussi avec un replace

Code:

---

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

---

---

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

Oui, teste avec un petit fichier et un richtextbox

Code:

---

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

---

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:

---

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

---

Sinon je voulais essayer:

Code:

---

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)" ... :?

En utilisant un fichier temporaire

Code:

---

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.

Citation:

---

Envoyé par rv26t

En utilisant un fichier temporaire

Code:

---

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:

---

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

---

Ou plus simplement

Code:

---

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é

Citation:

---

Envoyé par rv26t

Ou plus simplement

Code:

---

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!