Discussion :

[zebrette]

Bonjour,

J'essai de transformer en String une List(Of Obj), LOf, tel que:
- Les Obj soient convertis en String
- Les items, Obj, soient séparés par des ";"

J'ai "overrider" (c'est comme ca qu'on dit?) la méthode ToString de ma classe Obj. Et j'essaie des choses comme String.Join(LOf,";").

Mais la méthode Join ne semble pas s'appliquer au List(Of T), j'ai aussi essayé des choses comme String.Join(CType(LOf,String()),";") mais le CType ne veut pas me convertir mes Obj dans leur forme ToString appropriée.

Donc la seule solution "succincte" que j'ai trouvé, et que je considère un peu pompeuse c'est:

Code :

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

Join(LOf.ConvertAll(OfString)(Function(o As Obj) o.ToString).ToArray, ";")

N'y a t il pas plus simple qu'un ConvertAll avec lambda pour faire ca?

Merci de vos idées,
Zebrette

[Pol63]

Code :

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

join((from o as object in lof select o.tostring),";")

[zebrette]

Merci de ta réponse pol63.
Mais j'obtiens une erreur

Range variable name cannot match the name of a member of the object class

En même temps je ne connais LINQ que de nom, c'est peut être simple... peut être que je dois m'y pencher.

[Edit1]
Et il semblerai que même si je résoud le conflict de nom en créant une function bidon, disons PoString(), j'ai toujours un problème de conversion car le résultat de la requete LINQ est un IEnumerable(Of String) qui ne semble pas supporter la fonction join que j'essayais.

[Edit2]

Code :

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

Join((From o As Object In Lof Select o.PoString).ToArray, ";")

manquait juste le ToArray.
Mais j'ai toujours ce conflict de nom...


Zebrette

[Pol63]

et

Code :

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

Join((From aaa As Object In Lof Select aaa.PoString).ToArray, ";")

?

[zebrette]

Lol, non, j'aurais du préciser: C'est la fonction ToString qui est en conflict, pas le nom de l'objet.

apparement, c'est parce que la Methode ToString de mon Objet est en conflict avec la méthode ToString du Type de IEnumerable(Of Type) renvoyé par la requete Link... il vaut mieux lire ca: MSDN

bref avec la méthode PoString ca marcherait, mais comme j'utilise ailleurs la méthode ToString de mon Objet, je suis revenu à ma solution initiale...

[MABROUKI]

bonjour zebrette
Tout depend comment tu as implemente ta methode toString dont on ne voit pas le code..............
Mais voici un un exemple d'implementation qui
1/ binde List(of Person) à un ListBox1 sans preciser ListBox1.DisplayMember ce qui oblige ListBox1 à utiliser Person.ToString .

2/ Parcourt direct de List(of Person) et affichage de chaque element-p- en faisant appel à p.ToString .....

3/utilise le code fourni par Pol63....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
Public Class Form1
    Private ListPersons As List(Of Person)
    Private p As Person
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
 
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ListPersons = New List(Of Person)
        Dim rnd As Random = New Random
 
        For i As Integer = 0 To 9
            Me.p = New Person("Paul" & (i + 1).ToString, "Michel" & (i + 1).ToString, Date.Now, rnd.NextDouble * 1000)
            Me.ListPersons.Add(p)
        Next
        Me.ListBox1.DataSource = Me.ListPersons
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.ListPersons IsNot Nothing Then
            For Each p As Person In Me.ListPersons
                Me.ListBox2.Items.Add(p.ToString)
            Next
        End If
    End Sub
End Class
Class Person
    Public Sub New(ByVal fn As String, ByVal ln As String, ByVal bd As Date, ByVal ac As Decimal)
        m_FName = fn
        m_LName = ln
        m_Account = ac
        m_BirthDate = bd
    End Sub
    ' Expose a custom type from a bound property
    Private m_FName As String
    Public Property FName() As String
        Get
            Return m_FName
        End Get
        Set(ByVal value As String)
            m_FName = value
 
        End Set
    End Property
    Private m_LName As String
    Public Property LName() As String
        Get
            Return m_LName
        End Get
        Set(ByVal value As String)
            m_LName = value
 
        End Set
    End Property
    Private m_BirthDate As Date
    Public Property BirthDate() As Date
        Get
            Return m_BirthDate
        End Get
        Set(ByVal value As Date)
            m_BirthDate = value
 
        End Set
    End Property
    Private m_Account As Decimal
    Public Property Account() As Decimal
        Get
            Return m_Account
        End Get
        Set(ByVal value As Decimal)
            m_Account = value
 
        End Set
    End Property
    'note que les espaces inseres avant et apres le pt-virgule  
    'dans la chaine de formatage  compte
    Public Overrides Function ToString() As String
        Return String.Format("Nom :{0} ;  Prenom : {1}; Compte : {2} ; DateNaissance : {3}", Me.LName, _
       Me.LName, Me.Account, Me.BirthDate.ToShortDateString)
 
    End Function
 
End Class

A noter que ce qui vient d'etre dit s'applique meme si ton objet Person est "complexe" (par exemple Person comporte une prop Client ..... à condition que le class Client bien sur overrides sa methode convenablement)......les appels à toString sont fait en cascade...............
Bon code................

[Pol63]

en effet je viens de tester, c'est la première fois que je vois ce problème, linq n'aimerait pas les .ToString ...

pour y remédier tu peux faire une autre fonction ou une readonly property sur ta classe qui return me.tostring et l'utiliser dans linq

ou sinon tu fais comme à l'ancienne avec un for each, qui avec un stringbuilder sera certainement plus performant