Conversion d'un List(Of String) en String possible ?

Bonjour à tous, j'ai besoin d'un peu d'aide !

Donc j'ai ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then For Each Line As String In System.IO.File.ReadLines(FilePath) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Chart.DataContext = MyValue Else FilePath = Nothing End If

---

Ceci me permet d'afficher ce qu'il y a dans FilePath (Fichier Csv affiché sous forme de courbe), donc ce qu'il y a dedans est un string, sauf que j'ai dans une autre fénêtre :

Code:

---

CD.FilePath = CM.ItemsSelected

---

et donc ItemsSelected est de type List(Of String), donc FilePath ne reçoit pas de string mais une liste de string... car ItemsSelected reçoit ce que l'utilisateur a sélectionné, ce sont des items dans une listbox :

Code:

---

1 2 3

For Each Item As SignalDef In Listbox1.SelectedItems ItemsSelected.Add((Item.SignalPath) + "\" + (Item.SignalName)) Next

---

Donc je résume FilePath est une variable globale de type String (Public FilePath As String) et ItemsSelected est aussi une varibale globale de type List(Of String) (Public ItemsSelected As New List(Of String))
Enfin FilePath reçoit les valeurs de ItemsSelected donc reçoit une liste de string or lui est un string et donc vous me direz pourquoi ne pas déclarer FilePath en List(Of String) ? Parce que dans ma boucle For Each j'utilise ReadAllLines(FilePath) et ReadAllLines n'accepte que des string et pas de List(Of String).
J'ai pensé a une boucle dans une boucle du style :

Code:

---

1 2 3 4 5

For Each "String" in FilePath 'un truc comme ça... For Each Line As String In System.IO.File.ReadLines(FilePath) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Next

---

Qu'en pensez vous svp ?? Besoin d'aide ! Posez moi vos questions si vous n'avez pas compris.

Bonjour,

Pourquoi ne déclares-tu pas une autre propriété (ou champs) de type List(Of String):

Code:

---

CD.SelectedItems

---

Ensuite tu travailles avec ...... ainsi tu conserves :

Code:

---

CD.FilePath

---

????

En fait lorsque je fais

Code:

---

CD.FilePath = CM.ItemsSelected

---

c'est un lien que je fais entre CM.xaml.vb et CD.xaml.vb je m'explique :

Dans ma fenêtre A.xaml.vb j'ai un bouton confirme et lorsque je clique sur confirme alors la liste de string stockée dans la variable ItemsSelected est donnée à la variable FilePath.
ItemsSelected se situe dans CM.xaml.vb et FilePath dans CD.xaml.vb.

Donc tu me dis de créer une nouvelle variable SelectedItems de type List(Of String) dans CD.xaml.vb ? Mais je crois que ça change rien car dans ma boucle j'ai

Code:

---

For Each Line As String In System.IO.File.ReadLines(FilePath)

---

et ReadAllLines ne prend que des strings. Donc il faut que FilePath soit un string. Or dans ItemsSelected je stock une List(Of String) !

Je sèche... car mm si je créer une nouvelle variable SelectedItems de type List(Of String) dans CD.xaml.vb il faut bien que j'alimente FilePath ???


Edit :

J'ai fait ça mais infructueux vu que ReadAllLines ne peut pas lire plusieurs string... :

Code:

---

1 2 3 4 5 6 7

Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") Dim SelectedItems As String = String.Join(" + ", FilePath) 'j'ai essayé comme séparateur " , " mais ne fonctionne pas non plus... If FilePath IsNot Nothing Then For Each Line As String In System.IO.File.ReadLines(SelectedItems) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next

---

Des idées svp ???!

Je pense à faire un autre boucle qui dirait de selectionner le 1er string dans SelectedItems, puis le 2nd etc... Quelqu'un voit comment faire ?

A ce stade il faut nous donner davantage de contenu car on ne sait pas comment tu fais pour passer tes références entre formulaires WPF :

- Code complet de CD et CM ?
- et à quel moment tu ouvres chaque forms, l'action menée donc le code ?

A mon avis tu as un gros problème de conception dans ton projet (avec autant de form Wpf)...... ou alors tu ne sais pas passer de valeurs entre tes Forms Wpf grâce au constructeur :aie: :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Class CD   'Tu peux aussi le déclarer en public pour que cette variable soit acessible par la suite durant la durée de vie de l'instance de CD..... Private m_Items As List(Of String)   Sub New(Items As List(Of String)) InitializeComponent() m_Items = Items End Sub End Class

---

- Comment déclarer et passer une valeur par le constructeur entre 2 forms

Code:

---

1 2 3

Dim frmCD As New CD(ListBox1.SelectedItems) frmCD.ShowDialog()

---

à suivre.....

Bonjour Merci pour tes réponses,

Donc

Citation:

---

- Code complet de CD et CM ?
- et à quel moment tu ouvres chaque forms, l'action menée donc le code ?

---

Malheureusement je ne peux pas donner le code complet (sinon je l'aurai fait directement) vu que je travaille pour une entreprise connue, le code est donc confidentiel.

Oui il y a pas mal de form, je n'ai pas compté mais minimum une 20aine (peut être 25), c'est un gros logiciel...

Citation:

---

A mon avis tu as un gros problème de conception dans ton projet (avec autant de form Wpf)...... ou alors tu ne sais pas passer de valeurs entre tes Forms Wpf grâce au constructeur :

---

Le projet je ne l'ai pas conçu, je suis dessus depuis décembre et le projet existait déjà. Donc c'est compliqué de rentrer dans un projet en cours...

Donc je vais voir ce que tu m'as donné et je reviens poster !

Merci encore.

Je comprends pour la close de confidentialité.;)
Cependant, pourquoi ne pas faire un mini projet exemple (simplifié) car en l'état la problématique se situe entre un fichier .csv (données extraites), une ListBox, 2 variables avec 3 form Wpf ? Tu pourrais reproduire la problématique et je pourrais davantage t'aider si tu communiques ce mini-projet (sans données sensibles bien entendu).
Le fait de faire des mini-projets résous bien des problèmes liés à la conception ou la compréhension.... Oui certes tu perds un peu de tps mais parfois le jeu en vaut la chandelle. :mouarf:

A voir,

(Je signal que je suis débutant, car étudiant (stage))

Citation:

---

la problématique se situe entre un fichier .csv (données extraites), une ListBox, 2 variables avec 3 form Wpf ?

---

c'est ça !

Citation:

---

Cependant, pourquoi ne pas faire un mini projet exemple (simplifié)

---

J'y ai pensé et j'y pense de plus en plus,

Citation:

---

Oui certes tu perds un peu de tps mais parfois le jeu en vaut la chandelle.

---

et tu vises juste, ce qui me freine est le manque de temps malheureusement...

Je termine ce que je suis en train de faire et si cela ne fonctionne pas alors je n'ai pas d'autre choix que de tenter le mini projet lol.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Sub ShowChart() Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then For Each item As String In FilePath For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Next Chart.DataContext = MyValue Else FilePath = Nothing End If End Sub

---

J'ai rajouté une boucle For Each item As String In FilePath, qui sélectionne chaque string dans FilePath un par un, cela fonctionne pas de prob sauf que je n'ai pas 2 courbes superposées je te montre :

Courbes 1 (je précise ce sont des courbes bidons inventées par moi mm pour l'exemple) :

Pièce jointe 397513

Courbe 2 :

Pièce jointe 397514

Affichage des 2 courbes qui normalement sont superposées donc 2 courbes et non pas une :

Pièce jointe 397518

Donc je cherche pour le moment à avoir 2 courbes sur le mm plan c'est à dire dans le mm grid.

Edit :
Oui en fait je viens de penser, j'ai la variable "MyValue" qui est la mm pour mes 2 courbes (mes 2 strings (un string contient le chemin d'accès à un csv et donc à partir de ce csv je trace une courbe)).
Il me faudrait peut être une nouvelle variable.

