Replace

Hejsan!
Jag skulle vilja att om man skrev [BILD]URL[/BILD]
Så ska replace fixa så det blir <img src="URL">..

Har dock ingen aning om hur jag ska kirra de.

Tack!

Sök ex. på: forumkod

Dim DinVariabel
DinVariabel = "[BILD]TJABA[/BILD]
With new regexp
.IgnoreCase = True
.Global = True
.Pattern="\[BILD\]([\w\W]*?) \[/BILD\]"
DinVariabel = .Replace(DinVariabel,"<img src=""/images/$1"">")
End With
Response.write (DinVariabel)
Ändra /images/ mot sökvägen till bilderna eller ta bort de om bilderna ligger i samma mapp !

Hmm.. Njae..
Menar om man har en lång text som tillexempel en artikel och skriver [BILD]URL[/BILD] så ska de bli en bild där..

... och du har testat N0M0NEYs kod? På vilket sätt fungerar inte den?

Den fungerar säkert jättebra, men är rätt ny me just replace och reg exp så jag fattar inte hur jag ska sätta den i koden riktigt.. :(

      <%
Dim press
press = RS("strPress")
With new regexp
.IgnoreCase = True
.Global = True
.Pattern="\[BILD\]([\w\W]*?) \[/BILD\]"
press = .Replace(press,"<img src=""$1"">")
End With
Response.write (press)
%>

Den skriver ut [BILD]URL[/BILD]

Det är bara att prova. Ersätt "DinVariabel" med det värdet du vill köra replace på.

Hänvisar till min redigering..

Prova detta mönster istället:

.Pattern="\[BILD\]([\w\W]*?)\[/BILD\]"

Nu fungerar det faktiskt :D Tackar :D:D
Men om jag nu vill att den ska läsa av HTML-taggen <br>?

Replace(Server.HTMLEncode(press), vbCrlf, "<br>")

Nu skriver den ut allt istället för att visa bilden..

Då får du göra bild-replace:n efter HTMLEncode. Annars förstör du ju den fina bildkoden som just skapats.

Försökte såhär :(

Dim press
press = RS("strPress")
With new regexp
.IgnoreCase = True
.Global = True
.Pattern="\[BILD\]([\w\W]*?)\[/BILD\]"
Replace(Server.HTMLEncode(press), vbCrlf, "<br>")
press = .Replace(press,"<img src=""$1"">")
End With
response.write press%>

Hur blev resultatet då alltså?

Cannot use parentheses when calling a Sub 

/jimmy/mickmack/minsida.asp, line 39 

Replace(Server.HTMLEncode(press), vbCrlf, "<br>")
-------------------------------------------------^

Du måste ju ta emot resultatet av replace också.

[b]press = [/b]Replace(Server.HTMLEncode(press), vbCrlf, "<br>")

Det är ju fantastiskt vad man kan ;)
TACK!

N0M0NEY skrev:

Dim DinVariabel
DinVariabel = "[BILD]TJABA[/BILD]
With new regexp
.IgnoreCase = True
.Global = True
.Pattern="\[BILD\]([\w\W]*?) \[/BILD\]"
DinVariabel = .Replace(DinVariabel,"<img src=""/images/$1"">")
End With
Response.write (DinVariabel)
Ändra /images/ mot sökvägen till bilderna eller ta bort de om bilderna ligger i samma mapp !

Hemskt ledsen..
Tänkte inte på mitt lilla fel..
Aja lycka till i fortsättningen ! :D