regular expression sorunu

15-10-2008, 23:59:28

Kimlik doğrulama veya yönetimden onay bekliyor.

aşağıdaki kodu kullanarak gelen veri içindeki url adreslerini link yapıyorum ama $2 yazan bölümde çıkan sonuca Left($2,20) yapmak istiyorum ama sorun çıkarıyor bunu nasıl aşabilirim.

Function zz(byVal strVeri)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "\[(link)\](.+?)\[\/\1\]"
zz = objReg.Replace(strVeri, "<a>$2</a>")
Set objReg = Nothing
End Function

16-10-2008, 01:02:17

#2

apridev

Alıntı

Function zz(byVal strVeri)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "\[(link)\](.+?)\[\/\1\]"
zz = objReg.Replace(strVeri, "<a>"response.write left(("$2"),29)"</a>")
Set objReg = Nothing
End Function

Kod tam çalışırmı çalışmazmı bilmiyorum ama 3 aşağa 5 yukarı yazdığım şekilde olacaktır. (belkim $2 parantez içine alınmayabilir)

16-10-2008, 01:07:56

#3

oxygene

bu da olmadı neden olmuyor onuda anlamış değilim hala