Bon concrètement :

Ok je crois entrevoir une solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim filesPathList As New List(Of String) filesPathList.Add("D:\File1.Csv") filesPathList.Add("D:\File2.Csv") filesPathList.Add("D:\File3.Csv")   Dim filePath As String = string.empty If filesPathList.count > 1 Then filePath = String.Join("|", filesPathList.ToArray) Elseif filesPathList.count = 1 filePath = filesPathList(0) End If

---

Et là du coup ca pourrait coller :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Sub ShowChart() Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then If FilePath.contains("|") Then For Each item As String In FilePath.Split("|") For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Next Else For Each Line As String In System.IO.File.ReadAllLines(FilePath) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next End If Chart.DataContext = MyValue Else FilePath = Nothing End If End Sub

---

Merci énormément de prendre le temps de me fournir des codes !!!

Donc j'ai un prob par rapport FilePath.Split("|"), en effet j'ai une erreur ==> Split n'est pas un membre de List(Of String) car FilePath est de type List(Of String) et ce n'est donc pas un string. Cependant j'ai déjà tenté une méthode similaire mais ça n'a pas fonctionné...

Je reviendrai régulièrement pour montrer mon avancement.

Merci sincèrement Wallace1 pour le temps que tu prends pour me répondre !

Citation:

---

Envoyé par ism10

Merci énormément de prendre le temps de me fournir des codes !!!

Donc j'ai un prob par rapport FilePath.Split("|"), en effet j'ai une erreur ==> Split n'est pas un membre de List(Of String) car FilePath est de type List(Of String) et ce n'est donc pas un string. Cependant j'ai déjà tenté une méthode similaire mais ça n'a pas fonctionné...

---

Tu m'as dis plus haut que FilePath est de type String :

Citation:

---

Donc je résume FilePath est une variable globale de type String (Public FilePath As String)

---

????????????????????????????????????????????
??????????????????????????????????????????

Citation:

---

Il me faudrait peut être une nouvelle variable.

---

Ce que je te propose depuis le début.....

J'ai une idée !

Je pense à faire ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Sub showChart() Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim MyValue2 As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then For Each item As String In FilePath For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) 'ici j'ai envie d'utiliser un if qui dirait :" si il y a plusieurs string dans FilePath, donc plusieurs item, alors la boucle 1 ne prend que le 1er item et passe a la boucle suivante qui prend le 2nd item etc... sinon elle s’arrête et passe à Chart.DataContext = MyValue et Chart.DataContext = MyValue2 Next For Each Line As String In System.IO.File.ReadAllLines(item) MyValue2.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Next Chart.DataContext = MyValue Chart.DataContext = MyValue2 Else FilePath = Nothing End If End Sub

---

Edit :

Citation:

---

Tu m'as dis plus haut que FilePath est de type String :

---

Effectivement c’était bien un string au moment ou je t'avais répondu sauf qu'entre temps j'ai modifié le code et maintenant c'est un type List(Of String). Désolé c'est une erreur de ma part de ne pas l'avoir signalé !

Sinon oui tu avais raison au sujet d'une nouvelle variable. Que dis tu de ce que j'expose un peu plus haut ?

Pour l'instant j'ai fait ça mais c'est pas du tt dynamique...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Sub showChart()   Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim MyValue2 As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";")   If FilePath IsNot Nothing Then   Dim item As String = FilePath(0) 'For Each item In FilePath For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Dim item2 As String = FilePath(1) For Each Line As String In System.IO.File.ReadAllLines(item2) MyValue2.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next 'Next Chart.DataContext = MyValue Chart.DataContext = MyValue2 Else FilePath = Nothing End If End Sub

---

Si jamais j'ai 3 ou 4 courbes à surperposer je ne vais pas créer plusieurs items... il faut que je trouve un moyen de le faire dynamiquement avec qu'un seul item et au premier tour de boucle item prend le 1er string de la liste, puis au second tour il prend le 2nd string etc...

By the way ça ne fonctionne pas lol, je n'ai pas d'erreur mais je n'arrive pas a les superposer...

Code:

---

1 2 3 4 5 6

Public Sub CommandBinding_Confirm (ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs) CM.Visibility = Visibility.Collapsed CD.Visibility = Visibility.Visible CD.FilePath = CM.ItemsSelected CD.ShowChart() End Sub

---

C'est ici que j'appelle ShowChart, devrais-je faire une boucle qui dirait d'appeler ShowChart autant de fois qu'il y a d'items ?? Je ne sais pas...
On m'a parlé aussi de "serie" comme on peut le voir sur les photos que j'ai posté hier (le poste de 14h57) on voit marqué Serie 1 à droite de la courbe, si j'ai une deuxième courbe superposée il faudrait peut etre qu'il y ait marqué serie 1 et serie 2 ?
Bref je suis un peu perdu.
Help !

Citation:

---

Si jamais j'ai 3 ou 4 courbes à surperposer je ne vais pas créer plusieurs items... il faut que je trouve un moyen de le faire dynamiquement avec qu'un seul item et au premier tour de boucle item prend le 1er string de la liste, puis au second tour il prend le 2nd string etc...

