VB.Net字串

在VB.Net中，可以使用字串作為字元陣列，但更常見的做法是使用String關鍵字來宣告一個字串變數。String關鍵字是System.String類的別名。

建立一個字串物件

可以使用以下方法之一建立字串物件：

• 通過將一個字串文字分配給一個String變數
• 通過使用一個String類別建構函式
• 通過使用字串連線運算子(+)
• 通過檢索一個屬性或呼叫返回一個字串的方法
• 通過呼叫格式化方法將值或物件轉換為其字串表示形式

以下範例演示了如何建立物件：

Module strings
   Sub Main()
      Dim fname, lname, fullname, greetings As String
      fname = "Bryant"
      lname = "Kobe"
      fullname = fname + " " + lname
      Console.WriteLine("Full Name: {0}", fullname)

     'by using string constructor'
      Dim letters As Char() = {"H", "e", "l", "l", "o"}
      greetings = New String(letters)
      Console.WriteLine("Greetings: {0}", greetings)

      'methods returning String'
      Dim sarray() As String = {"Hello", "From", "Yiibai", "Yiibai"}
      Dim message As String = String.Join(" ", sarray)
      Console.WriteLine("Message: {0}", message)

      'formatting method to convert a value '
      Dim waiting As DateTime = New DateTime(2018, 12, 12, 17, 58, 1)
      Dim chat As String = String.Format("Message sent at {0:t} on {0:D}", waiting)
      Console.WriteLine("Message: {0}", chat)
      Console.ReadLine()
   End Sub
End Module

執行上面範例程式碼，得到以下結果 -

F:\worksp\vb.net\string>vbc strings.vb
F:\worksp\vb.net\string>strings.exe
Full Name: Bryant Kobe
Greetings: Hello
Message: Hello From Yiibai Yiibai
Message: Message sent at 17:58 on 2018年12月12日

String類的屬性

String類具有以下兩個屬性：

String類的方法

String類有許多方法可以用來處理String物件。下表提供了一些最常用的方法：

上面的方法列表並不詳盡，請存取MSDN庫以獲取完整的方法列表和String類的構造方法。

例子

以下範例演示了上面提到的一些方法：

比較字串：

Module strings
   Sub Main()
      Dim str1, str2 As String
      str1 = "This is test"
      str2 = "This is text"
      If (String.Compare(str1, str2) = 0) Then
          Console.WriteLine(str1 + " and " + str2 +
                            " are equal.")
      Else
          Console.WriteLine(str1 + " and " + str2 +
                            " are not equal.")
      End If
      Console.ReadLine()
   End Sub
End Module

當上面的程式碼被編譯並執行時，會產生以下結果：

This is test and This is text are not equal.

字串包含字串：

Module strings
   Sub Main()
      Dim str1 As String
      str1 = "This is test"
      If (str1.Contains("test")) Then
          Console.WriteLine("The sequence 'test' was found.")
      End If
      Console.ReadLine()
   End Sub
End Module

當上面的程式碼被編譯並執行時，會產生以下結果：

The sequence 'test' was found.

獲取子字串：

Module strings
   Sub Main()
      Dim str As String
      str = "Last night I dreamt of San Pedro"
      Console.WriteLine(str)
      Dim substr As String = str.Substring(23)
      Console.WriteLine(substr)
      Console.ReadLine()
   End Sub
End Module

當上面的程式碼被編譯並執行時，會產生以下結果：

Last night I dreamt of San Pedro San Pedro.

連線字串：

Module strings
   Sub Main()
      Dim strarray As String() = {"Down the way where the nights are gay",
                          "And the sun shines daily on the mountain top",
                           "I took a trip on a sailing ship",
                          "And when I reached Jamaica",
                          "I made a stop"}
      Dim str As String = String.Join(vbCrLf, strarray)
      Console.WriteLine(str)
      Console.ReadLine()
   End Sub
End Module

當上面的程式碼被編譯並執行時，會產生以下結果：

Down the way where the nights are gay
And the sun shines daily on the mountain top
I took a trip on a sailing ship
And when I reached Jamaica
I made a stop