Mega Code Archive

 

Categories / VB.Net / Language Basics

 

StringBuilder Performance Test

Imports System Public Class MainClass   Shared Sub Main()         Dim i As Integer         Dim StartTime As New DateTime()         Dim EndTime As New DateTime()         StartTime = DateTime.Now()         Dim theText As New System.Text.StringBuilder()         For i = 1 To 50000             theText = theText.Append("A")         Next         EndTime = DateTime.Now         Dim answer1, answer2 As Long         answer1 = EndTime.Ticks() - StartTime.Ticks()         StartTime = DateTime.Now()         Dim aString As String = ""         For i = 1 To 50000             aString = aString & "A"         Next         EndTime = DateTime.Now         answer2 = (EndTime.Ticks() - StartTime.Ticks())          Console.WriteLine("StringBuilder was " & answer2 / answer1 & " times faster.")   End Sub End Class