9 svar · 360 visningar · startad av Asa
Söker lite koder för hur man gör länkar automatiskt till en länk samt om det går att får [farg=xxxx]TEXT[/farg] att funka då med....
Utan regExp för webbhotellet stöder ej det där sidan ligger.
Byt wehotell. ;)
Så här kanske
strData=replace(strData,"[/farg]","</span>")
strData=replace(strData,"[farg=","<span style='color:")
strData=replace(strData,"]",";'>")
m_soderlund skrev:
Utan RegExp stog d väl i inlägget :P
Precis! UTAN
Ajdå. Ledsen. :( http://www.pellesoft.se/upload/program/prg00164.zip kanske?
Kolla i Filarean på Pellesoft.se, välj ASP och sök på länkar.
Finns också på wF, använd sökfunktionen. :)
Vad är det för fel på min kod då? Funkar den inte?
Inget, tror jag, men vill ha fär länkar oxå.
Hej jag ska göra så att om man skriver t.ex
[url=http://www.adressen.se]SIDAN[/url]
så ska det
bli en länk men det fungerar bara om man inte skriver med http://!, jag vill att det ska fungara oavsett om man skriver http:// eller www men det gör det inte
<%
set oRegExp = new regexp
oRegExp.global=true
oRegExp.ignorecase = true
set oRegExp = new regexp
oRegExp.global=true
oRegExp.ignorecase = true
oRegExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://|www){1}\S+)"
str = oRegExp.replace(str, "<a href=""$1"" target=""_blank"">$1</a>")
oRegExp.Pattern = "\[url=(.*)\](.*)\[/url\]"
str = oRegExp.replace(str, "<a href=""$1"" target=""_blank"">$2</a>")
str = Replace(str, vbCrLf, "<br>" & vbCrLf)
str = oRegExp.replace(str, "<a href=""$1"" target=""_blank"">$1</a>")
oRegExp.Pattern = "\[url=(.*)\](.*)\[/url\]"
str = oRegExp.replace(str, "<a href=""$1"" target=""_blank"">$2</a>")
str = Replace(str, vbCrLf, "<br>" & vbCrLf)
Ursäkta vad gör jag! jag skulle skriva i min egen tråd!, råkade ha denna tråd uppe, fan vad dum jag är :r