Hallo,
ich habe ein Modul, um ein Buch nach Wörtern zu sortieren. Die Sortierung soll Sonderzeichen und Umlaute wie normaleZeichen behandeln und Groß/Kleinschreibung ignorieren. Dazu dient hilft mir immoment dieser Code:
Meine Frage ist, ob jemand einen Vorschlag zur Vereinfachung/Verbesserung hat - es kommen ggf. noch weitere Sonderzeichenzeichen hinzu, bei ca. 100.000 Wörtern pro Buch sind es recht viele Abfragen pro Wort.
Ich habe es erst mit einer select Case Methode versucht, Problem waren jedoch mehrere vorkommen von verschiedenen Umlauten in einem Wort, z.B. "Ölüberschußländer" (Das steht zwar nicht im Buch, veranschaulicht aber das Problem)
mfg J
ich habe ein Modul, um ein Buch nach Wörtern zu sortieren. Die Sortierung soll Sonderzeichen und Umlaute wie normaleZeichen behandeln und Groß/Kleinschreibung ignorieren. Dazu dient hilft mir immoment dieser Code:
VB.NET-Quellcode
- Private Function Checkumlaute(vergleichWort As String) As String
- vergleichWort = vergleichWort.ToLower
- If vergleichWort.Contains("ä") Then
- vergleichWort = vergleichWort.Replace("ä", "ae")
- End If
- If vergleichWort.Contains("ö") Then
- vergleichWort = vergleichWort.Replace("ö", "oe")
- End If
- If vergleichWort.Contains("ü") Then
- vergleichWort = vergleichWort.Replace("ü", "ue")
- End If
- If vergleichWort.Contains("ß") Then
- vergleichWort = vergleichWort.Replace("ß", "ss")
- End If
- If vergleichWort.Contains("é") Then
- vergleichWort = vergleichWort.Replace("é", "e")
- End If
- If vergleichWort.Contains("è") Then
- vergleichWort = vergleichWort.Replace("è", "e")
- End If
- If vergleichWort.Contains("í") Then
- vergleichWort = vergleichWort.Replace("í", "i")
- End If
- Return vergleichWort
- End Function
Meine Frage ist, ob jemand einen Vorschlag zur Vereinfachung/Verbesserung hat - es kommen ggf. noch weitere Sonderzeichenzeichen hinzu, bei ca. 100.000 Wörtern pro Buch sind es recht viele Abfragen pro Wort.
Ich habe es erst mit einer select Case Methode versucht, Problem waren jedoch mehrere vorkommen von verschiedenen Umlauten in einem Wort, z.B. "Ölüberschußländer" (Das steht zwar nicht im Buch, veranschaulicht aber das Problem)
mfg J