Merhaba Arkadaşlar ; Bu Makalemizde String Fonksiyonları İnceliyeceğiz.
Tüm Programlama Dillerinde Olduğu Gibi Visual Basic de de Çeşitli İşlemleri Gerçekleştirmek İçin Fonksiyonlar Kullanırız.Şimdi Bunları Örnekleriyle Anlatmaya Çalışacağım ;
1. Asc() Fonskiyonu
Bu Fonksiyon String Bir Değişkenin ASCII Kodunu Bulmamıza Yarar.
Kullanım:ı Asc("karakter")
Örnek : Button'a Tıkladığımızda Textbox'umuza "A"'nın Asc Kodunu Yazsın; Bunun İçin Formumuza Bir Adet Textbox Bir Adet Command Button Ekliyoruz. ve Button'umuzun Click Event'ına Şunları Yazıyoruz..;
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Text1.Text = Asc("A")
End Sub
---------------------------------------------------------------------------------
Programımızı Çalıştırdığımızda A'nın ASCII Kodunun 65 Olduğunu Öğrendik.
2.Chr() Fonksiyonu
Asc Fonksiyonun Tam Tersidir. ASCII Kodu Verilen Karakteri Verir.
Kullanımı : Chr(ASCII Kod)
Örnek : Buttona Tıkladığımızda Textbox'umuza "A" Yazsın Bunun İçin Formumuza Bir Adet Textbox Bir Adet Command Button Ekliyoruz. ve Button'umuzun Click Event'ına Şunları Yazıyoruz..;
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Text1.Text = Chr(65) => Bir Önceki Örneğimizde A'nın ASCII Kodunu 65 Bulmustuk.
End Sub
---------------------------------------------------------------------------------
3.IsArray() Fonksiyonu
Girilen Değişkenin Dizi Olup Olmadığını Verir Eğer ; Değişken Diziyse True , Değilse False Olarak Döner.
Kullanımı : IsArray(Değişken)
Örnek : 2 Değişken Tanımlayalım Biri Dizi Olacak Şekilde Buttona Tıkladığımızda Eğer Diziyse Textbox'umuza "Girdiğiniz Değişken Bir Dizidir" Yazsın. Yine Bir Button ve Textbox Ekleyip Buttonumuza Şunları Yazıyoruz..
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim deneme(1 To 5) As Integer
Dim a, MyCheck
If IsArray(deneme) = True Then
Text1.Text = "Girdiğiniz Değişken Bir Dizidir"
If IsArray(a) = False Then
Text2.Text = "Girdiğiniz Değişken Bir Dizi Değildir."
End If
End If
End Sub
---------------------------------------------------------------------------------
Instr Fonksiyonu
Verilen String Değişken veya Bilgi İçinden Bir Başka String veya Karakteri Arar.
Eğer Aradığınız Karakter veya String Aranan String İçinde Yoksa Fonksiyon 0 Değerini Üretir,Fakat Varsa Aranan String veya Karakterin Bulunan String İçinde Kaçıncı Karakter Olduğunu Gösterir. Büyük/Küçük Harf Ayrımı Yapmaktadır.Başlangıç Değeri Verilmezse Bu Değer Fonksiyon Tarafından 1 Olarak Atanır.
Kullanımı Instr(Başlangıç,String,Aranan)
Örnek
Formumuza 2 Textbox Bir Command Button Ekliyoruz. Textbox'umuza vbAsic Yazıyoruz.Buttonumuza Tıkladığımızda vbAsic Yazısında A'nın Kaçıncı Karakter Olduğunu Bulsun.Başlangıc Değeri Olarak 1 Atıyoruz.Command Button umuza Şunları Yazıyoruz
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim AranacakString, bulunacak, karakter
AranacakString = Text1.Text
bulunacak = "A"
karakter = InStr(1, AranacakString, bulunacak)
Text2.Text = karakter
End Sub
---------------------------------------------------------------------------------
Len() Fonksiyonu
Girilen String veya Veriant Bir Değişkenin Karakter Sayısını Verir.
Kullanımı Len(Değişken)
Örnek
Formumuza 2 Textbox 1 Command Button Ekleyelim.Textboxumuza "vbasicmaster" yazalım karakter sayısını 2.textbox a yazsın
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Len(t)
Text2.Text = s & "Karakterden Oluşuyor"
End Sub
---------------------------------------------------------------------------------
Left(),Left$() String İfadenin En Solundaki Belirtilen Sayıdaki Karakterleri Verir.
Kullanımı Left(Değişken,Uzunluk)
Örnek Formumuza 2 Adet Textbox Bir Adet CommandButton Ekleyelim ve Aşağıdaki Kodları Yazdıktan Sonra Programımızı Çalıştırıp 1.Textbox'ımıza Birşeyler Yazalım ve Onun Soldan 2 Karakterini Alalım..Buttonumuza Tıklıyoruz ve ...
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Left$(t, 2)
Text2.Text = s
End Sub
---------------------------------------------------------------------------------
Lcase(),Lcase$() Fonksiyonu
Verilen String İfadedeki Türkçe Karakterler Hariç Tüm Karakterleri Küçük Harfe Çevirir.
Kullanımı Lcase(değişken)
Örnek Formumuza İki Adet Textbox 1 de Command Button Yerleştiriyoruz. Buttona Tıkladığımızda Textboxa Girdiğimiz "VBASICMASTER" Yazısı vbasicmaster a Dönüşsün.
-------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = LCase(t)
Text2.Text = s
End Sub
---------------------------------------------------------------------------------
Trim,Ltrim,Rtrim Fonksiyonu
Trim : Sağ ve Soldaki Tüm Boşlukları Kaldırır.
Ltrim : Soldaki Tüm Boşlukları Kaldırır.
Rtrim: Sağdaki Tüm Boşlukları Kaldırır.
Kullanımı Trim(değişken)
Örnek
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Trim(t)
Text2.Text = s
End Sub
-----------------------------------------------------------------------------------
Hepsinin Kullanımı Aynı Olduğu İçin Bir Örnek Yeter.
Mid(),Mid$() Fonksiyonu
Girilen String Değişken İçerisinden Başlangıç Karakterinden İtibaren Belirtilen Sayıdaki Karakteri Sonuç Olarak Verir.
Kullanımı Mid(String,Başlangıç,Sayı)
Örnek 2 Adet Textbox 1 Adet Command Button Ekliyoruz Buttonumuza Tıkladığımızda 1.Textboxumuza Girdiğimiz Yazının 7. Karakterden Sonra 3 Karakterini 2. Textboxumuza Yazdıralım.
--------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Mid(t, 7, 3)
Text2.Text = s
End Sub
-------------------------------------------------------------------------
Right(),Right$() Fonksiyonu
Right(),Right$() String İfadenin En Solundaki Belirtilen Sayıdaki Karakterleri Verir.
Kullanımı Left(Değişken,Uzunluk)
Örnek Formumuza 2 Adet Textbox Bir Adet CommandButton Ekleyelim ve Aşağıdaki Kodları Yazdıktan Sonra Programımızı Çalıştırıp 1.Textbox'ımıza Birşeyler Yazalım ve Onun Sağdan 3 Karakterini Alalım..Buttonumuza Tıklıyoruz ve ...
----------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Right(t, 3)
Text2.Text = s
End Sub
-----------------------------------------------------------------------------------
Space(),Space$() Fonksiyonu
İstenilen Sayıda Boşluk Bırakmaya Yarar. Sadece Print Komutu İle Kullanılabilir.
Kullanımı Space(BoşlukSayısı)
Örnek Formumuza Bir Adet Textbox Bir Adet de CommandButton Ekliyoruz.Buttonumuza Tıkladığımız Zaman Textboxumuza Girdiğimiz vbasicmaster Yazısından Sonra 1 Boşluk Bırakıp Com Yazsın.
------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t As String
t = Text1.Text
Print t; Spc(1); "Com"
End Sub
------------------------------------------------------------------------------------
String(),String$() Fonksiyonu
Verilen Karakterden,Karakterin ASCII Kodundan veya String Değişkenin İlk Karakterinden Belirtilen Sayı Kadar Çoğaltarak String Bir Değişken Oluşturur.
Kullanımı String(Sayi,Karakter)
Örnek Formumuza İki Textbox ve Bir Button Ekliyoruz ve , Textbox1 deki Girdiğimiz A Harfi Textbox2 de 5 Kere Yazılsın.
--------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t As String
t = Text1.Text
s = String(5, t)
Text2.Text = s
End Sub
---------------------------------------------------------------------------------------
StrComp() Fonksiyonu
Değişkenleri Oluşturan Karakterlerin ASCII Kodlarını Dikkate Alarak Soldan Sağa Doğru Karakterleri Kıyaslar. Fonksiyonun Kıyas Değeri 1 Olarak Verilirse Karsılastırma Sırasında Büyük/Küçük Harf Ayrımı Yapmaz. 0 veya Hiçbir Sayı Girilmezse Büyük/Küçük Harf Ayrımı Yapar.Sonuç Değerine Göre Stringlerin Hangisinin Büyük Olduğunu Şu Şekilde Anlarız.

