Split Fonksiyonu || VB

Visual Basicdeki bu fonksiyon kullanılarak , belirli bir karakter ile ayrılan metinleri, bileşenlerine ayrılabilmektedir.

Form üzerine 1 adet TextBox ve bir adet ListBox yerleştirelim.


Private Sub Text1_Change()

Dim vField As Variant

List1.Clear

If InStr(1, Trim(Text1), ";") Then

For Each vField In Split(Trim(Text1), ";")

List1.AddItem CStr(vField)

Next

End If

End Sub