Jag tror att du skulle kunna ta en titt på Regular Expressions istället. Mycket enklare att göra det med det.
Frågan#1
Jag undrar hur jag med denna kod får automatiska länkar utskrivna även med www. I Med nuvarande kod blir det enbart en länk om man skriver http://www.xxx.xx som webbsida men eftersom många (som jag) ofta bara skriver https://www.xxx.xx skulle jag vilja att även detta automatiskt blir en länk.
Hoppas ni förstår vad jag menar?
Function make_link(txt)
' Initiering i början
txt = Replace(server.HTMLEncode(txt),vbCrlf,"<br>")
sPos = inStr(lCase(txt),"http://") ' Hämtar positionen för första länken
' Fyll denna array med tecken som avslutar en länk << HÄR KAN DU ÄNDRA OM DU VILL >>
stoppa = Array(";",","," ","!","<",">")
Do While sPos <> 0 AND sPos < len(txt)
' Initiering av grejer i lopen
startLink = sPos ' Länkens startpos
tmpChar = "" ' Nollställ
tmpLink = "" ' Nollställ
stop_it = "FALSE"
' Plocka ut namnet på länken
Do Until sPos > len(txt)+1 OR stop_it = "TRUE"
tmpLink = tmpLink & tmpChar
tmpChar = Mid(txt,sPos,1)
endLink = sPos - 1
sPos = sPos + 1
For X = 0 To Ubound(stoppa) ' Kollar om tmpChar är ogiltig
If tmpChar = stoppa(X) Then stop_it = "TRUE"
Next
Loop
vanster = Left(txt,startLink-1) ' Texten till vänster om länken
hoger = Right(txt,len(txt)-endLink) ' Texten till höger om länken
' Sätt ihop den nya texten, med länk!
txt = vanster & "<a href='" & tmpLink & "' target = '_blank'>"_
& tmpLink & "</a>" & hoger
' Leta fram nästa länk
jumpTo = endLink + 33 + len(tmpLink)
sPos = inStr(jumpTo,lCase(txt),"http://")
Loop
' Tillåten HTML kod
txt = Replace(txt,"[c]","<font color='red'>")
txt = Replace(txt,"[/c]","</font>")
txt = Replace(txt,"[b]","<b>")
txt = Replace(txt,"[/b]","</b>")
txt = Replace(txt,"[i]","<i>")
txt = Replace(txt,"[/i]","</i>")
make_link = txt
End Function
