webForumDet fria alternativet

Replace

9 svar · 360 visningar · startad av Asa

AsaMedlem sedan dec. 20011 934 inlägg
#1

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.

Jesper TMedlem sedan nov. 20017 058 inlägg
#2

Byt wehotell. ;)
Så här kanske

strData=replace(strData,"[/farg]","</span>")
strData=replace(strData,"[farg=","<span style='color:")
strData=replace(strData,"]",";'>")
m_soderlundMedlem sedan sep. 20024 733 inlägg
Cannabis_TomtenMedlem sedan juli 20013 362 inlägg
#4

m_soderlund skrev:

http://www.webforum.nu/showthread.php?s=&threadid=75258 :D

Utan RegExp stog d väl i inlägget :P

AsaMedlem sedan dec. 20011 934 inlägg
#5

Precis! UTAN

m_soderlundMedlem sedan sep. 20024 733 inlägg
#6

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. :)

Jesper TMedlem sedan nov. 20017 058 inlägg
#7

Vad är det för fel på min kod då? Funkar den inte?

AsaMedlem sedan dec. 20011 934 inlägg
#8

Inget, tror jag, men vill ha fär länkar oxå.

joel_joel88Medlem sedan nov. 20021 049 inlägg
#9

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)
joel_joel88Medlem sedan nov. 20021 049 inlägg
#10

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

Genererad på 368 ms · cache AV · v20260730165559-full.f96bc7eb