Undersøgelse af tekst-streng.....

Du kan sagtens fjerne alle mellemrum og søfe efter sex, men så bliver sætningen \"...ydelse xtra...\" også fanget...

Fandt den her engang, måske kan den bruges:

Function CensorText( sText )
    Dim sRet
    sRet = sText
    sRet = Replace(sRet, \"fuck\", \"****\" , 1,-1,vbTextCompare)   
    sRet = Replace(sRet, \"ass\", \"***\", 1,-1,vbTextCompare)   
    sRet = Replace(sRet, \"shit\", \"****\" , 1,-1,vbTextCompare)
    sRet = Replace(sRet, \"dick\", \"****\" , 1,-1,vbTextCompare)
    \'Add your own ugly words here...
    CensorText = sRet
End Function

En simpel måde:

Replace(Replace(\"Det forbudte ord er sex! s e x\", \"sex\",\" \"),\"s e x\",\" \")

Dette erstatter ordene \'sex\',\'s e x\' med \' \'

/MadD

og undskyld sproget ;-)

Too late.....

jens:> vbTextCompare .. hva skal det nu gøre godt for ? vbTextCompare er default ..

tdaugaard >> spørg mig ikke, som sagt så var det noget jeg havde liggende - hvor jeg har fundet det ka\' jeg ik\' husk ;-)

Men du har ret, jeg har brugt det een gang og der slettede jeg også ,vbTextCompare - men det skader jo ikke

jens:> *S* nææ det skader som ikke .. faktisk er Replace(ReplaceInString, SearchString, ReplaceWith) alt hvad man skal bruge ved normal text.

det som jeg søger er ikke bare en som replacer teksten...

det jeg søger til 200 point.. er en kode som kan gennemchecke en tekststreng på alle leder og kanter efter nogle ord som jeg skriver i en liste, og hvis en eller anden syg kombination af de ord er i tekst-strengen, skal den kaste en videre til en anden side....

og så skal den selv hente ordene fra en datatfil

det er det pointene skal gå til!

Da der ikke er flere svar, må jeg jo nok lukke spørgsmålet