The Weird and The Wonderful

Pete O'Hanlon wrote:

MayHaveCurves

sylvesterg wrote:

return sbcurrentdate.ToString();

return new StringBuilder("Current date and time is " + DateTime.Now.ToString());

sk8er_boy287 wrote:

However, if you can prove that StringBuilder is better than simple string concatenation, you get an A+.

Public Class Form1
    Private Sub TestStringConcatenation(ByVal loops As Integer, ByVal myText As String)
        Dim s As String = ""
        For i As Integer = 0 To loops
            s &= myText
        Next
    End Sub

    Private Sub TestStringBuilder(ByVal loops As Integer, ByVal myText As String)
        Dim sb As New System.Text.StringBuilder
        For i As Integer = 0 To loops
            sb.Append(myText)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const LOOPS As Integer = 1000
        Dim myText As String = New String("A"c, 200)
        Dim sw As New Stopwatch

        sw.Start()
        TestStringConcatenation(LOOPS, myText)
        sw.Stop()
        Console.WriteLine("Normal string concatenation took {0} ticks", sw.ElapsedTicks)

        sw.Reset()
        sw.Start()
        TestStringBuilder(LOOPS, myText)
        sw.Stop()
        Console.WriteLine("String builder took {0} ticks", sw.ElapsedTicks)
    End Sub
End Class

Return "Current date and time is " + DateTime.Now.ToString()

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const TRIALS As Integer = 1000
        Const LOOPS As Integer = 1000

        Dim totalTicks As Long = 0

        For i As Integer = 0 To TRIALS - 1
            Dim sw As New Stopwatch
            sw.Start()
            For x As Integer = 0 To LOOPS - 1
                Dim s As String = StringBuilderUsage1()
            Next
            sw.Stop()
            totalTicks += sw.ElapsedTicks
        Next
        Console.WriteLine("Average ticks for StringBuilderUsage1 = " & (totalTicks / TRIALS).ToString)

        totalTicks = 0
        For i As Integer = 0 To TRIALS - 1
            Dim sw As New Stopwatch
            sw.Start()
            For x As Integer = 0 To LOOPS - 1
                Dim s As String = StringBuilderUsage2()
            Next
            sw.Stop()
            totalTicks += sw.ElapsedTicks
        Next
        Console.WriteLine("Average ticks for StringBuilderUsage2 = " & (totalTicks / TRIALS).ToString)

        totalTicks = 0
        For i As Integer = 0 To TRIALS - 1
            Dim sw As New Stopwatch
            sw.Start()
            For x As Integer = 0 To LOOPS - 1
                Dim s As String = NormalConcatenation()
            Next
            sw.Stop()
            totalTicks += sw.ElapsedTicks
        Next
        Console.WriteLine("Average ticks for normal concatenation = " & (totalTicks / TRIALS).ToString)
    End Sub

    Private Function StringBuilderUsage1() As String
        Dim sb As New System.Text.StringBuilder
        sb.Append("Current date and time is ")
        sb.Append(Now.ToLongTimeString)
        Return sb.ToString
    End Function

    Private Function StringBuilderUsage2() As String
        Return New System.Text.StringBuilder("Current date and time is " & Now.ToLongTimeString).ToString
    End Function

    Private Function NormalConcatenation() As String
        Return "Current date and time is " & Now.ToLongTimeString
    End Function
End Class

<br />
if ((a == a))<br />
{<br />
    MessageBox.Show("That is correct, well done!!!");<br />
}