Decouper un texte en plusieurs parties

Bonjour à tous !

Je vous explique mon problème :

J'ai un fichier texte dans lequel on retrouve une ou plusieurs parties similaires. Je m'explique :

Chaque début de partie (d'un seul et unique fichier) commence par "Machine". J'aimerai mettre chaque partie dans un string sauf que j'ai quelques petits problèmes :(

Voila le gros de ma procédure,

Code:

---

1 2 3 4 5

Using sr As New StreamReader("D:\Dossier\Fichier.txt")   While Not (sr.EndOfStream)   currentLine = sr.ReadLine()

---

Et après je bloque. Si je met un "If currentLine.Contains("Machine")" puis "tableau(cpt) += currentLine", la condition ne sera vraie qu'une fois :?

Avez-vous une idée pour découper un fichier en plusieurs parties commencant par "Machine" et les stocker dans un tableau de string ?

Merci d'avance,

Jah

Bonjour.

En utilisant la classe System.String, et la fonction IndexOf, vous pouvez trouver les positions successives que le mot "Machine" occupe dans votre texte.

Cordialement.

Peux tu nous mettre un exemple de ton fichier texte

Merci pour vos réponses !

@Jean-Marie Grave : Merci, je vais essayer votre méthode !

EDIT : Je comprend pas, le indexOf ne peut pas fonctionner. Je me déplace ligne par ligne, du coup si j'arrive sur ma ligne Machine, il sera déjà trop tard :(


@hugoclo : Alors le fichier texte est du type :

Citation:

---

Machine : xxxxx

xxxxDonnées sur environ 100 lignes xxxx


Machine : xxxx

---

etc

Bonjour,
Et un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim aList as List(of String) = new List(of String) dim aBloc as String = "" While Not (sr.EndOfStream) currentLine = sr.ReadLine() If currentLine.Contains("Machine") AndAlso not String.IsNullOrEmpty(aBloc)then aList.add(aBloc) aBloc = "" End if aBloc += CurrentLine End While

---

Bon je n'ai pas Visual Studio alors il y a peut-être une erreur mais en gros, ça doit fonctionner.

eb.

Woua, merci ebastien !! :ccool:

Aucune erreur, ça fonctionne parfaitement !

Tu peux m'expliquer l'utilité du : AndAlso not String.IsNullOrEmpty(aBloc) ?

Merci à tous ! :ccool:

Citation:

---

Envoyé par Jah73

Tu peux m'expliquer l'utilité du : AndAlso not String.IsNullOrEmpty(aBloc) ?

---

String.IsNullOrEmpty permet de tester si une string est vide ou égale à nothing. La variable string aBloc sert à stocker le bloc complet. Lors de la première lecture de la ligne contenant "Machine", cette variable sera vide. Dans ce cas, il ne faut pas l'ajouter à la liste.

Bonne journée.
eb.

D'acc merci !

Une dernière petite question, j'ai fait un aBloc += currentLine & vbCrLf. J'aimerai maintenant lire le aBloc (de type String) ligne par ligne.

Y a-t-il une méthode pour ça ?

Pourquoi relire chaque bloc ligne par ligne ? Tu as déjà lu chacune des lignes pour les stocker dans des blocs, tu ne peux pas en profiter pour faire ton traitement de la ligne à ce moment là ? ça éviterait d'avoir à lire chaque lignes 2 fois ... Qu'est-ce que tu veux faire exactement fonctionnellement ?

Merci pour ton aide !

En fait il y a des données du type

Mode de controle : xxxxxx

Avant je faisais

Code:

---

1 2 3 4 5 6

If currentLine.Contains("Mode de controle") Then ModeCtrl = aBloc.Replace(" ", "")   'Traitements ...   End If

---

Sauf que maintenant je peux plus et en plus, le nombre de "xxxx" de mode de contrôle ne sont pas fixes :?



EDIT : Comme tu l'as dit ebastien, je vais essayer de faire ce traitement au premier passage ! :ccool:

Je n'ai pas bien compris le problème... Pour revenir à ta question, pour lire une string ligne par ligne, tu peux utiliser la méthode Split qui te retournera un tableau de chaine et lire chaque élément du tableau.
Maintenant je ne suis pas sûr que conceptuellement tout ça soit vraiment optimisé...

eb.