---

Ca se traduit comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then For Each item As String In FilePath For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Next Else FilePath = Nothing End If Chart.DataContext = MyValue

---

Ca ne fonctionne pas comme ca ??

Bonjour Wallace1,

Si cette méthode fonctionne c'est ce que j'avais fait au début mais en fait avec cette méthode Myvalue récupère les 10 points de mon premier item puis les 10 points de mon second item (il faut savoir que FilePath possède 2 string dans sa liste (car je n'ai fait que 2 sélections) donc 2 strings = 2 items).
Voilà une image afin que tu comprennes ce que je dis :
MyValue lors du 1er tour de boucle donc avec le 1er item :

Pièce jointe 397754

MyValue lors du 2nd tour de boucle donc 2nd item :

Pièce jointe 397761

Tu vois qu'il y a les 10 pts de l'item 1 et les 10 autres de l'item 2.

D'où le fait que ShowChart ne me trace qu'une seule courbe. Il aurait fallu 2 variables MyValue la 1ere reçoit les 10 pts de mon 1er item et la seconde variable MyValue2 recoit les 10 pts de mon 2nd item, sauf que ce n'est pas du tt dynamique aussi car il faut autant de variable qu'il y a d'item...

Je ne sais pas comment fonctionne le DataContext mais si tu le positionne dans le 1er bouclage ca donne quoi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then For Each item As String In FilePath For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Chart.DataContext = MyValue Next Else FilePath = Nothing End If

---

Le tracé conserve-t-il uniquement la dernière donnée inscrite ?

Bonne idée mais je viens de tester et il fonctionne de la même manière.

Donc dans ce cas il faut utiliser un itemsource
Et tu ajoutes tes points grâce à chart.series.add
donc qui dit itemsource dit la mise en place d un bindingsource côté xaml.
Je vais finir par faire un mini projet....:aie:

L'xaml est bien chargé :D !

Citation:

---

Je vais finir par faire un mini projet....

---

Je crois aussi haha :lol:

Je reviens ici pour dire ou j'en suis !

Merci encore Wallace1 pour ton aide !

Pour tes chart tu utilises le Wpf Toolkit ?

Oui Toolkit !

D'ailleurs voici ce que j'ai fait :

ça c'est ce que j'avais (enfin c'est moi qui l'ai fait lol) :

Code:

---

1 2 3 4 5 6 7 8 9 10

<chartingToolkit:Chart.Series> <chartingToolkit:LineSeries Name="A" DependentValuePath="Value" IndependentValuePath="Key" ItemsSource="{Binding}" IsSelectionEnabled="True"> <chartingToolkit:LineSeries.DataPointStyle> <Style TargetType="chartingToolkit:LineDataPoint"> <Setter Property="Opacity" Value="0" /> <Setter Property="Background" Value="White" /> </Style> </chartingToolkit:LineSeries.DataPointStyle> </chartingToolkit:LineSeries> </chartingToolkit:Chart.Series>

---

et ensuite j'ai fait un simple copié collé pour la serie 2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

<chartingToolkit:Chart.Series> <chartingToolkit:LineSeries Name="A" DependentValuePath="Value" IndependentValuePath="Key" ItemsSource="{Binding}" IsSelectionEnabled="True"> <chartingToolkit:LineSeries.DataPointStyle> <Style TargetType="chartingToolkit:LineDataPoint"> <Setter Property="Opacity" Value="0" /> <Setter Property="Background" Value="White" /> </Style> </chartingToolkit:LineSeries.DataPointStyle> </chartingToolkit:LineSeries> <chartingToolkit:LineSeries Name="B" DependentValuePath="Value" IndependentValuePath="Key" ItemsSource="{Binding}" IsSelectionEnabled="True"> <chartingToolkit:LineSeries.DataPointStyle> <Style TargetType="chartingToolkit:LineDataPoint"> <Setter Property="Opacity" Value="0" /> <Setter Property="Background" Value="Red" /> </Style> </chartingToolkit:LineSeries.DataPointStyle> </chartingToolkit:LineSeries> </chartingToolkit:Chart.Series>

---

J'obtiens maintenant ça :

Pièce jointe 397791

ce qui est plutôt pas mal pour l'instant

Avec ce post on visualisera mieux le problème :

Cosinus :

Pièce jointe 397802

Sinus :

Pièce jointe 397806

et enfin les 2 courbes qui sont censées se superposer :

Pièce jointe 397807

Oh mon Dieu que c'est moche...

Le problème réside toujours dans le fait je pense que je n'ai qu'une variable "MyValue" et ttes les valeurs lui sont donnés donc forcement je n'ai qu'une courbe au lieu de 2...

Edit :
Je viens de voir avec mon tuteur de stage je pense que ce n'est pas la bonne méthode que de passer par le xaml... car c'est du statique or je veux quelque chose de dynamique c'est à dire à chaque sélection d'item dans ma listbox une série s'ajoute dans mon graphe

Citation:

---

Envoyé par ism10

....
.....
Edit :
Je viens de voir avec mon tuteur de stage je pense que ce n'est pas la bonne méthode que de passer par le xaml... car c'est du statique or je veux quelque chose de dynamique c'est à dire à chaque sélection d'item dans ma listbox une série s'ajoute dans mon graphe

---

Bon bah du coup ca va être carrément plus simple :aie::aie:

Citation:

---

Bon bah du coup ca va être carrément plus simple

---

Mouais pas si sûr.... haha :lol:

J'galère pas mal il m'a juste dit de ne pas passer par l'xaml...

Je suis toujours au point zero lol

CM.vb :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))() Dim Separator As Char = CChar(";") If FilePath IsNot Nothing Then For Each item As String In FilePath For Each Line As String In System.IO.File.ReadAllLines(item) MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1)))) Next Chart.DataContext = MyValue Next Else FilePath = Nothing End If

