Ersätta åäö med aao med regex

Med närmare eftertanke så kanske det inte går att lösa med ett uttryck än man får göra separata replace?

En söksträng efter åäöÅÄÖ borde väl kunna se ut något liknande som

 [ åäöÅÄÖ ]

Men hur ersätta beroende på å ä eller ö, en annan femma. Kanske enklare att bara göra en Replace på varje bokstav. :)

Jo den möjligheten finns ju men jag tänkte om det fanns något snyggare sätt :)

http://weblogs.asp.net/fmarguerie/archive/2006/10/30/removing-diacritics-accents-from-strings.aspx

subjectString = Regex.Replace(subjectString, "([åä])", "a", RegexOptions.Singleline | RegexOptions.IgnoreCase | RegexOptions.Multiline);
subjectString = Regex.Replace(subjectString, "(ö)", "o", RegexOptions.Singleline | RegexOptions.IgnoreCase | RegexOptions.Multiline);

Fast emission verkar vara rätt mycket "bättre" ;)

emission skrev:

http://weblogs.asp.net/fmarguerie/archive/2006/10/30/removing-diacritics-accents-from-strings.aspx

Tog mig friheten att göra den till VB

Imports System.Globalization ' <-- måste vi importera!

    Public Function RemoveDiacritics(ByVal s As String) As String

        Dim normalizedString = s.Normalize(NormalizationForm.FormD)
        Dim stringBuilder As New StringBuilder
        Dim i As Integer = 0

        For i = 0 To normalizedString.Length - 1
            Dim c As Char = normalizedString(i)
            If CharUnicodeInfo.GetUnicodeCategory(c) <> UnicodeCategory.NonSpacingMark Then
                stringBuilder.Append(c)
            End If
        Next

        Return stringBuilder.ToString()
    End Function

Helt otestad.. finns säkert något fel! :e

Översättning från:
http://www.carlosag.net/Tools/CodeTranslator/Default.aspx

Public Shared Function RemoveDiacritics(ByVal s As String) As String
    Dim normalizedString As String = s.Normalize(NormalizationForm.FormD)
    Dim stringBuilder As StringBuilder = New StringBuilder
    Dim i As Integer = 0
    Do While (i < normalizedString.Length)
        Dim c As Char = normalizedString(i)
        If (CharUnicodeInfo.GetUnicodeCategory(c) <> UnicodeCategory.NonSpacingMark) Then
            stringBuilder.Append(c)
        End If
        i = (i + 1)
    Loop
    Return stringBuilder.ToString
End Function

Så det ska nog fungera som du skrev ;)

emission skrev:

http://weblogs.asp.net/fmarguerie/archive/2006/10/30/removing-diacritics-accents-from-strings.aspx

Precis vad jag letade efter ... tack för hjälpen

Jag hade dock valt att ersätta å med aa, ä med ae och ö med oe.