字符串函数 (Visual Basic)
下表列出了 Visual Basic 提供的用于搜索和操作字符串的函数。
.NET Framework 方法 |
说明 |
|---|---|
返回一个 Integer 值，该值表示与某个字符相对应的字符码。 |
|
返回与指定字符代码相关联的字符。 |
|
返回一个从零开始的数组，该数组包含基于指定筛选条件的 String 数组的子集。 |
|
返回根据格式 String 表达式中包含的指令设置格式的字符串。 |
|
返回一个格式为货币值的表达式，该货币值使用系统控制面板中定义的货币符号。 |
|
返回一个表示日期/时间值的字符串表达式。 |
|
返回格式化为数字的表达式。 |
|
返回格式化为带后缀 % 字符的百分数（即乘以 100）的表达式。 |
|
返回一个整数，该整数指定一个字符串在另一个字符串中的第一个匹配项的起始位置。 |
|
返回某一字符串从另一字符串的右侧开始算起第一次出现的位置。 |
|
返回通过连接一个数组中包含的若干子字符串创建的字符串。 |
|
返回将转换为小写的字符串或字符。 |
|
返回一个字符串，该字符串包含从某字符串左侧算起的指定数量的字符。 |
|
返回一个整数，该整数包含某字符串中的字符数。 |
|
返回一个左对齐字符串，该字符串包含调整为指定长度的指定的字符串。 |
|
返回一个字符串，该字符串包含指定字符串的没有前导空格的副本。 |
|
从一个字符串返回包含指定数量字符的字符串。 |
|
返回一个字符串，其中的指定子字符串已由另一个子字符串替换了指定的次数。 |
|
返回一个字符串，其中包含从某个字符串右端开始的指定数量的字符。 |
|
返回包含调整为指定长度的指定字符串的右对齐字符串。 |
|
返回一个字符串，该字符串包含指定字符串的没有尾随空格的副本。 |
|
返回由指定数量空格组成的字符串。 |
|
返回一个从零开始的一维数组，其中包含指定数量的子字符串。 |
|
根据字符串的比较结果返回 -1、0 或 1。 |
|
返回按照指定方式转换的字符串。 |
|
返回由指定字符重复指定次数后形成的字符串或对象。 |
|
返回指定字符串的字符顺序是相反的字符串。 |
|
返回一个字符串，该字符串包含指定字符串的没有前导和尾随空格的副本。 |
|
返回一个字符串或字符，其中包含转换为大写的指定字符串。 |
可以使用 Option Compare 语句设置是按照由系统区域设置决定的不区分大小写的文本排序顺序 (Text) 对字符串进行比较，还是按照字符的内部二进制表示形式 (Binary) 进行比较。 默认文本比较方法为 Binary。
示例
本例使用 UCase 函数返回字符串的大写版本。
' String to convert.
Dim LowerCase As String = "Hello World 1234"
' Returns "HELLO WORLD 1234".
Dim UpperCase As String = UCase(LowerCase)
此示例使用 LTrim 函数去除字符串变量的前导空格，使用 RTrim 函数去除尾随空格， 并使用 Trim 函数同时去除这两种类型的空格。
' Initializes string.
Dim TestString As String = " <-Trim-> "
Dim TrimString As String
' Returns "<-Trim-> ".
TrimString = LTrim(TestString)
' Returns " <-Trim->".
TrimString = RTrim(TestString)
' Returns "<-Trim->".
TrimString = LTrim(RTrim(TestString))
' Using the Trim function alone achieves the same result.
' Returns "<-Trim->".
TrimString = Trim(TestString)
本例使用 Mid 函数从字符串返回指定数量的字符。
' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)
本例使用 Len 返回字符串中的字符数。
' Initializes variable.
Dim TestString As String = "Hello World"
' Returns 11.
Dim TestLen As Integer = Len(TestString)
本例使用 InStr 函数返回一个字符串在另一个字符串中的第一个匹配项的位置。
' String to search in.
Dim SearchString As String = "XXpXXpXXPXXP"
' Search for "P".
Dim SearchChar As String = "P"
Dim TestPos As Integer
' A textual comparison starting at position 4. Returns 6.
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)
' A binary comparison starting at position 1. Returns 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)
' If Option Compare is not set, or set to Binary, return 9.
' If Option Compare is set to Text, returns 3.
TestPos = InStr(SearchString, SearchChar)
' Returns 0.
TestPos = InStr(1, SearchString, "W")
此示例演示同时使用 String 格式和用户定义格式格式化值的 Format 函数的各种用法。 对于日期分隔符 (/)、时间分隔符 (:) 和 AM/PM 指示符（t 和 tt），系统显示的实际格式化输出取决于代码使用的区域设置。 当在开发环境中显示时间和日期时，使用代码区域设置的短时间格式和短日期格式。
提示
对于使用 24 小时制的区域设置，AM/PM 指示符（t 和 tt）不显示任何内容。
Dim TestDateTime As Date = #1/27/2001 5:04:23 PM#
Dim TestStr As String
' Returns current system time in the system-defined long time format.
TestStr = Format(Now(), "Long Time")
' Returns current system date in the system-defined long date format.
TestStr = Format(Now(), "Long Date")
' Also returns current system date in the system-defined long date
' format, using the single letter code for the format.
TestStr = Format(Now(), "D")
' Returns the value of TestDateTime in user-defined date/time formats.
' Returns "5:4:23".
TestStr = Format(TestDateTime, "h:m:s")
' Returns "05:04:23 PM".
TestStr = Format(TestDateTime, "hh:mm:ss tt")
' Returns "Saturday, Jan 27 2001".
TestStr = Format(TestDateTime, "dddd, MMM d yyyy")
' Returns "17:04:23".
TestStr = Format(TestDateTime, "HH:mm:ss")
' Returns "23".
TestStr = Format(23)
' User-defined numeric formats.
' Returns "5,459.40".
TestStr = Format(5459.4, "##,##0.00")
' Returns "334.90".
TestStr = Format(334.9, "###0.00")
' Returns "500.00%".
TestStr = Format(5, "0.00%")