VB.NET StringBuilder Source Code Example

Posted by on Sunday, December 20, 2009 · Leave a Comment 

VB.NET StringBuilder Source Code Example

Purpose: – Illustrates using and .
Prerequistes:

  1. Install Visual Basic (Express or Standard Edition)
  2. Install SQL Server Express
  3. Download Northwind and pubs Database
  4. Attach Northwind Database to Databases in Sql Express
  5. Attach pubs Database to Databases in Sql Express

Notes:

  • Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
  • You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

  1. Use Visual Basic 2008 Express or Standard Edition
  2. Create new project;
    • Click File/New Project
    • Select Console Application Template
    • Select Visual Basic for Language
    • name of project could be VBNET_Syntax.
  3. Add New folder named “Language-Basics”
    • Right-click project name in solution explorer;
    • add new folder;
    • name of folder could be: Language-Basics
  4. Add Class Named clsStringFormatDateTime to Language-Basics folder
    • Right-click Language-Basics folder;
    • add new item;
    • Select class
    • Class name could be clsStringBuilder
  5. Click on copy code in code below to copy code into clsStringBuilder.vb
  6. Click on copy code in second set of code below to copy code into Module1.vb
  7. Click green arrow or press F5 to run program

Step 1: Use Copy Code to Cut-n-paste code into clsStringBuilder.vb

Imports System.Text
Imports System
 
Public Class clsStringBuilder
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Example #1: StringBuilder Append(string) - most common way stringbuilder is used
        ' Adds the specified string or string representation of the specified value to the end 
        ' of the string
        '****************************************************************************************
 
        Console.WriteLine("Example #1: Simple StringBuilder Append(string) ")
        Dim sb As New StringBuilder
        sb.Append("First Line")
        sb.Append(vbCrLf)
        sb.Append("Second Line")
 
        Console.WriteLine(sb.ToString())
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        'Append(string, startIndex, count)
        '****************************************************************************************
        ' Example #2: StringBuilder Append(string, startIndex, count) 
        ' Adds a substring of the specified string, starting with the specified
        ' position and having the specified length, to the end of the string
        '****************************************************************************************
 
        Console.WriteLine("Example #2: StringBuilder Append(string, startIndex, count)")
        Dim sb2 As New StringBuilder
        sb2.Append("The dog and cat ")
        sb2.Append("love to fight and play", 0, 13) 'take love to fight and add to end of prev string
        Console.WriteLine(sb2.ToString())
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        'Insert(index, string[, count])
        '****************************************************************************************
        ' Example #3: StringBuilder Insert(index, string[, count]) 
        ' Inserts the specified string or a string representation of the specified
        ' value at the specified position in the string the specified number of 
        ' times. If the count is ommitted, a single copy of the string is inserted.
        '****************************************************************************************
 
        Console.WriteLine("Example #3: Insert(index, string[, count])")
        Dim sb3 As New StringBuilder
 
        sb3.Append("This is the initial sentence")
        sb3.Insert(20, "and modified ", 2)
        Console.WriteLine(sb3.ToString())
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        'Remove(startIndex,count)
        '****************************************************************************************
        ' Example #4: StringBuilder Remove(startIndex,count) 
        ' Removes the specified number of characters from the string starting at
        ' the specified position
        '****************************************************************************************
 
        Console.WriteLine("Example #4: StringBuilder Remove(startIndex,count)")
        Dim sb4 As New StringBuilder
 
        sb4.Append("This is the initial sentence")
        sb4.Remove(20, 8)
        Console.WriteLine(sb4.ToString())
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        'Replace(oldString,newString [,startIndex][,count])
        '****************************************************************************************
        ' Example #5: StringBuilder Replace(oldString,newString [,startIndex][,count])
        ' Replaces all occurences of the old string with the new string starting
        ' at the specified position and continuing for the specified number of characters.
        ' If you omit startIndex, it starts at beginning
        ' If you omit count, it does entire string
        '****************************************************************************************
 
        Console.WriteLine("Example #5: StringBuilder Replace(oldString,newString [,startIndex][,count])")
        Dim sb5 As New StringBuilder
 
        sb5.Append("This is the initial sentence")
        sb5.Replace("initial", "new")
        Console.WriteLine(sb5.ToString())
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
 
 
 
 
 
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Step 2: Use View Plain to Cut-n-paste code into Module1.vb

Module Module1
 
    Sub Main()
        '***** Language-Basics *************
 
        Dim myStringBuilder As New clsStringBuilder
        myStringBuilder.Main()
 
 
    End Sub
 
End Module

Filed under Code Samples · Tagged with , , ,