Fungsi Split VB 6.0

Split VB 6.0

    Fungsi atau kegunaan split adalah untuk memecahkan/memisahkan string dengan ditentukan pembatasnya kemudian di tampung dalam variable array.
  
syntax;
            split(ekspresi as string,[delimiter],[limit as long=-1],[Compare as VbCompareMethod=VbBinaryCompore])


 Parameter

Ekspresi	target string yang akan dipecah belah
delimiter	karakter penentu. karakter ini yang akan di jadikan tanda pengenal proses belah membelah string
limit as long =-1	batas limit. mau berapa kali string akan di pecah belah ? default nya adalah -1 yang berarti setiap string akan dipecah belah tergantung string nya itu sendiri, ntar pun agan paham heheheh
Compare as VbCompareMethod=VbBinaryCompore	mode case-sensitive. kasus ini mengara pada tanda pengenal "delimiter". defaultnya adalah vbbinarycompore yang berarti non case-sensitive, dan vbtextcompare adalah mode case-sensitive

                                                                                                                             
Contoh penulisan/statemen
        *karena prosedur split di haruskan untuk menggunakan variable array maka kita harus membuat variable array terlebih dahulu.
        *disarankan untuk membuat variable array tanpa ditentukan batasnya
       
        dim iniarray() as string
        iniarray = Split("kesatu.kedua.ketiga", ".")      

Kesimpulan;            dari contoh di atas kita hanya mengisi option split  ekspresi = "kesatu.kedua.ketiga"
                                                                                      delimiter = "." atau karekter titik
            yang artinya, setiap string akan di pecah menjadi substring sesuai karakter delimiter kemudain pecahan tersebut di impor ke variable. pada contoh ini delimiter adalah karakter/tanda titik "."
            maka nilai dalam variable array tersebut

           niarray(0) = "kesatu"
            iniarray(1) = "kedua"
            iniarray(2) = "ketiga"           
Contoh dengan option limit as long=-1nilai option ini secara defaultnya sudah di tentukan yaitu -1 tapi kita bisa mengubahnya.
           
          dim iniarray() as string
        iniarray = Split("kesatu.kedua.ketiga", ".", 2)
        aka nilai dalam variable array tersebut
            iniarray(0) = "kesatu"
            iniarray(1) = "kedua.ketiga"

Contoh dengan option [Compare as VbCompareMethod=VbBinaryCompore]nilai option ini secara defaultnya sudah di tentukan yaitu VbBinaryCompore yang artinya delimiter tidak case-sensitive, dan untuk menjadikannya case-sensitive kita menggunakan option vbtextcompare
           
            dim iniarray() as string
            iniarray = split("kesatu DAN kedua DAN ketiga", "DAN", , VbTextCompare)
            maka nilai dalam variable array tersebut
            niarrat(0) = "kesatu"
            iniarray(1) = "kedua"
            iniarray(2) = "ketiga"