🚀 go-pugleaf

Funkje zamierzam wykorzystywac b. czesto w makrze i zalezy mi by ja jak
nabardziej uproscic.
Celem jej jest zwrocic wyrazenie lub wyrazenia znajdujace sie miedzy
okreslonym separatorem.

--- kod ---
Public Function fragment(wartosc, separator, pozycja, ile_wyrazow)

w = wartosc
s = separator
p = pozycja
i = ile_wyrazow
l = Len(w)

Dim x As Byte
Dim y As Byte

' poczatek
x = 1 'kolejny znak
y = 1 'kolejny przebieg
    Do While y < p
        If IsNumeric(InStr(x, w, s)) Then
            x = InStr(x, w, s) + 1
        End If
        y = y + 1
    Loop
xs = x

' koniec
x = 1
y = 1
    Do While y < p + i
        If IsNumeric(InStr(x, w, s)) Then
            x = InStr(x, w, s) + 1
        End If
        y = y + 1
    Loop
xe = x

fragment = Mid(w, xs, (xe - xs) - 1)

End Function
--- koniec kodu ---

Bede wdzieczny za wszelkie sugestie.

Pozdrawiam

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/