แก้ไข

แชร์ผ่าน


String Functions (Visual Basic)

The following table lists the functions that Visual Basic provides in the Microsoft.VisualBasic.Strings class to search and manipulate strings. They can be regarded as Visual Basic intrinsic functions; that is, you do not have to call them as explicit members of a class, as the examples show. Additional methods, and in some cases complementary methods, are available in the System.String class.

.NET Framework method Description
Asc, AscW Returns an Integer value representing the character code corresponding to a character.
Chr, ChrW Returns the character associated with the specified character code.
Filter Returns a zero-based array containing a subset of a String array based on specified filter criteria.
Format Returns a string formatted according to instructions contained in a format String expression.
FormatCurrency Returns an expression formatted as a currency value using the currency symbol defined in the system control panel.
FormatDateTime Returns a string expression representing a date/time value.
FormatNumber Returns an expression formatted as a number.
FormatPercent Returns an expression formatted as a percentage (that is, multiplied by 100) with a trailing % character.
InStr Returns an integer specifying the start position of the first occurrence of one string within another.
InStrRev Returns the position of the first occurrence of one string within another, starting from the right side of the string.
Join Returns a string created by joining a number of substrings contained in an array.
LCase Returns a string or character converted to lowercase.
Left Returns a string containing a specified number of characters from the left side of a string.
Len Returns an integer that contains the number of characters in a string.
LSet Returns a left-aligned string containing the specified string adjusted to the specified length.
LTrim Returns a string containing a copy of a specified string with no leading spaces.
Mid Returns a string containing a specified number of characters from a string.
Replace Returns a string in which a specified substring has been replaced with another substring a specified number of times.
Right Returns a string containing a specified number of characters from the right side of a string.
RSet Returns a right-aligned string containing the specified string adjusted to the specified length.
RTrim Returns a string containing a copy of a specified string with no trailing spaces.
Space Returns a string consisting of the specified number of spaces.
Split Returns a zero-based, one-dimensional array containing a specified number of substrings.
StrComp Returns -1, 0, or 1, based on the result of a string comparison.
StrConv Returns a string converted as specified.
StrDup Returns a string or object consisting of the specified character repeated the specified number of times.
StrReverse Returns a string in which the character order of a specified string is reversed.
Trim Returns a string containing a copy of a specified string with no leading or trailing spaces.
UCase Returns a string or character containing the specified string converted to uppercase.

You can use the Option Compare statement to set whether strings are compared using a case-insensitive text sort order determined by your system's locale (Text) or by the internal binary representations of the characters (Binary). The default text comparison method is Binary.

Example: UCase

This example uses the UCase function to return an uppercase version of a string.

' String to convert.
Dim lowerCase As String = "Hello World 1234"
' Returns "HELLO WORLD 1234".
Dim upperCase As String = UCase(lowerCase)

Example: LTrim

This example uses the LTrim function to strip leading spaces and the RTrim function to strip trailing spaces from a string variable. It uses the Trim function to strip both types of spaces.

' 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)

Example: Mid

This example uses the Mid function to return a specified number of characters from a string.

' 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)

Example: Len

This example uses Len to return the number of characters in a string.

' Initializes variable.
Dim testString As String = "Hello World"
' Returns 11.
Dim testLen As Integer = Len(testString)

Example: InStr

This example uses the InStr function to return the position of the first occurrence of one string within another.

' 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")

Example: Format

This example shows various uses of the Format function to format values using both String formats and user-defined formats. For the date separator (/), time separator (:), and the AM/PM indicators (t and tt), the actual formatted output displayed by your system depends on the locale settings the code is using. When times and dates are displayed in the development environment, the short time format and short date format of the code locale are used.

Note

For locales that use a 24-hour clock, the AM/PM indicators (t and tt) display nothing.

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%")

See also