Replace-funktion

nu ved jeg ikke om jeg har forstået rigtigt, men skal du bruge en funktion der skal replace nogle specieltegn?

tror denne virker:

    Function IsValidString(sValidate)

        Dim sInvalidChars
        Dim bTemp
        Dim i
        ' Disallowed characters
        sInvalidChars = "»´`~¨-_¤@£$½§!#$%^&*()=+{}[]|\;:/?>,<æøåÆØÅ1234567890"
        For i = 1 To Len(sInvalidChars)
            If InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 _
                Then bTemp = True
            If bTemp Then Exit For
        Next
       
    For i = 1 To Len(sValidate)
            If Asc(Mid(sValidate, i, 1)) = 160 _
        Then bTemp = True
      If bTemp Then Exit For
    Next
        IsValidString = Not bTemp
    End Function

Det var ikke det, som jeg søgte. Kan du ikke færdiggøre mit udkast til funktionen?

hvad er det lige du mener ?

Når jeg henter objeker fra databasen, som skal indsættes i et array, bliver "-tegnet (automatisk af browseren) omdannet til &quot for at browseren ikke skal mistolke det som kode.

1) Derfor vil jeg bruge Replace(replaceStr,"&quot"," "????") til at genskabe "-tegnet, men jeg ved ikke rigtigt, hvad der skal stå i stedet for ????, fordi Replace(replaceStr,"&quot"," """) ville sikkert skabe fejl.

2) Alle objekterne som hentes fra databasen, skal smides ind i en sådan replace-funktion (se evt. mit udkast), hvor &quot bliver omdannet/genskabt til ". Når det virker, vil jeg udbygge funktionen til også at kunne gendanne '-tegnet og sikkert også andre tegn.

Den anden function jeg skrev der oppe, er ikke lige hvad den jeg den var til, tror sq lige jeg sov da jeg copy/pastede den ind :)

du kan lave en funktion på følgende måde:

function omdan(fString)
    fString = replace(fString, &quot, """)
        'osv.
    istedet = fString
end function

Du skriver at den SIKKERT vil give fejl hvis du prøver at replace &quot med ", men der er jo ikke andet for end at prøve, jeg har ikke selv prøvet, så derfor ved jeg ikke om der kommer fejl.

Håber det er noget du kan bruge denne gang

lige en lille fejl:

function omdan(fString)
    fString = replace(fString, &quot, """)
        'osv.
    omdan = fString
end function

>...men der er jo ikke andet for end at prøve

Unterminated string constant

function omdan(fString)
    fString = replace(fString, "&quot", """)
        'osv.
    omdan = fString
end function

har du prøvet med fString = replace(fString, "&quot", """"), altså med 2 "" ?

function omdan(fString)
    fString = replace(fString, "&quot", """")
        'osv.
    omdan = fString
end function

Jeg har kun anvendt "omdan" på "titel" - resten må vente indtil det virker. Fejl: Den tolker gåseøjene i database som kode.

response.write "gruppe[1][" & i & "]=new artikel (" & rs("artikelnr") & "," & omdan(rs & ("titel")) & ",""" & rs("forfatter") & """, """ & rs("beskrivelse") & """, " & rs("filnavn") & ", " & rs("emnenr") & ", " & rs("niveau") & ");"

Jeg kan desværre ikke huske hvad det man skal når man vil replace ", jeg har prøvet det, men kan ikke huske det...

Jeg kom lidt videre - det vil jeg give 5 points for.

håber du finder ud af det :)