Keskustelu: Koodit: VB6: Erottelija

Public Function Erottele(Eroteltava As String, St As String, En As String, Detlimiter As String) As String
On Error Resume Next 'Jos tulee erroori ni hypätään yli

Dim k() As String ' Taulukkomuuttuja
Dim b() As String ' Taulukkomuuttuja


k = Split(Eroteltava, En) ' splitataan eroteltava merkillä johon haluutaan lopettaa


For i = 0 To UBound(k)'looppi
    b = Split(k(i), St)' splitataan koon i merkillä jolla aloitetaan


    For c = 0 To UBound(b) ' looppi 2
        Erottele = Erottele + b(c + 1) & Detlimiter ' mikäli on enemmän eroteltavaa kuin yksi niin silloin palautetaan teksti yhtenä muuttujana Itsevalittavalla erottimella erotettuna
        DoEvents 'ettei jumita
    Next c
    DoEvents 'ettei jumita


Next i
End Function

Private Sub Command1_Click()
   MsgBox Erottele(Text1.Text, "(", ")","")' Käytetään funktiota
End Sub

Private Sub Form_Load()
    Text1.Text = "Tiesittekö että (tesmu) on pro"' Lisätään tekstipoksiin jotakin että tapahtuu jotakin nappia painettaessa
End Sub