Boşlukları Düzenleme Fonksiyonu

 
<%
Function BoslukDuzenle(ByVal strYazi)

'|============================
'| Boşlukları Düzenleme Fonksiyonu
'| mydesign a.k.a doronty37
'| http://www.mydesign.gen.tr
'| mydesign@mydesign.gen.tr
'|============================


If strYazi = "" Then Exit Function

strGeciciYazi = Replace(strYazi, " ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strGeciciYazi = Replace(strGeciciYazi, " ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strGeciciYazi = Replace(strGeciciYazi, " ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strGeciciYazi = Replace(strGeciciYazi, " ", "&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strGeciciYazi = Replace(strGeciciYazi, " ", "&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strGeciciYazi = Replace(strGeciciYazi, vbTab, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)

BoslukDuzenle = strGeciciYazi

End Function
%>


Kullanımı

<%=BoslukDuzenle("a a")%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

boşlukları düzenleme fonksiyonu