Zeki AKDOĞAN - Kişisel Web Sitesi Ana Sayfa | RSS RSS | İletişim

Regex ile bkz vermek...


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ş


YORUMLAR YORUM EKLE
Ana Sayfa | RSS | İletişim
Zeki AKDOĞAN 2009 © Hiçbir hakkı saklı değildir.