samples/snippets/visualbasic/VS_Snippets_CLR/Conceptual.StringBuilder/vb/Example.vb - main - aprogrammer/dotnet-docs

samples/snippets/visualbasic/VS_Snippets_CLR/Conceptual.StringBuilder/vb/Example.vb

85 строк2 KB

Next Turn

Format codes based on .editorconfig, Part 6 (#18869)

11 июн 2020, 17:41

11 июн 2020, 17:41008c5b8

' Visual Basic .NET Document
Option Strict On

' <Snippet11>
Imports System.Text
' </Snippet11>

<Assembly: CLSCompliant(True)>
Module Example
    Public Sub Main()
        InstantiateStringBuilder()
        InstantiateWithCapacity()
        Appending()
        AppendingFormat()
        Inserting()
        Removing()
        Replacing()
    End Sub

    Private Sub InstantiateStringBuilder()
        ' <Snippet1>
        Dim myStringBuilder As New StringBuilder("Hello World!")
        ' </Snippet1>
    End Sub

    Private Sub InstantiateWithCapacity()
        ' <Snippet2>
        Dim myStringBuilder As New StringBuilder("Hello World!", 25)
        ' </Snippet2>
        ' <Snippet3>
        myStringBuilder.Capacity = 25
        ' </Snippet3>
    End Sub

    Private Sub Appending()
        ' <Snippet4>
        Dim myStringBuilder As New StringBuilder("Hello World!")
        myStringBuilder.Append(" What a beautiful day.")
        Console.WriteLine(myStringBuilder)
        ' The example displays the following output:
        '       Hello World! What a beautiful day.
        ' </Snippet4>
    End Sub

    Private Sub AppendingFormat()
        ' <Snippet5>
        Dim MyInt As Integer = 25
        Dim myStringBuilder As New StringBuilder("Your total is ")
        myStringBuilder.AppendFormat("{0:C} ", MyInt)
        Console.WriteLine(myStringBuilder)
        ' The example displays the following output:
        '     Your total is $25.00  
        ' </Snippet5>
    End Sub

    Private Sub Inserting()
        ' <Snippet6>
        Dim myStringBuilder As New StringBuilder("Hello World!")
        myStringBuilder.Insert(6, "Beautiful ")
        Console.WriteLine(myStringBuilder)
        ' The example displays the following output:
        '      Hello Beautiful World!
        ' </Snippet6>
    End Sub

    Private Sub Removing()
        ' <Snippet7>
        Dim myStringBuilder As New StringBuilder("Hello World!")
        myStringBuilder.Remove(5, 7)
        Console.WriteLine(myStringBuilder)
        ' The example displays the following output:
        '       Hello
        ' </Snippet7>
    End Sub

    Private Sub Replacing()
        ' <Snippet8>
        Dim myStringBuilder As New StringBuilder("Hello World!")
        myStringBuilder.Replace("!"c, "?"c)
        Console.WriteLine(myStringBuilder)
        ' The example displays the following output:
        '       Hello World?
        ' </Snippet8>
    End Sub
End Module