文字列操作関連のクラス

Module Module1

    Sub Main()

        ' VB.NET の String型は .NET Framework の System.Stringクラスのエイリアス名
        Dim s1 As String
        Dim s2 As System.String

        ' s1に文字列を代入
        s1 = "sample string"

        ' s1の参照を代入
        s2 = s1

        Console.WriteLine("s1: {0}, s2: {1}, s1 is s2: {2}", s1, s2, s1 Is s2)

        ' s1のコピーへの参照を代入
        s2 = String.Copy(s1)

        Console.WriteLine("s1: {0}, s2: {1}, s1 is s2: {2}", s1, s2, s1 Is s2)

        ' 文字列の連結
        s1 += " combined"
        ' s1 = s1 + " combined"

        Console.WriteLine(s1)

        ' 文字列の挿入
        s2 = s2.Insert(6, " inserted")

        Console.WriteLine(s2)

        ' 文字列の削除
        s1 = s1.Remove(0, 7)

        Console.WriteLine(s1)

        ' 文字列の置き換え
        s2 = s2.Replace("sample", "test")

        Console.WriteLine(s2)

    End Sub

End Module

Imports System.Text

Module Module1

    Sub Main()

        ' StringBuilder は System.Text 名前空間のクラス
        Dim s1 As New StringBuilder("sample string")
        Dim s2 As New StringBuilder("sample string")

        ' 文字列の連結
        s1.Append(" combined")

        Console.WriteLine(s1)

        ' 文字列の挿入
        s2.Insert(6, " inserted")

        Console.WriteLine(s2)

        ' 文字列の削除
        s1.Remove(0, 7)

        Console.WriteLine(s1)

        ' 文字列の置き換え
        s2.Replace("sample", "test")

        Console.WriteLine(s2)

    End Sub

End Module

Imports System.Text

Module Module1

    Sub Main()

        ' 新しいインスタンスを作成
        Dim s As New StringBuilder()

        ' sの値を表示
        Console.WriteLine(s)

        ' 現在の文字列の長さと、インスタンスの容量 (文字数)
        Console.WriteLine("Length: {0}, Capacity: {1}", s.Length, s.Capacity)

        ' 10文字追加
        s.Append("1234567890")

        ' 表示
        Console.WriteLine(s)

        ' 現在の文字列の長さと、インスタンスの容量 (文字数)
        Console.WriteLine("Length: {0}, Capacity: {1}", s.Length, s.Capacity)

        ' さらに10文字追加
        s.Append("1234567890")

        ' 表示
        Console.WriteLine(s)

        ' 現在の文字列の長さと、インスタンスの容量 (文字数)
        Console.WriteLine("Length: {0}, Capacity: {1}", s.Length, s.Capacity)

    End Sub

End Module

Imports System.Text

Module Module1

    Sub Main()

        Dim i As Integer
        Dim dtmBegin As DateTime
        Dim tspSpent As TimeSpan

        ' String型を用いた場合
        Dim str As String

        dtmBegin = DateTime.Now

        ' 10240文字の「あ」を連結
        For i = 1 To 10240

            str += "あ"

        Next

        tspSpent = DateTime.Now.Subtract(dtmBegin)

        Console.WriteLine("Spent {0}[ms]", tspSpent.TotalMilliseconds)

        Console.WriteLine("Length: {0}", str.Length)


        ' StringBuilder型を用いた場合

        ' 10240文字分の容量を確保
        Dim sbd As New StringBuilder(10240)

        dtmBegin = DateTime.Now

        ' 10240文字の「あ」を連結
        For i = 1 To 10240

            sbd.Append("あ")

        Next

        tspSpent = DateTime.Now.Subtract(dtmBegin)

        Console.WriteLine("Spent {0}[ms]", tspSpent.TotalMilliseconds)

        Console.WriteLine("Length: {0}, Capacity: {1}", sbd.Length, sbd.Capacity)

    End Sub

End Module

Imports System.IO

Module Module1

    Sub Main()

        ' 元の文字列
        Dim str As String

        str = "This is a source string." + vbNewLine
        str += "これは元の文字列。" + vbNewLine
        str += "0123456789" + vbNewLine
        str += "ABCDEFGHIJKLMN"

        ' 文字列を表示
        Console.WriteLine(str)


        ' StringReader は System.IO 名前空間のクラス
        Dim reader As New StringReader(str)

        ' 文字列の最後に到達するまでループ
        While (reader.Peek() <> -1)

            ' 一行分読み込み、改行しないで表示
            Console.Write(reader.ReadLine())

        End While

        reader.Close()

        ' 単なる改行
        Console.WriteLine()

    End Sub

End Module

Imports System.IO
Imports System.Text

Module Module1

    Sub Main()

        ' 書き込み用のStringBuilderを作成
        Dim builder As New StringBuilder(1024)

        ' 書き込むためのStringWriterを作成
        Dim writer As New StringWriter(builder)

        ' iとiの階乗の値を書き込み
        Dim i As Integer

        For i = 1 To 10

            writer.WriteLine("i = {0}, i! = {1}", i, Factorial(i))

        Next

        writer.Close()

        ' StringBuilderの値を表示
        Console.WriteLine(builder)

    End Sub

    ' nの階乗を求める
    Function Factorial(ByVal n As Integer)

        If n = 0 Then Return 1

        Return n * Factorial(n - 1)

    End Function

End Module