| Concatenate
10,000 strings: ASPX (VB, StringBuilder) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| <%@ Page
language="VB" debug="false" %> |
||||||||||||||||
| <% |
||||||||||||||||
| Response.Write("Start
"+CSTR(NOW())+"<br>") |
||||||||||||||||
| DIM i AS
Integer,nStart AS Double |
||||||||||||||||
| DIM s AS
System.Text.StringBuilder |
||||||||||||||||
| s=NEW
System.Text.StringBuilder(10000) |
||||||||||||||||
| nStart=TIMER |
||||||||||||||||
| FOR j=1 TO 10 |
||||||||||||||||
| s.Remove(0,s.Length) |
||||||||||||||||
| FOR i=1 TO 20000 |
||||||||||||||||
| s.Append(CSTR(i)) |
||||||||||||||||
| NEXT |
||||||||||||||||
| NEXT |
||||||||||||||||
| Response.Write("Done
"+((TIMER-nStart)/10).ToString()+" |
||||||||||||||||
| "+CSTR(LEN(s.ToString()))+"
20,000<br>") |
||||||||||||||||
| %> |
||||||||||||||||
| On 850 MHz
PIII: 0.026 seconds |
||||||||||||||||
