Article View: pl.comp.lang.vbasic
Article #104411Re: Prosba o uproszczenie funkcji
From: Tajan
Date: Fri, 18 Dec 2009 10:12
Date: Fri, 18 Dec 2009 10:12
35 lines
2083 bytes
2083 bytes
Użytkownik "Michal AKA Miki" <jakistammichal@z.onetu.pl> napisał w
wiadomości news:hgeh3l$3nt$1@inews.gazeta.pl...
> 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?
(..)
> To jakby cos w ten desen:
>
> Public Function fragment2(wartosc, separator, pozycja, ile_wyrazow)
Ewentualnie mozna też zaprząc do pracy i Join:
Public Function fragment(wartosc, separator, pozycja, ile_wyrazow)
Dim arrTablica As Variant
Dim arrTablicaWyn As Variant
Dim i As Integer
arrTablica = Split(wartosc, separator)
ReDim arrTablicaWyn(1 To ile_wyrazow)
For i = 1 To ile_wyrazow
arrTablicaWyn(i) = arrTablica(pozycja + i - 2)
Next i
fragment = Join(arrTablicaWyn, separator)
End Function
Tajan
Technical Details
Message-ID:
<hgfl9s$47c$1@nemesis.news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mailReferences:
<hgdfq6$2ku$1@inews.gazeta.pl> <hgdjja$foq$1@inews.gazeta.pl> <hgdoe6$3ia$1@inews.gazeta.pl> <hgeh3l$3nt$1@inews.gazeta.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail From: "Tajan" <Tajan@interia.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: Prosba o uproszczenie funkcji Date: Fri, 18 Dec 2009 11:12:04 +0100 Organization: TP - http://www.tp.pl/ Lines: 37 Message-ID: <hgfl9s$47c$1@nemesis.news.neostrada.pl> References: <hgdfq6$2ku$1@inews.gazeta.pl> <hgdjja$foq$1@inews.gazeta.pl> <hgdoe6$3ia$1@inews.gazeta.pl> <hgeh3l$3nt$1@inews.gazeta.pl> NNTP-Posting-Host: hmn221.internetdsl.tpnet.pl Mime-Version: 1.0 X-Trace: nemesis.news.neostrada.pl 1261131900 4332 79.188.65.221 (18 Dec 2009 10:25:00 GMT) X-Complaints-To: usenet@news.neostrada.pl NNTP-Posting-Date: Fri, 18 Dec 2009 10:25:00 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.3598 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3350 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit