VB - Listen, Arrays, Strings konvertieren

Veröffentlicht von General Bison am 11/20/2007

(1 Bewertungen)

eine Konvertierungsklasse (clsConvert), die sämmtliche Listen und Arrays Umwandelt.
Ich erweiter sie immer, wenn ich wieder etwas umgewandelt brauche.
Also wird dieses "Snippet" immer wieder aktualisiert werden ;)
Obwohl ich jede Umwandlung einzeln senden könnte, machts inner Klasse mehr sinn, denke ich.

Da dies meine erste veröffentlichte Klasse ist, bitte ich um etwas rücksichtnahme, Fehler bitte melden(alles oft benutzt aber man weis ja nie!) und nach korrektur bewerten ;)

DANKE!

Für das große Chaos haben wir Computer.
Die übrigen Fehler machen wir von Hand.
---------------------------------------

Letze Änderung: 11.01.2008 09:36
22.11.2007 18:08
20.11.2007 14:36

Public Class clsConvert
    ''' <summary>
    ''' Konvertiert ein Array in einen string
    ''' </summary>
    ''' <param name="Ar">Erwartet ein Stringarray</param>
    ''' <param name="Seperator">Ein Trennzeichen für die Arrays, Standard ist ", "</param>
    Public Function ArrayToString(ByVal ar() As String, Optional ByVal Seperator As String = ", ") As String
        Dim AtS As New System.Text.StringBuilder
        For i As Integer = 0 To ar.Length - 1
            AtS.Append(ar(i))
            If i <> ar.Length - 1 Then
                AtS.Append(Seperator)
            End If
        Next

        Return AtS.ToString
    End Function

    ''' <summary>
    ''' Konvertiert eine ListOfString in einen String
    ''' </summary>
    ''' <param name="lst">Die zu konvertierende Liste.</param>
    ''' <param name="Seperator">Ein Trennzeichen für die Arrays, Standard ist ", "</param>
    Public Overloads Function ConvListObject2String(ByVal lst As List(Of String), Optional ByVal Seperator As String = ", ") As String
        Dim str As New System.Text.StringBuilder
        For i As Integer = 0 To lst.Count - 1
            str.AppendFormat("{0}{1}", lst.Item(i), Seperator)
        Next
        Return str.ToString
    End Function

    ''' <summary>
    ''' Konvertiert eine ListOfString in ein Array
    ''' </summary>
    ''' <param name="lst">Die zu konvertierende Liste.</param>
    Public Overloads Function ConvListObject2Array(ByVal lst As List(Of String)) As String()
        'Dim Ar(lst.Count - 1) As String

        'For i As Integer = 0 To lst.Count - 1
        '    Ar(i) = lst.Item(i)
        'Next
        Return lst.ToArray
    End Function

    ''' <summary>
    ''' Konvertiert ein Array in eine ListOfString
    ''' </summary>
    ''' <param name="ar">Das zu konvertierende Array.</param>
    Public Overloads Function ConvArray2ListObject(ByVal ar() As String) As List(Of String)
        Dim StringList As New List(Of String)
        StringList.AddRange(ar)
        'For i As Integer = 0 To ar.Length - 1
        '    StringList.Add(ar(i))
        'Next
        Return StringList
    End Function

    ''' <summary>
    ''' Konvertiert Listbox-Einträge in eine ListOfString
    ''' und gibt sie zurück
    ''' </summary>
    ''' <param name="lst">Die Listbox, aus der die einträge entnommen werden sollen.</param>
    Public Overloads Function ConvListObject2ListOfString(ByRef lst As ListBox) As List(Of String)
        Dim StringList As New List(Of String)

        For i As Integer = 0 To lst.Items.Count - 1
            StringList.Add(lst.Items.Item(i))
        Next

        Return StringList
    End Function

    ''' <summary>
    ''' Konvertiert ComboBox-Einträge in eine ListOfString
    ''' und gibt sie zurück
    ''' </summary>
    ''' <param name="lst">Die ComboBox, aus der die einträge entnommen werden sollen.</param>
    Public Overloads Function ConvListObject2ListOfString(ByRef lst As ComboBox) As List(Of String)
        Dim StringList As New List(Of String)

        For i As Integer = 0 To lst.Items.Count - 1
            StringList.Add(lst.Items.Item(i))
        Next

        Return StringList
    End Function

#Region "ADD X to Listbox"
    ''' <summary>
    ''' Fügt einer Listbox eine ListOfString hinzu
    ''' </summary>
    ''' <param name="lst">Die Listbox, in die geschreiben werden soll.</param>
    ''' <param name="strngList">Die ListOfString, die in die Listbox geschrieben werden soll.</param>
    Public Overloads Function ConvListOfString2ListObject(ByRef lst As ListBox, ByVal strngList As List(Of String)) As ListBox
        For i As Integer = 0 To strngList.Count - 1
            lst.Items.Add(strngList.Item(i))
        Next

        Return lst
    End Function

    ''' <summary>
    ''' Fügt einer Listbox ein Stringarray hinzu
    ''' </summary>
    ''' <param name="lst">Die Listbox, in die geschreiben werden soll.</param>
    ''' <param name="strngList">Das Stringarray, das in die Listbox geschrieben werden soll.</param>
    Public Overloads Function ConvListOfString2ListObject(ByRef lst As ListBox, ByVal strngList() As String) As ListBox
        For i As Integer = 0 To strngList.Length - 1
            lst.Items.Add(strngList(i))
        Next

        Return lst
    End Function

