Cümlenin kısa olarak listelenmesi

 
   
  Function Cevir(strVeri)  
       If strVeri = "" Then Exit Function  
   
       Set objRegExp = New Regexp  
       With objRegExp  
            .Pattern = "<.*?>"  
            .IgnoreCase = False  
            .Global = True  
       End With  
    
       Cevir = objRegExp.Replace(strVeri,"")  
    
  End Function  
   
   
  Function YaziKirp(Metin,Stryaziuzunluk,Adres) 
      Metin=Left(Cevir(Metin),Stryaziuzunluk)&"   ...<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=22328202&url=&Adres&" data-href="&Adres&">..devamı>></a>" 
      YaziKirp=Metin 
  End Function 
   
  

 
  Ticaret Okulu için hazırladığımız bu projemiz sitedeki gelişmeleri kullanıcılarına ulaştırmak için üyelerine özel olarak hazırlanmıştır.  
   
  <A href="http://www.ticaretokulu.com/Forums/viewtopic/t=1072.html"  
  target=_blank><IMG  
  src="http://www.enderarslanturk.com.tr/Resimler/Makaleler/Projeler/6a.Jpg"  
  border=0></a> 
   
  Standart bildiğimiz rss okuyucuları gibi olmayan Rss Haber Alarmı programı ile;  
   
  a. Son açılan başlıkların listelenmesi, 
  b. Son yapılan yorumların listelenmesi, 
  c. Online kişi sayısı, 
  d. Tüm üyelerin listesi gibi özelliklere sahiptir.