get_numbers("453f358f264")

WaitKey


Function get_numbers(strng$)
    strng$=strng$+"f" ; to terminate the string
    strng_lenght=Len(strng$) ; get length of string as int

    For i=1 To strng_lenght ; go through every char in the string
        nextsign$=Mid(strng$,i,1) ; get the char at position i (defined in for loop above)
        If (nextsign$<>"f") ; if it wasnt a 'f'
            If Mid(strng$,i+1,1)<>" " ; and the next sign after the 'f' wasnt a blank (' ')
                number$=number$+nextsign$ ;add it to the number string we are excrating
            EndIf
        Else ; if it was a 'f'
            Print number$ ; print our number string
            number$="" ; clear it
        EndIf
    Next
End Function