#End Region

#Region "ADD X to ToolStripComboBox"
    ''' <summary>
    ''' Fügt einer ToolStripComboBox eine ListOfString hinzu
    ''' </summary>
    ''' <param name="lst">Die ToolStripComboBox, in die geschreiben werden soll.</param>
    ''' <param name="strngList">Die ListOfString, die in die ToolStripComboBox geschrieben werden soll.</param>
    Public Overloads Function ConvListOfString2ListObject(ByRef lst As ToolStripComboBox, ByVal strngList As List(Of String)) As ToolStripComboBox
        For i As Integer = 0 To strngList.Count - 1
            lst.Items.Add(strngList.Item(i))
        Next

        Return lst
    End Function

    ''' <summary>
    ''' Fügt einer ToolStripComboBox ein Stringarray hinzu
    ''' </summary>
    ''' <param name="lst">Die ToolStripComboBox, in die geschreiben werden soll.</param>
    ''' <param name="strngList">Das Stringarray, das in die ToolStripComboBox geschrieben werden soll.</param>
    Public Overloads Function ConvListOfString2ListObject(ByRef lst As ToolStripComboBox, ByVal strngList() As String) As ToolStripComboBox
        For i As Integer = 0 To strngList.Length - 1
            lst.Items.Add(strngList(i))
        Next

        Return lst
    End Function
#End Region

#Region "ADD X to ComboBox"
    ''' <summary>
    ''' Fügt einer ComboBox eine ListOfString hinzu
    ''' </summary>
    ''' <param name="lst">Die ComboBox, in die geschreiben werden soll.</param>
    ''' <param name="strngList">Die ListOfString, die in die Listbox geschrieben werden soll.</param>
    Public Overloads Function ConvListOfString2ListObject(ByRef lst As ComboBox, ByVal strngList As List(Of String)) As ComboBox
        For i As Integer = 0 To strngList.Count - 1
            lst.Items.Add(strngList.Item(i))
        Next

        Return lst
    End Function

    ''' <summary>
    ''' Fügt einer ComboBox ein Stringarray hinzu
    ''' </summary>
    ''' <param name="lst">Die ComboBox, in die geschreiben werden soll.</param>
    ''' <param name="strngList">Das Stringarray, das in die Listbox geschrieben werden soll.</param>
    Public Overloads Function ConvListOfString2ListObject(ByRef lst As ComboBox, ByVal strngList() As String) As ComboBox
        For i As Integer = 0 To strngList.Length - 1
            lst.Items.Add(strngList(i))
        Next

        Return lst
    End Function
#End Region

End Class

Abgelegt unter Array, List, String, convert, konvertieren, umwandeln, ListBox, Combobox, hinzufügen.

1 Kommentare zum Snippet

Jan Welker schrieb am 1/17/2010:

Hier könnte man einiges vereinfachen.
Ein Stringarray lässt sich einfach in einen String konvertieren:


Dim arr() As String
Dim Separator As String = ", "
Dim ResultString = String.Join(Separator, arr)

Konvertieren von Listen in Arrays:


Function ListToArray(Of T) (ByVal MyList As List(Of T)) As System.Array
    Return MyList.ToArray
End Function
'Anwendung am Beispiel eine String-List,
'funktioniert aber mit jedem anderen Datentyp:
Dim AnyList As New List(Of String)
AnyList.Add("Irgendwas")
'weitere Operationen
Dim Result() As String = ListToArray(Of String)(AnyList)

Man Kann auch auf den Overhead einer eigenen Konvertierungsfunktion verzichten und ganz einfach schreiben:


Dim arr() As String = AnyList.ToArray

Mit den Erweiterungsmethoden seit VS 2008 kann man bequem auch den umgekehrten Weg einschlagen:


Dim arr() As String = {"Apfel", "Birne"}
Dim MyList As List(Of String) = arr.ToList

Die Zuweisung von Arrays an List- und Comboboxen geht auch ganz einfach:


Sub FillListBox(Of T)(ByVal lb As ListBox, ByVal arr() As T)
     lb.DataSource = arr
'Handelt es sich bei T um einen Objekttyp mit Eigenschaften und soll nicht
'das Ergebnis der ToString-Funktion der Array-Elemente angezeigt werden,
'kann folgende Zeile hizugefügt werden:
'     lb.DisplayMember = "Eigenschftsname"
End Sub

Ich verstehe auch nicht, warum die Controls "ByRef" übergeben wurden - die als Parameter übergebene Variable soll ja nach dem Prozeduraufruf immer noch dasselbe Control bezeichnen und dieses nicht austauschen - und warum diese Funktionen das Control zurückgeben.
Aber: Aller Anfang ist schwer, und weiter Freude am Code-Schreiben

Logge dich ein, um hier zu kommentieren!

VB - Listen, Arrays, Strings konvertieren

1 Kommentare zum Snippet

Ähnliche Snippets

Suche

Letzte Kommentare