Asagidaki kod, functiona gönderilen string içerisine (bkz: deneme) seklinde girilen metni (bkz: <a href="sozluk.aspx?t=deneme">deneme</a> ) sekline çeviriyor.
Public Shared Function bkz(ByVal metin As String) As String Dim strContent As String = metin Dim urlregex As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("\(bkz:\s*(.+?)\)", RegexOptions.IgnoreCase Or RegexOptions.CultureInvariant Or RegexOptions.IgnorePatternWhitespace Or RegexOptions.Compiled) metin = urlregex.Replace(metin, "(bkz: <a href=""sozluk.aspx?t=$1"">$1</a> )") Return metin End Function
Yazılım | 0 Yorum | 01.03.2008 09:54:06 Etiketler: Etiket Eklenmemiş