| Concatenate
10,000 strings: ASPX (VB) |
|
|
|
|
|
|
|
|
|
|
|
|
|
| <%@ Page
language="VB" debug="false" %> |
||||||||||||
| <% |
||||||||||||
| Response.Write("Start
"+CSTR(NOW())+"<br>") |
||||||||||||
| DIM s AS
String,i AS Integer,nStart AS Double |
||||||||||||
| nStart=TIMER |
||||||||||||
| s="" |
||||||||||||
| FOR i=1 TO
20000 |
||||||||||||
| s=s+CSTR(i) |
||||||||||||
| NEXT |
||||||||||||
| Response.Write("Done
"+CSTR(TIMER-nStart)+" "+CSTR(LEN(s))+" |
||||||||||||
| 20,000<br>") |
||||||||||||
| %> |
||||||||||||
| On 850 MHz
PIII: 21.6 seconds (longer because strings are recopied) |
||||||||||||
