Passer des list of() en parametre

Version imprimable

14/03/2009, 21h00
Flamby38

Passer des list of() en parametre

Bonjour,

j'ai un probleme en apparence assez simple et pourtant je n'ai pas la moindre idée de comment le résoudre.

J'aimerais une fonction qui me transforme une liste (list of(xxx)) en une chaine de caracteres string.
par exemple une liste d'entiers qui contient les éléments 1, 2 et 3 serait transformée en la chaine de caracteres "1;2;3".

C'est vraiment basique, sauf que je voudrais implementer ca pour une liste quelconque, c'est à dire que j'aimerais que ca marche pour une liste d'entier, pour une liste de string, pour une liste de n'importe quoi.

et je suis bloqué car je ne sais pas comment passer en parametre de ma fonction une liste de "n'importe quoi".

Private function transformer( Byval liste as ????)

ou alors il faudrait que je cree une classe qui hérite de l'objet list of, je ne sais pas.

Si quelqu'un sait comment faire ou a une idée je suis preneur.

Merci beaucoup pour votre aide.

Pourquoi pas une fonction elle même générique ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Overridable Function StringRepresentation(Of T)(ByVal lst As List(Of T)) As String
    If lst Is Nothing Then
        Throw New ArgumentNullException("lst")
    Else
        Dim result As String = ""
        For i As Integer = 0 To lst.Count - 1
            If ReferenceEquals(lst(i), Nothing) Then
                result += "null" ' cas pathologique 
            Else
                result += lst(i).ToString()
            End If
 
            If i + 1 < lst.Count Then
                result += ";"
            End If
        Next
 
        Return result
    End If
End Function

Pour faire encore plus générique, tu peux faire un fonction qui prend en paramètre un IEnumerable... Toutes les collections et tableaux implémentent cette interface.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Overridable Function StringRepresentation(ByVal lst As IEnumerable) As String
    If lst Is Nothing Then
        Throw New ArgumentNullException("lst")
    Else
        Dim result As New StringBuilder()
        For Each item As Object In lst
            If result.Length > 0 Then
                result += ";"
            End If
            If ReferenceEquals(item, Nothing) Then
                result += "null" ' cas pathologique 
            Else
                result += item.ToString()
            End If
        Next
 
        Return result.ToString()
    End If
End Function

14/03/2009, 21h51
Pol63
et avec un peu de chance sur le framework 3.5 il suffit de faire
Code:

1 2 3 4 Public Function ConcatListe(Of T)(ByVal lst As List(Of T)) As String Return Join(lst.Cast(Of Object).ToArray, ";") End Function
il est meme possible de faire des extend de classe pour que l'intellisense propose de faire .ConcatList sur tous les List(Of T)
15/03/2009, 02h07
Flamby38

Merci a vous tous pour vos réponses, je les note soigneusement et je teste tout ca lundi.
Je mets déjà le résolu parce que je pense qu'avec ces exemples j'arriverais sans probleme à faire ce que je veux.

Merci pour le coup de pouce :king: