123/45/689/172
@peceha, post #1
p=1 // Pozycja w ciągu tekstowym, od której zacznie pobierać pierwszą sekwencję numeryczną za pomocą Mid() sText="123/45/689/172" Gosub PickSequence Print t // Wyświetl pierwszą sekwencję liczbową (ponowny skok do PickSequence rozpocznie pobieranie kolejnej sekwencji wykorzystując zapamiętaną pozycję w zmiennej 'p') End PickSequence: n = "": t = "" While n <> "/" And p - 1 <= Len(sText) t = t + n n = Mid(sText, p, 1): p = p + 1 Wend Return
@Umpal, post #4
@peceha, post #6