linq - ajouter index de ligne

Bonjour à tous,

Je souhaiterais ajouter un numéro de ligne dans un fichier texte grâce à la fonction linq...

Pour le moment, je ne travail qu'avec deux variables :
EntireText qui prend en mémoire le fichier texte
NewText qui modifie EntireText pour mettre les 19 premiers caractères de chaque ligne sous forme d'une date
(çà me permet ensuite de l'exploiter) :

Code:

---

1 2 3

EntireText = System.IO.File.ReadAllLines(openFile1.FileName) NewText = (From TheLines In EntireText Select Convert.ToDateTime(LSet(TheLines, 19)) & Mid(TheLines, 20)).ToArray

---

Je souhaiterais que la variable NewText prenne en plus l'indice de la ligne mais je ne vois pas trop comment faire...

Le code suivant ne marche pas :

Code:

---

1 2	NewText = (From TheLines In EntireText Select MyLineNumber & " " & Convert.ToDateTime(LSet(TheLines, 19)) & Mid(TheLines, 20)).ToArray

---

Code:

---

1 2 3 4 5

Public Function MyLineNumber() As Long If MyLineNumber = Nothing Then MyLineNumber = 0 MyLineNumber = MyLineNumber + 1 Return MyLineNumber End Function

---

J'ai trouvé ce sujet qui pourrait aider mais je n'y arrive pas pour autant :mrgreen:

Merci d'avance!

Tu peux utiliser la surcharge de la méthode Select proposée par LinQ To Object. Cela te permet de faire ceci :

Code:

---

1 2 3

Dim query = _ fruits.Select(Function(fruit, index) _ New With {index, .Str = fruit.Substring(0, index)})

---

Bonjour,

Je te remercie mais je n'arrive pas à exploiter ta réponse... :lol:

Je dois tout d'abord déclarer fruits (dim fruits as object ?!)
Après quoi il me met un warning disant que fruits est utilisé avant qu'une valeur ne lui soit assignée.

Puis quand je démarre le programme, il bugg sur cette ligne avec pour notif : "L'exception NullReferenceException n'est pas gérée - Variable objet ou variable d'un bloc With non définie."

Tu pourrais m'en dire plus stp?

Enfaite c'est bon, j'ai trouvé ta reference ;-)

Merci

J'ai réussi!

C'est tiré par les cheveux mais çà marche!

Code:

---

1 2 3 4 5 6 7 8 9 10

EntireText = System.IO.File.ReadAllLines(openFile1.FileName) 'NewText = (From TheLines In EntireText ' Select Convert.ToDateTime(LSet(TheLines, 19)) & Mid(TheLines, 20)).ToArray Dim query = EntireText.Select(Function(EntireText, index) New With {index, EntireText}) Dim output As New System.Text.StringBuilder For Each obj In query output.AppendLine(RSet(obj.index, 6) & " " & obj.EntireText) Next RichTextBox1.Text = output.ToString() NewText = RichTextBox1.Lines

---

merci DotNetMatt de m'avoir mis sur la piste

Par contre, si quelqu'un sait comment transformer

Code:

---

1 2	RichTextBox1.Text = output.ToString() NewText = RichTextBox1.Lines

---

en une ligne qui ressemblerait à

Code:

---

NewText = output.ToString()

---

mais qui marche (NewText est un tableau); je suis preneur!

J'imagine qu'il faudra transformer l'intérieur de la boucle :

Code:

---

output.AppendLine(RSet(obj.index, 6) & " " & obj.EntireText)

---

En attendant, je classe le sujet comme résolu =)

tu peux sans doute utiliser quelque chose dans ce goût là :

Code:

---

1 2 3 4 5 6 7 8

NewText = IO.File.ReadLines(openFile1.FileName). Select(Function(line, index) New With {Key index, Key line}). Aggregate(New List(Of String), Function(list, item) list.Add(String.Format("{0,6} {1}", item.index, item.line)) Return list End Function, Function(list) list.ToArray)

---

Aggregate sert à "construire" une valeur par accumulation, elle fonctionne ainsi, à partir d'une valeur initiale (ici new List(Of String)) on parcourt la collection (ici le résultat du select, soit une collection des index/lignes)) avec la valeur accumulée jusque là, et on renvoie la nouvelle valeur accumulée. Donc ici pour chaque couple index/ligne on les ajoute formatés à la liste et on la renvoie (on est obligé d'utiliser une lambda multiline car List.Add ne renvoie pas de valeur [on pourrait faire une méthode d'extension sur List pour cela]). le troisième paramètre d'Aggregate, sert à transformer l'accumulation finale en autre chose, ici on transforme la liste en tableau pour qu'elle soit du type de NewText ; on aurait pu s'en passer et directement faire un ToArray sur le résultat d'Aggregate.