---

A.vb (où on retrouve mon bouton confirme et où j'appelle ShowChart) :

Code:

---

1 2 3 4 5 6

Public Sub CommandBinding_Confirm (ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs) CM.Visibility = Visibility.Collapsed CD.Visibility = Visibility.Visible CD.FilePath = CM.ItemsSelected CD.ShowChart() 'peut être faire une boucle ici End Sub

---

S'il te dit de n'afficher que les courbes lorsqu'on sélectionne un élément de la listBox alors tu dois simplement mettre ta routine de chargement de chart dans l'event ListBox.SelectionChanged en récupérant ton objet avec ListBox.SelectedItem ??

Citation:

---

ta routine de chargement de chart dans l'event ListBox.SelectionChanged

---

C'est à dire ? Tu parles de Chart.datacontext = MyValue ??

Peux tu m'expliquer un peu plus en détail stp ?

Tu modifies le mode de sélection de ta ListBox :

Code:

---

1 2	SelectionMode= Single

---

Tu charges Ta ListBox avec les objets qui te permettent de connaitre le chemin de chaque fichier .csv. On est d'accord chaque fichier .csv contient plusieurs lignes qui permettent d'obtenir les points de chaque courbe...

Tu généres le gestionnaire d'évènement "SelectionChanged" de ta ListBox :

Code:

---

1 2 3 4

Public Sub ListBox1_SelectionChanged(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) Handles ListBox1.SelectionChanged   End Sub

---

Lorsque le collaborateur cliquera sur un élément de la ListBox alors tu charges la courbe dans ton chart :

Code:

---

1 2 3 4 5 6 7

Public Sub ListBox1_SelectionChanged(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) Handles ListBox1.SelectionChanged If not ListBox1.selectedItem is nothing then 'Ici la routine pour effacer le contenu dans le chart et charger le fichier .csv sélectionné dans la listbox ' Listbox1.selecteditem contient l'élement sélectionné de ta listbox end if End Sub

---

Un truc du genre ......

Bonjour,

c'est du moitié VBA, mais si ça peut donner des idées!

Avec LinQ il est possible de le caster en listes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Imports System.IOImports ADODB Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim cn As New ADODB.Connection ShemaIn() cn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=C:\MyRep" cn.Open() Dim objRecordset As Object = cn.Execute("SELECT * FROM test#csv") Dim ee = objRecordset.getrows End Sub Public Sub ShemaIn() Dim txt As String = "[test.csv]" & vbCrLf & "Format=Delimited(;)" Dim fso As Object, NewFichier As Object fso = CreateObject("Scripting.FileSystemObject") NewFichier = fso.OpenTextFile("C:\MyRep\schema.ini", 2, True) NewFichier.Write(txt) NewFichier.Close NewFichier = Nothing fso = Nothing End Sub End Class

---

Merci dysorthographie !

Je vais y jeter un œil, je n'ai toujours pas réussi....