webForumDet fria alternativet

RegExp

2 svar · 179 visningar · startad av Ricki

RickiMedlem sedan juni 2000373 inlägg
#1

Tjena,
Hur delar jag upp strängen $1 så att jag bara får en liten del av den? Såhär ser koden ut:

<%
Function ForumCode (Input)

	Dim StringHandler
	Set StringHandler = New RegExp

	StringHandler.Global	 = true
	StringHandler.IgnoreCase = true
	StringHandler.Pattern	 = "(\[URL\].*\[/URL\])"

	Dim ReplaceText
		ReplaceText = "<a href=""$1"" target=""_blank"">$1</a>"

	Dim NewMessage
		NewMessage = StringHandler.Replace(Input, ReplaceText)

	Input = NewMessage
	Input = CStr(Replace(Input,":)","<img src=""grafik/smily1.gif"">"))
	Input = CStr(Replace(Input,":(","<img src=""grafik/smily2.gif"">"))
	Input = CStr(Replace(Input, vbCrLf, "<br>"))

	ForumCode = Input

End Function
%>

Problemet är att strängen blir såhär:
<a href=" http://ricki.nu "> http://ricki.nu </a>
Jag vill ha bort och , hur gör jag????

------------------
Hälsningar Ricki
revolution | mail

emissionMedlem sedan dec. 19996 721 inlägg
#2

StringHandler.Pattern = "\[URL\](.*)\[/URL\]"

RickiMedlem sedan juni 2000373 inlägg
#3

Tack Emission, du är en ängel :)

------------------
Hälsningar Ricki
revolution | mail

124 ms totalt · 3 externa anrop · v20260731065814-full.3ab8d573
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
122 ms — hämta tråd, inlägg och bilagor (db)