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) = "Revo"
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.
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.
0 yorum:
Yorum Gönder