Function GetNum(num$,xte)
onOne=0
For I=1 To Len(num$)
 a$=Mid(num$,I,1)
 If a$=\"1\" Then
 onOne = 1
 EndIf
 If onOne=1 Then xOnes = xOnes + 1
 If a$<>\"1\" And onOne=1  Then
 count = count + 1
 If xte=count Then Return xOnes-1
 onOne=0
 xOnes=0
 EndIf ;=0
Next
Return 0
End Function

H=1
Repeat
getOne=GetNum(\"10011011110\",H)
Print getOne
H=H+1
Until getOne=0

Type E Field Anz End Type
;

Function GetNum (num$)
    
    For i = 1 To Len (Num$)
        If Mid (num$,i,1) = 1 Then ;wenn eine 1
            Einer = Einer + 1
         Else ;wenn 0
            If einer Then ;wenn Einer vorhanden
                X.E = New E
                X\Anz = Einer ; speichern
                Einer = 0
            End If
        End If
    Next
    
    If einer Then ; ween noch zahlen da sind
        X.E = New E
        X\Anz = Einer
    End If
End Function

;
GetNum (\"10011011110\")

For x.E = Each E
    Print x\anz
Next

WaitKey