🚀 go-pugleaf

Użytkownik "loki" <loki21.SKASUJ@gazeta.pl> napisał w wiadomości 
news:hgdoe6$3ia$1@inews.gazeta.pl...
>> możesz napisać dokładnie co ta funkcja ma robić - bo nie bardzo rozumiem 
>> ...
>> może też poczytaj o SPLIT?
>> robin
>
> Funcja, ma wyciagac fragment oddzielony okreslonym znakiem.
> Przykladowo dla tekstu "aaa/bbb/ccc/ddd/eee"
> a) uzywajac jej z parametrami "/",3,1 otrzymamy wynik "ccc"
> b) dla "/",2,2 "bbb/ccc", itd.
> Parametry to kolejno znak rozdzielajacy, ktore z kolei wyrazenie
> i ilosc wyrazen.
> Najwazniejsze dla mnie, by bylo okreslane ktory z kolei separator.
> Zaraz lukne to split, moze ta funkcja posiada to co potrzebuje.
>

To jakby cos w ten desen:

Public Function fragment2(wartosc, separator, pozycja, ile_wyrazow)

Dim arrTablica As Variant
Dim strTablica As String, i As Integer

arrTablica = Split(wartosc, separator)
For i = pozycja - 1 To pozycja + ile_wyrazow - 2
    strTablica = strTablica & arrTablica(i) & separator
Next i

fragment2 = Left(strTablica, Len(strTablica) - 1)

End Function

Malo elegancko, pewnie tez trzeba dokladniej sie przyjrzec, ale tak na 
szybko moze pomoze.


Pozdrawiam
Michal