Bytte æ ø å ud med ae o a

Well, ja.. :-)


Function ChangeCharters(strCharters)
    If InStr(strCharters,"æ") Then
            strCharters = Replace(strCharters,"æ","ae")
        End If

    If InStr(strCharters,"ø") Then
        strCharters = Replace(strCharters,"ø","o")
    End If

    If InStr(strCharters,"å") Then
        strCharters = Replace(strCharters,"å","aa")
    End If
End Function

Response.Write(ChangeCharters("æøå er ugyldige charters!")

;o)

//>Rune

Hvordan bruger du den?????

Jeg ville bruge den til at jeg har et input type=text og hvis man så bruget æ - ø - å så vil den skrive ae - o - a

Altså:

<%
Function ChangeCharters(strCharters)
    If InStr(strCharters,"æ") Then
            strCharters = Replace(strCharters,"æ","ae")
        End If

    If InStr(strCharters,"ø") Then
        strCharters = Replace(strCharters,"ø","o")
    End If

    If InStr(strCharters,"å") Then
        strCharters = Replace(strCharters,"å","aa")
    End If
End Function
%>

det du gerne vil ha' erstattet omklamre du bare med ChangeCharters()
altså

<%
strStrengDerSkalOmskrives = "hejsa"
Response.Write(ChangeCharters(strStrengDerSkalOmskrives))
%>

//>Rune

Hvis jeg sætter din kode ind få jeg bare en hvid side. hvorfor det??

Jeg har nu sat point op til 50 for jeg har brug for et script der virker

Hov det må du meget undskylde, men det var nemlig utestet!

Det skal stå sådan her:

Function ChangeCharters(strCharters)
    If InStr(strCharters,"æ") Then
        strCharters = Replace(strCharters,"æ","ae")
    End If

    If InStr(strCharters,"ø") Then
        strCharters = Replace(strCharters,"ø","o")
    End If

    If InStr(strCharters,"å") Then
        strCharters = Replace(strCharters,"å","aa")
    End If
   
    Response.Write(strCharters)
End Function

strStrengDerSkalOmskrives = "hejsa ø æ å"
ChangeCharters(strStrengDerSkalOmskrives)

//>Rune

Jeg siger TAK

:o) Fair nok
Thx 4 Poinz

//>Rune