11 svar · 280 visningar · startad av Pace
Hallå!
Jag behöver hjälp med följande, att göra om ett stycke text med [hakparenteser] till en länk med samma innehåll, exempel:
Hej hopp i [hagen] detta var en fin liten [text] jag skrivit ihop här.
Alla ord med [ och ] ska bli en länk på följande vis:
Hej hopp i <A HREF="hagen">hagen</A> detta var en fin liten <A HREF="text">text</A> jag skrivit ihop här.
Detta är säkerligen lätt gjort med reg exp, men jag behöver koder för både och!
[r] Dessutom så ska server.UrlEncode köras på länken innan den skrivs ut.
[Redigerat av Pace den 25 sep 2001]
Kan detta kanske fungera?
Function urlStrim(cTxt)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "\[(.*?)\]"
objRegExp.IgnoreCase = True
objRegExp.Global = True
urlStrim = objRegExp.Replace(cTxt,"<a href=$1>$1</a>")
Set objRegExp = Nothing
End Function
Funkar utmärkt, men hur gör man en UrlEncode på själva länken?
Jädrigt bra fråga.
Eftersom du vill köra server.urlencode() på $1, men gör du det så ersätts ju $1 också, och därmed försvinner ju den parametern och regexp förstår inte vad det är för något.
Man skulle kanske på något sätt kunna få fram matchningar som bara hittar det inom <a href="blabla">, men det vet jag inte hur man gör.
Troligen kanske det finns något enklare sätt.
För jag antar att du vill göra följande:
hugg = "<a href=" & server.urlencode("http://blabla") & ">blabla</a>"
och inte
hugg = server.urlencode("<a href=http://blabla>blabla</a>")
för det är enkelt...
Kanske går det inte.
Ett bra sätt är att köra något sådant här..
For each match in matches
str = replace (str, match, server.UrlEncode(match))
Next
Vilket bör fungera fint..
Function urlStrim(cTxt)
Dim objRegExp,strTxt
strTxt=cTxt
Set objRegExp = New RegExp
objRegExp.Pattern = "\[(.*?)\]"
objRegExp.IgnoreCase = True
objRegExp.Global = True
for each objMatch in objRegExp.Execute(strTxt)
strTxt = Replace(strTxt,objMatch.Value,"<a href=""" & server.urlencode(objMatch.Submatches(0)) & """>" & objMatch.Submatches(0) & "</a>")
next
Set objRegExp = Nothing
urlStrim=strTxt
End Function
emission, han kan han! 
han snodde ju min lösning 
Det visste jag väl hela tiden att man kan göra så, skulle bara se i fall ni var med! 
Nåja, hur som helst! Tack emssion & Brimba! 
Han är ju så iskall också... Han säger ingenting, bara klistrar in koden!
Japp.
submatches... självklart när man ser det, men inte lätt om man inte sett det tidigare
Men nu när man läser VBscript dokumentationen lite tydligare hittar man självklart detta:
Matches pattern and captures the match. The captured match can be retrieved from the resulting Matches collection, using the SubMatches collection in VBScript or the $0…$9 properties in JScript. To match parentheses characters ( ), use '\(' or '\)'.
Roligt att veta
Alla texter man läser är så självklara när man väl kan dem, men när man läser dem som nybörjare så fattar man ingenting! (rent generellt alltså)