Wie zum Wörterbuch benutzen VB.net?

Ich geschrieben habe, ist diese Funktion auf auto richtige Geschlecht M oder F ist von unterschiedlichen Werte in einem string-array. Es funktioniert gut, aber mein manager hat mir gesagt, Wörterbuch benutzen, welches er sagte, ist effizienter. Aber ich habe keine Ahnung. Jemand möchte mir helfen, zu verstehen, wie dies getan werden kann ? Danke.

    Public Function AutoGender(ByVal dt As DataTable) As DataTable        

    Dim Gender As String = ""
    Dim Mkeywords() As String = {"boy", "boys", "male", "man", "m", "men", "guy"}
    Dim Fkeywords() As String = {"girl", "girls", "female", "woman", "f", "women", "chick"}
    Dim row As DataRow
        For Each row In dt.Rows
            If Mkeywords.Contains(row("Gender").ToString.ToLower) Then
                Gender = "M"
                row("Gender") = Gender
            ElseIf Fkeywords.Contains(row("Gender").ToString.ToLower) Then
                Gender = "F"
                row("Gender") = Gender
            End If
        Next
    Return dt

    End Function
Vielleicht kann dies helfen, dotnetperls.com/dictionary-vbnet

InformationsquelleAutor lawphotog | 2012-06-21

  1. 7

    Hier ist ein Beispiel, wie man sich die Umsetzung der Dictionary(Of String, String) nachschlagen, ob diesem synonym bekannt ist oder nicht:

    Shared GenderSynonyms As Dictionary(Of String, String) = New Dictionary(Of String, String) From
    {{"boy", "M"}, {"boys", "M"}, {"male", "M"}, {"man", "M"}, {"m", "M"}, {"men", "M"}, {"guy", "M"},
     {"girl", "F"}, {"girls", "F"}, {"female", "F"}, {"woman", "F"}, {"f", "F"}, {"women", "F"}, {"chick", "F"}}

Public Function AutoGender(ByVal dt As DataTable) As DataTable
    If dt.Columns.Contains("Gender") Then
        For Each row As DataRow In dt.Rows
            Dim oldGender = row.Field(Of String)("Gender").ToLower
            Dim newGender As String = String.Empty
            If GenderSynonyms.TryGetValue(oldGender, newGender) Then
                row.SetField("Gender", newGender)
            End If
        Next
    End If
    Return dt
End Function

    Hinweis, dass ich die collection-Initialisierer zu füllen, die Wörterbuch , ist ein bequemer Weg, um Literale initialisiert Sammlungen. Sie können auch die Add Methode.

    Bearbeiten: Nur ein weiterer Ansatz, die vielleicht präziser ist die Verwendung von zwei HashSet(Of String), eine für die männlichen Synonyme und eins für die weiblichen:

    Shared maleSynonyms As New HashSet(Of String) From
    {"boy", "boys", "male", "man", "m", "men", "guy"}
Shared femaleSynonyms As New HashSet(Of String) From
    {"girl", "girls", "female", "woman", "f", "women", "chick"}

Public Function AutoGender(ByVal dt As DataTable) As DataTable
    If dt.Columns.Contains("Gender") Then
        For Each row As DataRow In dt.Rows
            Dim oldGender = row.Field(Of String)("Gender").ToLower
            Dim newGender As String = String.Empty
            If maleSynonyms.Contains(oldGender) Then
                row.SetField("Gender", "M")
            ElseIf femaleSynonyms.Contains(oldGender) Then
                row.SetField("Gender", "F")
            End If
        Next
    End If
    Return dt
End Function

    Einen HashSet muss auch einzigartig sein, es darf keine doppelte Strings (wie der Schlüssel in der Dictionary), aber es ist nicht ein Schlüssel-Wert-paar, sondern nur einen Satz.

    Ich schrieb GENAU dem gleichen code, aber von der Zeit hatte ich Fehler überprüft, es hatten Sie geschlagen mich zu es!
    Vielen Dank, Tim ... du bist der beste !

    InformationsquelleAutor Rango

  2. 3

    Ändern Sie einfach die beiden arrays, dictionaries und eine ContainsKey statt Contains.

    Dim Mkeywords = New Dictionary(Of String, String) From
    {{"boy", ""}, {"boys", ""}, {"male", ""}, {"man", ""}, {"m", ""}, {"men", ""}, {"guy", ""}}

    (und die Folgen für die weibliche)

    Jedoch, wie Euch vielleicht aufgefallen ist habe ich in all den leeren Saiten. Dies ist, weil die Wörterbücher haben Werte wie auch die Tasten, aber da sind wir nicht mit den Werten, ich habe Sie leere Zeichenfolgen. Die gleichen O(1) lookup-aber ohne all die überflüssigen Werte, die Sie verwenden können, eine HashSet in einer ähnlichen Weise.

    Alles, was Sie ändern müssen, ist nun, wie ich schon sagte, verwenden Sie ContainsKey (oder für HashSet wenn Sie diesen Weg gehen, es ist nur noch Contains):

    If Mkeywords.ContainsKey(row("Gender").ToString.ToLower) Then

    Ein letzter Hinweis: dies wird nur "effizienter", wenn die Daten beginnt zu wachsen in der Größe erheblich. Jetzt haben Sie es, nur mit diesen wenigen Elementen kann es sogar langsamer sein, verwenden Sie ein Wörterbuch.

    InformationsquelleAutor

Schreibe einen Kommentar