Можно ли передать универсальный тип в SortedList (Of String, Generic Type) - PullRequest
Новая
       10

Можно ли передать универсальный тип в SortedList (Of String, Generic Type)

0 голосов
/ 07 октября 2018

В настоящее время у меня есть несколько Structure и SortedList: 

 Public Structure Membres
    Dim NoMembre As String
    Dim TypeMembre As String
    Dim LangCode As String
    Dim MembreNom As String
    Dim MembrePrenom As String
    Dim MembreAdresse As String
    Dim MembreVille As String
    Dim ProvCode As String
    Dim MembreCodePostal As String
    Dim MembreNoTel As String
    Dim MembreEMail As String
End Structure

Public Structure Provinces
    Dim ProvCode As String
    Dim ProvDesc As String
End Structure

Public Structure Langues
    Dim LangCode As String
    Dim LangDesc As String
End Structure

Public Structure TypesMembres
    Dim TypeMembre As String
    Dim TypeMembreDesc As String
End Structure

Public FicheMembre As New SortedList(Of String, Membres)
Public FicheProvince As New SortedList(Of String, Provinces)
Public FicheLangue As New SortedList(Of String, Langues)
Public FicheTypeMembre As New SortedList(Of String, TypesMembres)

Чего я хотел бы добиться, так это передать в качестве параметра параметр в любой из этих SortedList как общий Type form: 

Private Function readTxt(list As SortedList(Of String, Generic Type), path 
As String)

Теперь возможно ли это сделать и как мне этого добиться?

Я уже пытался передать Object, Type и т. д.Никто не работал.Может быть, я что-то здесь упускаю?

Вот что я попробовал, но не смог: 

Private Function ReadTxt(Of T)(list As SortedList(Of String, T), path As String) As SortedList(Of String, T)

    Dim reader As System.IO.StreamReader
    reader = IO.File.OpenText(path)
    Dim str As String()
    Dim i As Integer = 0
    Do While reader.Peek <> -1
        Dim line As String = reader.ReadLine
        Dim key As String = line.Substring(0, line.IndexOf("|"))

        If Not (list.ContainsKey(key)) Then
            str = line.Split("|")
            list.Add(key, getMembre(str))
        End If
        i += 1
    Loop
    Return list
End Function

Моя реализация ОТВЕТ : 

    Private Function GetLists(Str As String(), t1 As Object) As Object

    Dim m As Membres
    Dim p As Provinces
    Dim tm As TypesMembres
    Dim l As Langues

    Select Case True
        Case TypeOf t1 Is Membres
            m.NoMembre = Str(0)
            m.MembreNom = Str(3)
            m.MembrePrenom = Str(4)
            m.MembreAdresse = Str(5)
            m.MembreVille = Str(6)
            m.ProvCode = Str(7)
            m.MembreCodePostal = Str(8)
            m.MembreNoTel = Str(9)
            m.MembreEMail = Str(10)
            m.LangCode = Str(2)
            m.TypeMembre = Str(1)
            Return m
        Case TypeOf t1 Is Provinces
            p.ProvCode = Str(0)
            p.ProvDesc = Str(1)
            Return p
        Case TypeOf t1 Is TypesMembres
            tm.TypeMembre = Str(0)
            tm.TypeMembreDesc = Str(1)
            Return tm
        Case TypeOf t1 Is Langues
            l.LangCode = Str(0)
            l.LangDesc = Str(1)
            Return l
    End Select

End Function

Private Function ReadTxt(Of T)(list As SortedList(Of String, T), path As String, args As Object) As SortedList(Of String, T)
    Dim reader As System.IO.StreamReader
    reader = IO.File.OpenText(path)
    Dim str As String()
    Do While reader.Peek <> -1
        Dim line As String = reader.ReadLine
        Dim key As String = line.Substring(0, line.IndexOf("|"))

        If Not (list.ContainsKey(key)) Then
            str = line.Split("|")
            list.Add(key, GetLists(str, args))
        End If
    Loop
    Return list
End Function

Private Sub GetProvName()

End Sub

Это сработало для меня, поскольку я хотел знать только тип структуры, передаваемой в качестве параметра.

1 Ответ

0 голосов
/ 08 октября 2018

Чтобы сделать метод универсальным, вам нужно добавить хотя бы один параметр типа.Синтаксис для параметров типа в VB.NET: (Of T1, T2, ...).

Поэтому ваша функция должна выглядеть примерно так: 

Private Function ReadTxt(Of T)(list As SortedList(Of String, T), path As String) As String
    ' Your code here.
End Function

Использование: 

ReadTxt(FicheMembre, "SomeString")
ReadTxt(FicheProvince, "SomeString")
'
' etc.

Ссылки:

...