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", "zaixian", "zaixian"}
      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 zaixian zaixian
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