Discussion :

[Jah73]

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 :

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

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

[Jean-Marie Grave]

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.

[hugoclo]

Peux tu nous mettre un exemple de ton fichier texte

[Jah73]

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 :

Machine : xxxxx

xxxxDonnées sur environ 100 lignes xxxx


Machine : xxxx

etc

[ebastien]

Bonjour,
Et un truc du genre :

Code :

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

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.

[Jah73]

Woua, merci ebastien !!

Aucune erreur, ça fonctionne parfaitement !

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

Merci à tous !

[ebastien]

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.

[Jah73]

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 ?

[ebastien]

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 ?

[Jah73]

Merci pour ton aide !

En fait il y a des données du type

Mode de controle : xxxxxx

Avant je faisais

Code :

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

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 !

[ebastien]

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.