Das Problem bestand praktisch darin, für eine Menge von Datensätzen, die persönliche Daten beinhalten wie Name, Vorname usw. das Geschlecht der Person (so zu sagen automatisch) zu ermitteln, um es nicht für alle Datensätze von Hand eintragen zu müssen. Nach einigem Suchen fand ich auf www.excelformeln.de eine Lösung in Form von Excelformeln. In nachstehendem Code habe ich diesen Ansatz in eine VB-Funktion 'verpackt'. Auf obigem Link wird gesagt, dass der Algorithmus für mehr als 1200 Namen funktioniert... Nun, Ausnahmen bestätigen die Regel- wer Namen findet, bei denen es nicht klappt- bitte bekannt geben. Update vom 28.02.12 Und hier die Funktion: ''' <summary> ''' Ermitteln anhand des Vornamens, ob Junge oder Mädchen ''' </summary> ''' <param name="vName">der Vorname</param> ''' <param name="fem">Standard-Ausgabetext weiblich</param> ''' <param name="mas">Standard-Ausgabetext männlich</param> ''' <returns>Ausgabetext</returns> Public Function getGeschlecht(ByVal vName As String, _ Optional ByVal fem As String = "Frau", _ Optional ByVal mas As String = "Herr") As String ' additive Mädels Dim f1() As String = {"a", "e", "i", "n", "u", "y"} Dim f2() As String = {"ah", "al", "bs", "dl", "el", "et", _ "id", "il", "it", "ll", "th", "ud", "uk"} Dim f3() As String = {"ary", "aut", "des", "een", "eig", "ett", _ "fer", "got", "ies", "iki", "ild", "ind", "itt", "jam", "joy", "kim", _ "lar", "len", "lis", "men", "mor", "oan", "ren", "res", "rix", _ "san", "sis", "tas", "udy", "urg", "vig", "yve"} Dim f4() As String = {"ahel", "ardi", "atie", "borg", "cole", "endy", "gard", "gart", "gnes", "gund", _ "iede", "indy", "ines", "iris", "ison", "istl", _ "ldie", "lilo", "loni", "lott", "lynn", "mber", "moni", "nken", _ "oldy", "riam", "rien", "riet", "rill", "sann", "smin", "ster", "uste", "vien"} Dim f5() As String = {"achel", "agmar", "almut", "Candy", "Doris", _ "echen", "edwig", "gerti", "irene", "mandy", "nchen", "paris", "rauke", "sabel", "sandy", "silja", "sther", _ "trudi", "uriel", "velin", "vroni", "ybill"} Dim f6() As String = {"almuth", "amaris", "irsten"} ' subtraktive Jungs Dim v1() As String = {"ai", "an", "ay", "dy", "en", "ey", "fa", "gi", "hn", "iy", _ "ki", "nn", "oy", "pe", "ri", "ry", "ua", "uy", "ve", "we", "zy"} Dim v2() As String = {"ael", "ali", "aid", "ain", "are", "bal", "bby", "bin", _ "cal", "cel", "cil", "cin", "die", "don", "dre", _ "ede", "edi", "eil", "eit", "emy", "eon", "ffer", "gon", "gun", _ "hal", "hel", "hil", "hka", "iel", "iet", "ill", "ini", "kie", _ "lge", "lon", "lte", "lja", "mal", "met", "mia", "mil", "min", "mon", "mre", "mud", "muk", _ "nid", "nsi", "oah", "obi", "oel", "örn", "ole", "oni", "oly", _ "phe", "pit", "rcy", "rdi", "rel", "rge", "rka", "ron", "rne", "rre", "rti", _ "sil", "son", "sse", "ste", "tie", "ton", "uce", "udi", "uel", "uli", "uke", _ "vel", "vid", "vin", "wel", "win", "xei", "xel"} ' subtraktive Jungs zwei Dim p1() As String = {"abel", "akim", "ammy", "atti", "bela", "didi", "dres", _ "eith", "elin", "erin", _ "ffer", "frid", "gary", "gene", "glen", "hane", "hein", "idel", "iete", "irin", _ "jona", "kind", "kita", "kola", "lion", "levi", "mike", "muth", _ "naud", "neth", "nnie", "ntin", "nuth", "olli", "ommy", "önke", "ören", _ "pete", "rene", "ries", "rlin", "rome", "rren", "rtin", "ssan", "stas", _ "tell", "tila", "tony", "tore", "uele", "ucca"} Dim p2() As String = {"astel", "benny", "billy", "billi", "brosi", "elice", "ianni", "laude", _ "danny", "dolin", "ormen", "ronny", "sandy", "urice", "ustel", "ustin", "willi", "willy"} Dim p3() As String = {"jascha", "tienne", "urence", "vester"} ' Zwitter??? Dim x1() As String = {"Alex", "Alexis", "Andrea", "Auguste", "Carol", "Chris", "Conny", "Dominique", _ "Eike", "Folke", "Friedel", "Gabriele", "Gerrit", "Heilwig", "Jean", "Kay", "Kersten", "Kim", _ "Leslie", "Maris", "Maxime", "Nicola", "Nikola", "Sascha", "Toni", "Winnie"} Dim w1, w2, w3, w4 As Boolean Dim av As Short Dim vSub As String = "" For i As Short = vName.Length To 1 Step -1 ' -Jungs vSub = vName.Substring(vName.Length - i, i) Select Case i Case 4 av = Array.IndexOf(p1, vSub) : w3 += (av >= 0) Case 5 av = Array.IndexOf(p2, vSub) : w3 += (av >= 0) Case 6 av = Array.IndexOf(p3, vSub) : w3 += (av >= 0) End Select Next i For i As Short = vName.Length To 1 Step -1 ' -Jungs vSub = vName.Substring(vName.Length - i, i) Select Case i Case 2 av = Array.IndexOf(v1, vSub) : w2 += (av >= 0) Case 3 av = Array.IndexOf(v2, vSub) : w2 += (av >= 0) End Select Next i For i As Short = vName.Length To 1 Step -1 ' +Mädels vSub = vName.Substring(vName.Length - i, i) Select Case i Case 1 av = Array.IndexOf(f1, vSub) : w1 += (av >= 0) Case 2 av = Array.IndexOf(f2, vSub) : w1 += (av >= 0) Case 3 av = Array.IndexOf(f3, vSub) : w1 += (av >= 0) Case 4 av = Array.IndexOf(f4, vSub) : w1 += (av >= 0) Case 5 av = Array.IndexOf(f5, vSub) : w1 += (av >= 0) Case 6 av = Array.IndexOf(f6, vSub) : w1 += (av >= 0) End Select Next i w1 = w1 - w2 - w3 av = Array.IndexOf(x1, vName) : w4 = (av >= 0) ' Zwitter Return IIf(w4 = True, "F|M", IIf(w1 = True, fem, mas)) End Function In der Praxis könnte man das noch mit dem Alter der Person kombinieren und evtl. eine Anrede davon ableiten. Viel Spaß damit! Dieser Tipp wurde bereits 20.214 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |