Du kan ju alltid kontrollera sista tecknet i strängen och inte ta med det i länken om det är ett ogiltigt tecken.
Tror dock att det skulle fungera lite enklare om du använde dig utav regexp.
Frågan#1
Denna kod fungerar för att konvertera vanlig text till länkar men det fungerar inte speciellt bra om man har komman ( , ) och punkter ( . ) eftet länken. Hur fixar man det??
Kod:
<% Function Fixmylinks(strText)
Dim Hyperarray, Link, strText2, Check_link, Link_fixed
Hyperarray = Split(strText)
For Each Link in Hyperarray
If Len(Link)>7 Then
If Left(Link,7)="http://" Then
strText2 = strText2 & "<a href=" & Link & " target=_blank>" & Link & "</a> "
ElseIf Instr(Link,"@")>1 Then
strText2 = strText2 & "<a href='mailto:" & Link & "'>" & Link & "</a> "
Else
strText2 = strText2 & Link & " "
End If
Else
strText2 = strText2 & Link & " "
End If
Next
Fixmylinks = strText2
End Function %>