Discussion :

[Symone]

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 :

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

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 :

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

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

Code :

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

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

Merci d'avance!

[DotNetMatt]

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

Code VB.NET :

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

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

[Symone]

Bonjour,

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

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?

[Symone]

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

Merci

[Symone]

J'ai réussi!

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

Code :

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

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

[Symone]

Par contre, si quelqu'un sait comment transformer

Code :

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

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

en une ligne qui ressemblerait à

Code :

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

            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 :

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

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

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

[Sehnsucht]

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

Code :

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

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.