Nån som har nån idé för att den ska leta reda på länkar i en text och replaca dem så det blir länken igen?

*Joel!*

Detta svar fick jag av Peter Aronsson när jag hade samma problem!

content = "Detta är texten med länken och länken är http://www.com som jag vill få klickbar när jag skriver ut den till sidan"
iPos = InStr(1, content, "http://", 1)
If iPos > 0 Then
iPos2 = InStr(iPos, content, " ", 1)
iPos3 = InStr(iPos, content, vbNewLine, 1)
If (iPos2 > iPos3 And Not iPos3 = 0) Or iPos2 = 0 Then iPos2 = iPos3
If iPos2 = 0 Then iPos2 = Len(content) + 1

strHref = Mid(content, iPos, iPos2 - iPos)
strNewHref = "" & strHref & ""
content = Replace(content, strHref, strNewHref, 1, -1, 1)
End If



mvh Stefan

Hej!

Kika på den här:
http://www.pellesoft.nu/development/forum/view.asp?msgid=7323&forumid=1

Lycka till och lev väl,
Tom S.

Tack!!

*Joel*