RegExp prob....

3 svar · 173 visningar · startad av mr.andersson 27 sep. 2001

mr.anderssonMedlem sedan sep. 20012 inlägg

27 sep. 2001 16:37#1

Hej! ä helt ny här! Men jag lyckades hitta en funktion för att göra om länkar som man skriver utan <A HREF> till "riktiga länkar". Men det funkar inte med =( Nån som vet felet?

Function GetUrl(ByVal strInlagg)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strInlagg = re.Replace(strInlagg, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")

re.Pattern = "(http://|https://|ftp://|mailto:)(\S)(\S+)"
strInlagg = re.Replace(strInlagg, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")

re.Pattern = "(www\.(\S)(\S+))"
strInlagg = re.Replace(strInlagg, "<a href=""http://$1"">$1</a>")
strInlagg = Replace(strInlagg, mDelimit, "")

re.Pattern = Replace(f_strText,vbcrlf," " & vbcrlf)

GetUrl=strInlagg

End Function

PaceMedlem sedan juni 20019 024 inlägg

27 sep. 2001 18:41#2

Welcome mr.andesrson!!

re.Pattern = Replace(f_strText,vbcrlf," " & vbcrlf)

borde kunna skrivas till

strInlagg = Replace(strInlagg, vbcrlf, " " & vbcrlf)

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 27 sep 2001]

mr.anderssonMedlem sedan sep. 20012 inlägg

27 sep. 2001 20:10#3

Tackar Tackar!
Nu funkar de ju!
Haru lust o hjälpa mig med en sak till?
Nämligen att få och att göra fet text? Äre svårt???

jaja tack för att du fick de o funka iallafal!

jorgenMedlem sedan feb. 20012 412 inlägg

27 sep. 2001 20:18#4

Hej och välkommen till wF!

Sneglar lite försiktigt ner på emissions underverk:
http://script.webforum.nu/wf/Forum1/HTML/000093.html

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

[Redigerat av jorgen den 27 sep 2001]