[VB6] Join Nedir? Neye Yarar? Nasil Kullanilir? Ne Yapilabilir?
[VB6] Join Nedir? Neye Yarar? Nasil Kullanilir? Ne Yapilabilir?
Bir önceki yazımda split nedir onu anlatmıştım hatırlarsanız. :)
Bu konumuzda tam tersi bir operatör join terimini anlatacağım
Tersi dediğim için biraz çözmüş olmanız gerekir şimdiden. :)
Peki Join Nedir?
Join bir dizi degişkeni veya farklı degişkenleri belirli bir ayraç ile birleştirerek yeni bir degişken oluşturan terimdir.
Kısa bir örnek verecek olursak
Sub Main()
Dim sStr(3) As String
sStr(0) = "Harmmy"
sStr(1) = "Visual"
sStr(2) = "Basic"
sStr(3) = "Dersleri"
MsgBox Join(Array(sStr(0), sStr(1), sStr(2), sStr(3)), "-")
End Sub
Neye Yarar?
Belirttiğim gibi degişkenleri belirlenen ayraç ile birleştirir.
Nasıl Kullanılır?
Array operatörü ile birlikte kullanılabilir.
Array olmadan da kullanılabilir.
Kısa bir örnek ile açıklayayım.
MsgBox Join(Array(sStr(0), sStr(1), sStr(2), sStr(3)), "-")
yukarıdaki satırı
MsgBox Join(sStr(), "-")
olarak yapabiliriz. yalnız sistemler arası uyumluluk açısından array öneririm.
Ne Yapılabilir?
Dosya birleştirme programını örnek verelim yine.
2 adet dosyamız olsun bunları okuyalım ve birleştirip yeni bir dosya oluşturalım.
Dosya okumayı bilmeyenler şu konuma baksınlar.
1. dosyamızın data yani verisinin olduğu değişkene
Dim Veri0 As String 'diyelim.
2. dosyamızın data yani verisinin olduğu degişkenede
Dim Veri1 As String 'diyelim.
Bunları atamasını yaptıktan sonra yeni bir degişkende toplamak istiyorsak eger o değişkenede
Dim ToplamVeri As String 'diyelim.
O zaman kodumuz şöyle olacaktır
ToplamVeri = Join(Array(Veri0, Veri1), "-")
MsgBox Join(Array(Veri0, Veri1), "-")
Sonuç olarak:
"-" yazısındaki - işareti bizim ayracımız oluyor siz istediğiniz ayracı orayı degişerek yapacaksınız
örnegin
MsgBox Join(Array("Merhaba","Nasılsın")," XXX ")
bu kodun çıktısını şöyle gösterebilirim.
Bir başka yazımızda görüşmek üzere...
Anlatım: Harmmy
Konu: Visual basic 6 Join Operatörü
hocam vb6 datediff fonksiyonunuda açıklar mısınız?
YanıtlaSilBoş olduğum bir vakitte datediff terimini açıklayabilirim tabiki.:)
SilDateDiff fonksiyonunu birazdan yayınlayacağım.
Sil