Article View: pl.comp.lang.vbasic
Article #104451Re: VB 2008 odpowidnik String$ z VB6
From: ktos
Date: Sun, 24 Jan 2010 22:39
Date: Sun, 24 Jan 2010 22:39
17 lines
1454 bytes
1454 bytes
joker77 pisze:
> function tekst(ciag as string, powtorz as integer)as string
> var c1 as string=""
> for i as integer=1 to powtorz
> c1+=ciag
> next
> return c1
> end function
>
> Chyba prościej się nie da?
Czy prosciej nie wiem, ale krocej :) i pewnie szybciej
Function Repeat(ByVal instr As String, ByVal n As Integer) As String
Dim result = New StringBuilder(instr.Length * n)
Return result.Insert(0, instr, n).ToString()
End Function
Technical Details
Message-ID:
<hjii2u$ki4$1@node1.news.atman.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!plix.pl!newsfeed1.plix.pl!wsisiz.edu.pl!newsfeed.atman.pl!not-for-mailReferences:
<hji6vc$6sl$1@news.onet.pl> <8fa5a0bb-f413-488d-be23-0c1cc0e42b44@p24g2000yqm.googlegroups.com>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!plix.pl!newsfeed1.plix.pl!wsisiz.edu.pl!newsfeed.atman.pl!not-for-mail From: ktos <ktos@nikt.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: VB 2008 odpowidnik String$ z VB6 Date: Sun, 24 Jan 2010 23:39:00 +0100 Organization: ATMAN Lines: 17 Message-ID: <hjii2u$ki4$1@node1.news.atman.pl> References: <hji6vc$6sl$1@news.onet.pl> <8fa5a0bb-f413-488d-be23-0c1cc0e42b44@p24g2000yqm.googlegroups.com> NNTP-Posting-Host: 78-131-137-62.tktelekom.pl Mime-Version: 1.0 X-Trace: node1.news.atman.pl 1264372638 21060 78.131.137.62 (24 Jan 2010 22:37:18 GMT) X-Complaints-To: usenet@atman.pl NNTP-Posting-Date: Sun, 24 Jan 2010 22:37:18 +0000 (UTC) User-Agent: Thunderbird 2.0.0.23 (Windows/20090812) In-Reply-To: <8fa5a0bb-f413-488d-be23-0c1cc0e42b44@p24g2000yqm.googlegroups.com> Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit