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