Find \"kode\" og ændre den i en string

<%
streng = \"ABCDEF\"
streng = Replace(streng,\"A\",\"Å\")
Response.Write streng
%>

Ovenstående udskifter A men Å

lad os sige du vil udskifte html tagget <img> til noget tekst

<%
streng = \"whatever\"
streng = Replace(streng,\"<img>\",\"nej img må ikke bruges\")
Response.Write streng
%>

jiggyproof>> som jeg har forstået det, så vil han have lavet
[image=http://www.inet.gl/billede.jpg]
om til
<img src=\"http://www.inet.gl/billede.jpg\">
og det kan IKKE lade sig gøre med replace....!!!

Det her skulle kunne gøre det...

strStreng = \"blablablabla tekst og så videre. Se dette flotte billede her [image=http://www.inet.gl/billede.jpg] og det er da flot ik!\"
intStart = instr(strStreng,\"[image=\")
intSlut = instr(strStreng,\"]\")
strImage = mid(strStreng, intStart, intSlut-intStart)
strImage = Right(strImage, len(strImage)-7)
strNyImage = \"<img src=\"\"\"& strImage &\"\"\">\"

Response.Write \"Tekst: \"& strStreng & \"<br>\"
Response.Write \"Placering af <b>[image=</b>: \"& intStart & \"<br>\"
Response.Write \"Placering af <b>]</b>: \"& intSlut & \"<br>\"
Response.Write \"Imagedel: \"& strImage &\"<br>\"
Response.Write \"Str på image: \"& strNyImage &\"<br>\"

Jeg tror nu ikke jeg er helt med men jeg forsøger nu lige aflige vel:

TestStr = \"Se dette billede[image=www.inet.dk/billede.jpg] det er flot.\"

Functionen i dette svar laver stengen TestStr om til:
\"Se dette billede www.inet.dk/billede.jpg det er flot.\"

Function imageStringToLink(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpHTTP2 = New RegExp   

    objRegExpHTTP1.Pattern = \"\\[image=(http|ftp)(:\\/\\/[\\w\\._-]+\\.[\\w\\._-]+\\S*)\\]\"
    objRegExpHTTP2.Pattern = \"\\[image(^|[^\\/])(www[^\\.\\s]?\\.[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\\]\"

    objRegExpHTTP1.Global = True
    objRegExpHTTP2.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpHTTP2.IgnoreCase = True

    strOutput = objRegExpHTTP1.Replace(strInput, \" <a href=\'$1$2\' target=\'_blank\'>$1$2</a> \")
    strOutput = objRegExpHTTP2.Replace(strOutput, \" <a href=\'http://$2\' target=\'_blank\'>$2</a> \")

    Set objRegExpHTTP2 = Nothing
    set objRegExpHTTP1 = Nothing

    imageStringToLink = strOutput
End Function

TestStr = \"Se dette billede[image=www.inet.dk/billede.jpg] det er flot.\"

Functionen i dette svar laver stengen TestStr om til:
\"Se dette billede [image=www.inet.dk/billede.jpg] det er flot.\"

Function imageStringToLink2(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpHTTP2 = New RegExp   

    objRegExpHTTP1.Pattern = \"(\\[image=)(http|ftp)(:\\/\\/[\\w\\._-]+\\.[\\w\\._-]+\\S*)(\\])\"
    objRegExpHTTP2.Pattern = \"(\\[image)(^|[^\\/])(www[^\\.\\s]?\\.[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)(\\])\"

    objRegExpHTTP1.Global = True
    objRegExpHTTP2.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpHTTP2.IgnoreCase = True

    strOutput = objRegExpHTTP1.Replace(strInput, \" $1<a href=\'$2$3\' target=\'_blank\'>$2$3</a>$4 \")
    strOutput = objRegExpHTTP2.Replace(strOutput, \" $1=<a href=\'http://$3\' target=\'_blank\'>$3</a>$4 \")

    Set objRegExpHTTP2 = Nothing
    set objRegExpHTTP1 = Nothing

    imageStringToLink2 = strOutput
End Function

jiggypoof, D vidste jeg jo godt, men det var ikke det jeg ville ha den skulle gøre, den skulle jo ændre det...


cyberfessor, tjekker lige dit svar, men det ser ud som om den virker!

Cyberfessor, kan du ik lige forklare hvad de enkelte funktioner gør?

Skal \"[image=....]\" laves om til <img>  HTML-tag?

pierre>> well, i korte træk :)

strStreng = din streng
intStart = finder placeringen af [
intSlut = finder placeringen af ]
strImage = Finder den streng der er mellem [ og ]
strImage = strImage = tager ikke de 7 første tegn som jo er [image=
strNyImage = erstatter strImage med \"<img src=\"\"\"& strImage &\"\"\">\"

D forstår jeg godt cyberfessor, men hvad gør funktionerne mid og instr?

Scriptet må siges at virke derfor får du dine fortjente point!

pierre>> instr tjekker om et ord/bogstav findes i et streng og returnerer placeringen

mid fungerer ved at du kan markere et ord, første tal er start, næste tal er hvor mange pladser til højre vi skal flytte markøren

ELlers kan du slå det op i VBS-reference :)