Eğer Sonuç = 0 İse String1 > String2
Eğer Sonuç = 1 İse String1 = String2
Eğer Sonuç= -1 İse String1 < String2

Kullanımı : StrComp(String1,String2,Kiyas)
Örnek : Formumuza 3 Adet Textbox Ekliyoruz.. Birinci ve İkinci Textbox'ımıza Kıyaslamak İstediğimiz İfadeleri Giriyoruz.Üçüncü Textbox'ımıza da Hangisinin Büyük Olduğunu Yazdırıyoruz..
---------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s, l
t = Text1.Text
s = Text2.Text
l = StrComp(t, s, vbTextCompare)
If l = 1 Then
Text3.Text = t & ("büyüktür") & s
End If
If l = 0 Then
Text3.Text = t & ("eşittir") & s
End If
If l = -1 Then
Text3.Text = t & ("küçüktür") & s
End If
End Sub
-----------------------------------------------------------------------------------------------------
Ucase(),Ucase$() Fonksiyonu
Girilen String Değişkenin İçerisindeki Tüm Küçük Harfleri Büyük Harfe Çevirir. Türkçe Karakterler Hariç.
Kullanımı Ucase(Değişken)
Örnek Formumuza 2 Adet Textbox ve Bir de Command Button Ekleyelim Yukarıda Textbox1'e Girdiğimiz Küçük Harfleri Büyük Harfe Çevirerek Textbox2'ye Yazsın.
--------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s =UCase(t)
Text2.Text = s
End Sub