Jag har den här funktionen skriven i asp. Hur ska jag skriva för att den ska fugnera i asp.net? Det får finnas gränser för vänlighet men jag kan ge dig en liten kodstump som du kan vidareutveckla med hjälpen och ev intellisence: Nu har jag fått tag på en fungerande funktionGöra om till länkar
<code>
Function GetUrl(ByVal strText)
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]+)"
strText = re.Replace(strText, "$1")
re.Pattern = "(http://|https://|ftp://|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "$2" & mDelimit & "$3")
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "$1")
strText = Replace(strText, mDelimit, "")
GetUrl=strText
End Function
</code>Sv: Göra om till länkar
<code>
Dim s As System.Text.RegularExpressions.Regex
If s.IsMatch(InputString, RegExPattern) Then
'' Strängen matchar
End If
</code>
InputString är det sträng som ska kontrolleras och RegExPattern är det reguljära uttryck som den ska matchas mot.
If-satsen är sann om strängen uppfyller uttrycket.
//Mikael.NETSv: Göra om till länkar
<code>
Public Shared Function makelink(ByVal y As String) As String
Dim mDelimit As String
Dim re As Regex
mDelimit = Chr(0)
re = New Regex("(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)", RegexOptions.IgnoreCase)
y = re.Replace(y, "$1")
re = New Regex("(http://|https://|ftp://|mailto:)(\S)(\S+)", RegexOptions.IgnoreCase)
y = re.Replace(y, "$2" & mDelimit & "$3")
re = New Regex("(www\.(\S)(\S+))", RegexOptions.IgnoreCase)
y = re.Replace(y, "$1")
makelink = Replace(y, mDelimit, "")
End Function
</code>