本文整理汇总了VB.NET中System.String.StartsWith方法的典型用法代码示例。如果您正苦于以下问题:VB.NET String.StartsWith方法的具体用法?VB.NET String.StartsWith怎么用?VB.NET String.StartsWith使用的例子?那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.String
的用法示例。
在下文中一共展示了String.StartsWith方法的5个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Example
Public Class Example
Public Shared Sub Main()
Dim strSource() As String = { "<b>This is bold text</b>",
"<H1>This is large Text</H1>",
"<b><i><font color = green>This has multiple tags</font></i></b>",
"<b>This has <i>embedded</i> tags.</b>",
"<This line simply begins with a lesser than symbol, it should not be modified" }
' Display the initial string array.
Console.WriteLine("The original strings:")
Console.WriteLine("---------------------")
For Each s In strSource
Console.WriteLine(s)
Next
Console.WriteLine()
Console.WriteLine("Strings after starting tags have been stripped:")
Console.WriteLine("-----------------------------------------------")
' Display the strings with starting tags removed.
For Each s In strSource
Console.WriteLine(StripStartTags(s))
Next
End Sub
Private Shared Function StripStartTags(item As String) As String
' Determine whether a tag begins the string.
If item.Trim().StartsWith("<") Then
' Find the closing tag.
Dim lastLocation As Integer = item.IndexOf(">")
If lastLocation >= 0 Then
' Remove the tag.
item = item.Substring((lastLocation + 1))
' Remove any additional starting tags.
item = StripStartTags(item)
End If
End If
Return item
End Function
End Class
输出:
The original strings: --------------------- This is bold textThis is large Text
This has multiple tags This has embedded tags.This is large Text This has multiple tags This has embedded tags.
示例2: Example
Module Example
Public Sub Main()
Dim title As String = "The House of the Seven Gables"
Dim searchString As String = "the"
Dim comparison As StringComparison = StringComparison.InvariantCulture
Console.WriteLine("'{0}':", title)
Console.WriteLine(" Starts with '{0}' ({1:G} comparison): {2}",
searchString, comparison,
title.StartsWith(searchString, comparison))
comparison = StringComparison.InvariantCultureIgnoreCase
Console.WriteLine(" Starts with '{0}' ({1:G} comparison): {2}",
searchString, comparison,
title.StartsWith(searchString, comparison))
End Sub
End Module
输出:
The House of the Seven Gables': Starts with 'the' (InvariantCulture comparison): False Starts with 'the' (InvariantCultureIgnoreCase comparison): True
示例3: Example
Module Example
Public Sub Main()
Dim strings(,) As String = { {"ABCdef", "abc" },
{"ABCdef", "abc" },
{"œil","oe" },
{ "læring}", "lae" } }
For ctr1 As Integer = strings.GetLowerBound(0) To strings.GetUpperBound(0)
For Each cmpName As String In [Enum].GetNames(GetType(StringComparison))
Dim strCmp As StringComparison = CType([Enum].Parse(GetType(StringComparison),
cmpName), StringComparison)
Dim instance As String = strings(ctr1, 0)
Dim value As String = strings(ctr1, 1)
Console.WriteLine("{0} starts with {1}: {2} ({3} comparison)",
instance, value,
instance.StartsWith(value, strCmp),
strCmp)
Next
Console.WriteLine()
Next
End Sub
End Module
输出:
ABCdef starts with abc: False (CurrentCulture comparison) ABCdef starts with abc: True (CurrentCultureIgnoreCase comparison) ABCdef starts with abc: False (InvariantCulture comparison) ABCdef starts with abc: True (InvariantCultureIgnoreCase comparison) ABCdef starts with abc: False (Ordinal comparison) ABCdef starts with abc: True (OrdinalIgnoreCase comparison) ABCdef starts with abc: False (CurrentCulture comparison) ABCdef starts with abc: True (CurrentCultureIgnoreCase comparison) ABCdef starts with abc: False (InvariantCulture comparison) ABCdef starts with abc: True (InvariantCultureIgnoreCase comparison) ABCdef starts with abc: False (Ordinal comparison) ABCdef starts with abc: True (OrdinalIgnoreCase comparison) œil starts with oe: True (CurrentCulture comparison) œil starts with oe: True (CurrentCultureIgnoreCase comparison) œil starts with oe: True (InvariantCulture comparison) œil starts with oe: True (InvariantCultureIgnoreCase comparison) œil starts with oe: False (Ordinal comparison) œil starts with oe: False (OrdinalIgnoreCase comparison) læring} starts with lae: True (CurrentCulture comparison) læring} starts with lae: True (CurrentCultureIgnoreCase comparison) læring} starts with lae: True (InvariantCulture comparison) læring} starts with lae: True (InvariantCultureIgnoreCase comparison) læring} starts with lae: False (Ordinal comparison) læring} starts with lae: False (OrdinalIgnoreCase comparison)
示例4: Sample
' This code example demonstrates the
' System.String.StartsWith(String, ..., CultureInfo) method.
Imports System.Threading
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim msg1 As String = "Search for the target string ""{0}"" in the string ""{1}""." & vbCrLf
Dim msg2 As String = "Using the {0} - ""{1}"" culture:"
Dim msg3 As String = " The string to search ends with the target string: {0}"
Dim result As Boolean = False
Dim ci As CultureInfo
' Define a target string to search for.
' U+00c5 = LATIN CAPITAL LETTER A WITH RING ABOVE
Dim capitalARing As String = "Å"
' Define a string to search.
' The result of combining the characters LATIN SMALL LETTER A and COMBINING
' RING ABOVE (U+0061, U+030a) is linguistically equivalent to the character
' LATIN SMALL LETTER A WITH RING ABOVE (U+00e5).
Dim aRingXYZ As String = "å" & "xyz"
' Clear the screen and display an introduction.
Console.Clear()
' Display the string to search for and the string to search.
Console.WriteLine(msg1, capitalARing, aRingXYZ)
' Search using English-United States culture.
ci = New CultureInfo("en-US")
Console.WriteLine(msg2, ci.DisplayName, ci.Name)
Console.WriteLine("Case sensitive:")
result = aRingXYZ.StartsWith(capitalARing, False, ci)
Console.WriteLine(msg3, result)
Console.WriteLine("Case insensitive:")
result = aRingXYZ.StartsWith(capitalARing, True, ci)
Console.WriteLine(msg3, result)
Console.WriteLine()
' Search using Swedish-Sweden culture.
ci = New CultureInfo("sv-SE")
Console.WriteLine(msg2, ci.DisplayName, ci.Name)
Console.WriteLine("Case sensitive:")
result = aRingXYZ.StartsWith(capitalARing, False, ci)
Console.WriteLine(msg3, result)
Console.WriteLine("Case insensitive:")
result = aRingXYZ.StartsWith(capitalARing, True, ci)
Console.WriteLine(msg3, result)
End Sub
End Class
'
'Note: This code example was executed on a console whose user interface
'culture is "en-US" (English-United States).
'
'Search for the target string "Å" in the string "a°xyz".
'
'Using the English (United States) - "en-US" culture:
'Case sensitive:
' The string to search ends with the target string: False
'Case insensitive:
' The string to search ends with the target string: True
'
'Using the Swedish (Sweden) - "sv-SE" culture:
'Case sensitive:
' The string to search ends with the target string: False
'Case insensitive:
' The string to search ends with the target string: False
'
示例5: MainClass
' 导入命名空间
Imports System
Public Class MainClass
Shared Sub Main()
Dim strings As String()
Dim i As Integer
Dim quotes As Char = ChrW(34)
strings = New String() {"started", "starting", _
"ended", "ending"}
Console.WriteLine(" test every string to see if it starts with 'st'")
For i = 0 To strings.GetUpperBound(0)
If strings(i).StartsWith("st") Then
Console.WriteLine(quotes & strings(i) & quotes & _
" starts with " & quotes & "st" & quotes )
End If
Next
Console.WriteLine(" test every string to see if it ends with 'ed'")
For i = 0 To strings.GetUpperBound(0)
If strings(i).EndsWith("ed") Then
Console.WriteLine( quotes & strings(i) & quotes & _
" ends with " & quotes & "ed" & quotes )
End If
Next
End Sub ' Main
End Class