Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Classic Asp , Excel , Ms Project, Excel VBA , E-Ticaret , Mobil , Desktop
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Kategoriler

Sitelerim

Önerdiklerim

Türkçe Karakterler olan verileri büyük veya küçük yapma ( UCase LCase Turkish Version) 19.07.2011

Function BuyukKucukTR(gelenveri,islem) 
' İşlem = 1 Büyük Harf Yap
' İşlem = 2 Küçük Harf Yap

tempp=gelenveri

TRdizi1="ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZWX" 
TRdizi2="abcçdefgğhıijklmnoöprsştuüvyzwx"

'İŞLEM SEÇİMİ

If islem=1 Then        'büyütme işlemi 
     For i=1 To Len(TRdizi1) 
          tempp=Replace(tempp, Mid(TRdizi2,i,1), Mid(TRdizi1,i,1))        'al birini koy ötekine... 
     Next

     tempp=UCase(tempp) 
End If

If islem=2 Then        'küçültme işlemi 
     For i=1 To Len(TRdizi2) 
          tempp=Replace(tempp, Mid(TRdizi1,i,1), Mid(TRdizi2,i,1)) 'al birini koy ötekine... 
     Next

     tempp=LCase(tempp) 
End If 
BuyukKucukTR=tempp 
End Function



Tags :


Yazının Devamı

Function CreateURL(Text) 03.04.2011

Yazıda bulunan url leri link`e çevirmek için regular expressions ile hazırlanmış fonksiyon.



    Function CreateURL(Text)

        Set regEx = New RegExp

            With regEx

                .IgnoreCase = True

                .Global     = True

                .Pattern     = "\[url=((http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}?/?[a-zA-Z0-9\-\._\?\,\`/\\\+&%\$#\=~]*)\](\s*[a-zA-Z]+((.|\n)*?)\s*)\[\/url\]"

            End With

        Set objEx = regEx.Execute(Text)



            For Each x In objEx

                Text = Replace(Text,x,""& Trim(x.SubMatches(2)) &"", 1,-1,1)

            Next

        CreateURL = Text

    End Function



Tags :


Yazının Devamı