Split(değişken, ayraç karakteri, eleman sayısı, karşılaştırma şekli)
Split Fonksiyonu
Sonuç Değeri
Split("42, 12, 19")
Split("42, 12, 19", ", ")
Split("42, 12, 19", ", ", 2)
Split("192.168.0.1", ".")
Split("Alice and Bob", " AND ")
Split("Alice and Bob", " AND ", ,CompareMethod.Text)
Split("someone@example.com", "@",1)
Split("someone@example.com", "@",2)
{"42," , "12," , "19"}
{"42", "12", "19"}
{"42", "12, 19"}
{"192", "168", "0", "1"}
{"Alice and Bob"}
{"Alice", "Bob"}
{"someone@example.com"}
{"someone", "example.com"}
Örnek:
Dim
Dim
Dim
For
DenemeSonucu As String = "Yenilenebilir - Enerji - Teknolojileri"
TestArray() As String = Split(DenemeSonucu, "-")
sayac As Integer = -1
i As Integer = 0 To TestArray.Length - 1
If TestArray(i) <> "" Then
sayac += 1 'sayac 1 arttırlıyor
TestArray(sayac) = TestArray(i) 'Kelimeler belirleniyor
End If
TextBox1.Text = TextBox1.Text + TestArray(sayac) 'Sonuç:
Yenilenebilir Enerji Teknolojileri
Next
ReDim Preserve TestArray(sayac)
Resim 5.3: Örneğin ekran görüntüsü
5.3.1.13. Date, Time, Now Zaman Fonksiyonları
Bu fonksiyonlar sistemin fonksiyonun kullanıldığı andaki tarih, saat bilgilerini
öğrenmemizi sağla r.
Date.Today: Günün tarihini göterir.
TimeOfDay : Saati gösterir.
Now: O anki tarih ve saati gösterir.
52