添加链接
link管理
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接

在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类具有以下两个属性:

    Public Shared Function Compare ( strA As String, strB As String ) As Integer 比较两个指定的字符串对象,并返回一个整数,以整理顺序指示它们的相对位置。 Public Shared Function Compare ( strA As String, strB As String, ignoreCase As Boolean ) As Integer 比较两个指定的字符串对象,并返回一个整数,以整理顺序指示它们的相对位置。但是,如果布尔参数为true,则会忽略大小写。 Public Shared Function Concat ( str0 As String, str1 As String ) As String 连接两个字符串对象。 Public Shared Function Concat ( str0 As String, str1 As String, str2 As String ) As String 连接三个字符串对象。 Public Shared Function Concat ( str0 As String, str1 As String, str2 As String, str3 As String ) As String 连接四个字符串对象。 Public Function Contains ( value As String ) As Boolean 返回一个值,指示指定的字符串对象是否在此字符串中出现。 Public Shared Function Copy ( str As String ) As String 用与指定字符串相同的值创建一个新的String对象。 Public Sub CopyTo ( sourceIndex As Integer, destination As Char(), destinationIndex As Integer, count As Integer ) 从字符串对象的指定位置复制指定数量的字符到Unicode字符数组中指定的位置。 Public Function EndsWith ( value As String ) As Boolean 确定字符串对象的末尾是否与指定的字符串匹配。 Public Function Equals ( value As String ) As Boolean 确定当前的字符串对象和指定的字符串对象是否具有相同的值。 Public Shared Function Equals ( a As String, b As String ) As Boolean 确定两个指定的字符串对象是否具有相同的值。 Public Shared Function Format ( format As String, arg0 As Object ) As String 用指定对象的字符串表示形式替换指定字符串中的一个或多个格式项目。 Public Function IndexOf ( value As Char ) As Integer 返回当前字符串中第一个出现的指定Unicode字符的从零开始的索引。 Public Function IndexOf ( value As String ) As Integer 返回此实例中第一次出现指定字符串的从零开始的索引。 Public Function IndexOf ( value As Char, startIndex As Integer ) As Integer 返回此字符串中第一个出现的指定Unicode字符的从零开始的索引,从指定的字符位置开始搜索。 Public Function IndexOf ( value As String, startIndex As Integer ) As Integer 返回此实例中指定字符串的第一个匹配项的从零开始的索引,从指定的字符位置开始搜索。 Public Function IndexOfAny ( anyOf As Char() ) As Integer 返回指定的Unicode字符数组中任何字符的第一次出现的从零开始的索引。 Public Function IndexOfAny ( anyOf As Char(), startIndex As Integer ) As Integer 返回指定Unicode字符数组中任何字符的此实例中第一次出现的从零开始的索引,从指定的字符位置开始搜索。 Public Function Insert ( startIndex As Integer, value As String ) As String 返回一个新字符串,其中指定的字符串被插入到当前字符串对象中的指定索引位置。 Public Shared Function IsNullOrEmpty ( value As String ) As Boolean 指示指定的字符串是否为空或空字符串。 Public Shared Function Join ( separator As String, ParamArray value As String() ) As String 使用每个元素之间指定的分隔符连接字符串数组的所有元素。 Public Shared Function Join ( separator As String, value As String(), startIndex As Integer, count As Integer ) As String 使用每个元素之间指定的分隔符连接字符串数组的指定元素。 Public Function LastIndexOf ( value As Char ) As Integer 返回当前字符串对象中最后一次出现的指定Unicode字符的从零开始的索引位置。 Public Function LastIndexOf ( value As String ) As Integer 返回当前字符串对象中最后一次出现的指定字符串的从零开始的索引位置。 Public Function Remove ( startIndex As Integer ) As String 删除当前实例中的所有字符,从指定位置开始,继续到最后一个位置,然后返回字符串。 Public Function Remove ( startIndex As Integer, count As Integer ) As String 从指定位置开始删除当前字符串中指定数量的字符并返回字符串。 Public Function Replace ( oldChar As Char, newChar As Char ) As String 用指定的Unicode字符替换当前字符串对象中指定的Unicode字符的所有匹配项并返回新的字符串。 Public Function Replace ( oldValue As String, newValue As String ) As String 用指定的字符串替换当前字符串对象中指定字符串的所有匹配项并返回新的字符串。 Public Function Split ( ParamArray separator As Char() ) As String() 返回一个字符串数组,它包含当前字符串对象中的子字符串,由指定的Unicode字符数组的元素分隔。 Public Function Split ( separator As Char(), count As Integer ) As String() 返回一个字符串数组,它包含当前字符串对象中的子字符串,由指定的Unicode字符数组的元素分隔。int参数指定要返回的最大子字符串数量。 Public Function StartsWith ( value As String ) As Boolean 确定此字符串实例的开始是否与指定的字符串匹配。 Public Function ToCharArray As Char() 返回一个Unicode字符数组,其中包含当前字符串object中的所有字符 Public Function ToCharArray ( startIndex As Integer, length As Integer ) As Char() 返回一个Unicode字符数组,其中包含当前字符串对象中的所有字符,从指定的索引开始,直到指定的长度。 Public Function ToLower As String 返回转换为小写字符串的副本。 Public Function ToUpper As String 返回转换为大写字符串的副本。 Public Function Trim As 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.")
              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