[b]Original:[/b] (del av kod)
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1target=""_blank"">$1</a>")
strText = Replace(strText, mDelimit, "")
[b]Mina försök:[/b]
re.Pattern = "(www\.(\S)(\S+))"
' ## SPLIT FOR TITLE
DIM arrTitles, strTitle , strPath
IF InStr("$1", "++") THEN
arrTitles= Split("$1", "++")
IF IsArray(arrTitles) THEN
strPath = arrTitles(0)
' strTitle = arrTitles(1)
END IF
ELSE
strPath = re.Replace(strText, "$1")
END IF
[b]strText = re.Replace(strText, "<a href=""http://" & strPath & " target=""_blank"">" & strTitle & "</a>")[/b]
strText = Replace(strText, mDelimit, "")
Originalet ovan fungerar, men det under fungerar inte.
Det är därför jag vänder mig till forumet och dess experter! Jag har letat och experimenterat och jag har känning på lösningen...
Jag vill alltså att man ska skriva: (utan mellanslag)
www. url .se/nyheter.asp?blabla=12345&blalbalba=1234++Rubrik På Artikel
Resultatet ska vara:
(start länk, allt före ++)Rubrik På Artikel(slut länk)