Problemer med Replace

Replace(LCase(strTekstStreng), "æ")
Replace(LCase(strTekstStreng), "ø")
Replace(LCase(strTekstStreng), "å")

//>Rune

Fx.:

strTekstStreng = "Hej med dig jeg æ ø og å"

strTekstStreng = Replace(LCase(strTekstStreng), "æ", "ae")
strTekstStreng = Replace(LCase(strTekstStreng), "ø", "oe")
strTekstStreng = Replace(LCase(strTekstStreng), "å", "aa")

//>Rune

Nej det løser ikke problemet, for jeg vil gerne have STORT Ø Erstattet med Oe og Lille ø med oe osv.

Jeg har fundet ud af det. InStr kan godt kende forskel, så jeg har gjort følgende. Det er ikke kønt, men det virker.

        If InStr(1, UName, "Ø", vbTextCompare) Then
            UName = Replace(UName, "Ø", "O", 1, -1, vbBinaryCompare)
        End If
        If InStr(1, UName, "ø", vbTextCompare) Then
            UName = Replace(UName, "ø", "o", 1, -1, vbBinaryCompare)
        End If
        If InStr(1, UName, "Å", vbTextCompare) Then
            UName = Replace(UName, "Å", "Aa", 1, -1, vbTextCompare)
        End If
        If InStr(1, UName, "å", vbTextCompare) Then
            UName = Replace(UName, "å", "aa", 1, -1, vbTextCompare)
        End If
        If InStr(1, UName, "Æ", vbTextCompare) Then
            UName = Replace(UName, "Æ", "Ae", 1, -1, vbTextCompare)
        End If
        If InStr(1, UName, "æ", vbTextCompare) Then
            UName = Replace(UName, "æ", "ae", 1, -1, vbTextCompare)
        End If

Ahh, ok fair nok.
-Du skal lige huske at lukke spm'et.

//>Rune

Hmmm .. Jeg ved ikke hvad jeg sidder og laver. Hvis man bruger vbBinaryCompare virker det fint ..

Glæm alt siden "Hej"

replace kender forskel på store og små bogstaver, da den sammenligner binært som default. Kør dette script og se selv:

str = "denne indeholder å og Å"
Response.write( Replace( str, "å", "xx", 1, LEN( str ), 1 ) )
Response.Write( "<br>" )
Response.write( Replace( str, "å", "xx" ) )

Det du kan gøre, er at bruge arrays:

Dim arrSpecialChars : arrSpecialChars = Array( "æ", "ø", "å" )
Dim arrReplaceChars : arrReplaceChars = Array( "ae", "oe", "aa" )
str = "denne indeholder å og Å, æ og Æ samt ø og Ø"
for i = 0 to UBOUND( arrSpecialChars )
    str = Replace( str, arrSpecialChars(i), arrReplaceChars(i) )
    str = Replace( str, UCASE( arrSpecialChars(i) ), UCASE( arrReplaceChars(i) ) )
next
Response.write( str )

/nute