• 06-09-2012, 20:33:02
    #1
    merhaba arkadaşlar hazır fonksiyonlarda tam aradığmı buldum dedğim bir fonksiyon sorunlu çalışıyor sorun ise yazılan metnin bir alt satıra kayıp orada www.deneme.com yada http:// şeklinde baştan devam edince link li yazıların otomatik olarak linkleme yapılamaması, kodlara baktımda fakat hatayı bir türlü bulamadım. yardım edermisiniz.
    kod:

    <%
    Function link_yap(strText)
    strText = " " & strText
    strText = ereg_replace(strText, "(^|[\n ])([\w]+?://[^ ,""\s<]*)", "$1<a href=""$2"">$2</a>")
    strText = ereg_replace(strText, "(^|[\n ])((www|ftp)\.[^ ,""\s<]*)", "$1<a href=""http://$2"">$2</a>")
    strText = ereg_replace(strText, "(^|[\n ])([a-z0-9&\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)", "$1<a href=""mailto:$2@$3"">$2@$3</a>")
    strText = right(strText, len(strText)-1)
    link_yap = strText
    End Function


    Function ereg_replace(strOrjinalString, strPattern, strReplacement)
    dim objRegExp : set objRegExp = new RegExp
    objRegExp.Pattern = strPattern
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    ereg_replace = objRegExp.replace(strOrjinalString, strReplacement)
    set objRegExp = nothing
    End function

    ' ÇALIŞMAYANI: satır atlayıp başa linklenecek url gelince linklenmiyor
    strLink="asdasd <br/>https://www.r10.net/id=9999&deneme=1&kim=ben deneme link "

    'ÇALIŞANI : başına bir kelime veya yazı gelince linkleniyor
    'strLink="asdasd <br/>deneme https://www.r10.net/id=9999&deneme=1&kim=ben deneme link "


    response.Write link_yap(strLink)


    %>
  • 14-09-2012, 17:08:40
    #2
    (^|[\n ]) bunları silip dener misin?
  • 15-09-2012, 15:22:53
    #3
    gökalp onları sildim bu sefer http:// ile başlayan linklerde sorun veriyor örnek şöyle çıktı veriyor www.deneme.com" target="_blank">http://www.deneme.com anlamadım
  • 15-09-2012, 18:24:16
    #4
    (^|[\n ]) kısmını (^|) olarak değiştirip dene.
    \n alt satıra geçmek demek de denemek lazım ya şimdi. bi ordan sil bi burdan kodda sıkıntı yok
  • 15-09-2012, 19:17:42
    #5
    asdasd
    www.r10.net/id=9999&deneme=1&kim=ben">https://www.r10.net/id=9999&deneme=1&kim=ben deneme link

    çıktı bu şekilde oldu http:// sıkıntı gitmedi yine
  • 19-09-2012, 01:37:48
    #6
    Kimlik doğrulama veya yönetimden onay bekliyor.
    ereg_replace php'de kullanılır, asp'de değil.
  • 19-09-2012, 09:37:24
    #7
    Üyeliği durduruldu
    nicturkey adlı üyeden alıntı: mesajı görüntüle
    ereg_replace php'de kullanılır, asp'de değil.
    fonksiyon oluşturmuş ismine de ereg_replace demiş, dikkatinden kaçmış sanırım, php ile alakası yok.

    müsait bi zamanda patterni hazırlayıp paylaşırım
  • 19-09-2012, 18:36:10
    #8
    tmm halloldu ufak srunu var ama her güzelinde bir eksiği vardır.
  • 25-09-2012, 10:43:46
    #9
    benim merak ettiğim fonksiyon güze eskiden kullandığım bir fonksiyondu ancak <img src=""https://www.r10.net/images/misc/vbulletin3_logo_white.gif""> ibareyi nasıl resim olarak gösteriyorsunuz yazı içindeki başka bir url'den gösterilen resimlerde sıkıntı yaşatır çünkü?