学习首页 百科 人生课堂 办公软件 英语学习 操作系统 故事会 编程资料 软件学习 设计
铭瑶网 >> 学习首页 >> 软件 >> Visual Basic .NET 中的数学函数、类型转换函数和字符串函2
标题：Visual Basic .NET 中的数学函数、类型转换函数和字符串函2

【字体： 大中小】 时间:2008-4-11 来源:互联网 作者:study

Visual Basic .NET 中的数学函数、类型转换函数和字符串函2

set to "437.324".
返回页首
使用字符串函数不同的类中都定义有字符串函数。这些类包括 Microsoft.VisualBasic.Strings 类和 System.String 类。
返回页首 使用 Microsoft.VisualBasic.Strings 类中的字符串函数下列函数是 Microsoft.VisualBasic.Strings 类中定义的字符串函数。
注意：要使用字符串函数，请通过在源代码开始处添加以下代码将名称空间 Microsoft.VisualBasic.Strings 导入到项目中： Imports Microsoft.VisualBasic.Strings
Asc 和 AscW
Asc 函数和 AscW 函数返回一个整数值，表示与指定的字符相对应的字符代码。这两个函数接受任何有效的字符表达式或字符串表达式作为参数。当字符串是输入参数时，则仅输入字符串的第一个字符。当字符串不包含任何字符时，将出现 ArgumentException 错误。Asc 返回输入字符的代码数据点或字符代码。对于单字节字符集 (SBCS) 值，返回值可以是 0 到 255 之间的数字。对于双字节字符集 (DBCS) 值，返回值可以是 -32768 到 32767 之间的数字。AscW 为输入字符返回 0 到 65535 之间的 Unicode 代码数据点。
例如： Dim MyInt As IntegerMyInt = Asc("A")   ' MyInt is set to 65.MyInt = Asc("a")   ' MyInt is set to 97.MyInt = Asc("Apple")   ' MyInt is set to 65. Chr 和 ChrW
Chr 函数和 ChrW 函数返回与指定的字符代码相关联的字符。当 CharCode 超出 -32768 到 65535 的范围时，将出现 ArgumentException 错误。
例如： 
本示例使用 Chr 函数返回与指定的字符代码相关联的字符。 Dim MyChar As CharMyChar = Chr(65)   ' Returns "A".MyChar = Chr(97)   ' Returns "a".MyChar = Chr(62)   ' Returns ">".MyChar = Chr(37)   ' Returns "%".
GetChar
GetChar 函数返回一个 Char 值，表示指定字符串的指定索引中的字符。当索引小于 1 或大于指定输入参数中最后一个字符的索引时，将出现 ArgumentException 错误。
例如：
本示例显示了如何使用 GetChar 函数从字符串的指定索引中返回字符。Dim myString As String = "ABCDE"Dim myChar As CharmyChar = GetChar(myString, 4)   ' myChar = "D"
InStr
InStr 函数返回一个整数，指定一个字符串在另一个字符串中首次出现的起始位置。
例如：
以下示例使用 InStr 函数返回一个字符串在另一个字符串中首次出现的位置： Dim SearchString, SearchChar As StringDim MyPos As IntegerSearchString ="XXpXXpXXPXXP"   ' String to search in.SearchChar = "P"   ' Search for "P".' A textual comparison starting at position 4. Returns 6.MyPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)   
Join
Join 函数返回一个字符串，该字符串是通过连接数组中包含的子字符串创建的。包含必须连接的子字符串的一维数组将作为参数传递给 Join 函数。该函数使用 Delimiter、String 作为可选参数来分隔返回的字符串中的子字符串。当省略 Delimiter 时，将使用空格（“ ”）作为子字符串之间的分隔符。当 Delimiter 是零长度字符串 ("") 时，数组中的子字符串将不使用分隔符，而是直接相连。
例如：
以下示例显示了如何使用 Join 函数：Dim myItem(2) As StringDim myShoppingList As StringmyItem(0) = "Pickle"myItem(1) = "Pineapple"myItem(2) = "Papaya"' Returns "Pickle, Pineapple, Papaya"myShoppingList = Join(myItem, ", ")
LCase
LCase 函数返回已经转换为小写的字符串或字符。只有大写字母被转换为小写。所有小写字母和非字母字符均保持不变。
例如：
以下示例使用 LCase 函数返回字符串的小写形式： Dim UpperCase, LowerCase As StringUppercase = "Hello WORLD 1234"   ' String to convert.Lowercase = LCase(UpperCase)   ' Returns "hello world 1234".
LTrim、RTrim 和 Trim
这些函数会返回一个包含指定字符串的副本的字符串。在使用 LTrim 时，没有起始空格。在使用 RTrim 时，没有尾随空格。在使用 Trim 时，既没有起始空格也没有尾随空格。
例如：
以下示例使用 LTrim 函数删除字符串变量中的起始空格，使用 RTrim 函数删除字符串变量中的尾随空格，以及使用 Trim 函数删除字符串变量中的起始空格和尾随空格： Dim MyString, TrimString As StringMyString = "  <-Trim->  "   ' Initializes string.TrimString = LTrim(MyString)   ' TrimString = "<-Trim->  ".TrimString = RTrim(MyString)   ' TrimString = "  <-Trim->".TrimString = LTrim(RTrim(MyString))   ' TrimString = "<-Trim->".' Using the Trim function alone achieves the same result.TrimString = Trim(MyString)   ' TrimString = "<-Trim->".
Replace
Replace 函数返回一个字符串，其中指定的子字符串按指定的次数替换为另一个子字符串。Replace 函数的返回值是一个字符串，该字符串在 Start 参数指定的位置开始，然后在指定字符串的末尾以 Find 参数和 Replace 参数中的值所指定的替换内容结束。
例如：
本示例演示了 Replace 函数： Dim myString As String = "Shopping List"Dim aString As String' Returns "Shipping List".aString = Replace(myString, "o", "i")
StrComp
StrComp 函数返回 -1、0 或 1。这将基于字符串比较的结果。字符串将从第一个字符开始按字母数字顺序排列的值进行比较。
例如：
以下示例使用 StrComp 函数返回字符串比较的结果。如果省略第三个参数，则使用选项比较语句或项目默认设置中定义的比较类型。 Dim MyStr1, MyStr2 As StringDim MyComp As IntegerMyStr1 = "ABCD" MyStr2 = "abcd"   ' Defines variables.' The two strings sort equally. Returns 0.MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Text)' MyStr1 sorts after MyStr2. Returns -1.MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Binary)' MyStr2 sorts before MyStr1. Returns 1.MyComp = StrComp(MyStr2, MyStr1)
StrConv
StrConv 函数返回一个字符串，该字符串转换为输入参数中指定的值。StrConv 函数将转换字符串。这种转换基于 Conversion 参数中的值。Conversion 参数中的值是 VbStrConv 枚举的成员。
Conversion 参数的设置为：枚举成员 说明 VbStrConv.None 不执行转换 VbStrConv.LinguisticCasing - 使用语言规则而不是文件系统（默认值）来区分大小写- 仅对大写和小写字母有效 VbStrConv.UpperCase 将字符串转换为大写字符 VbStrConv.LowerCase 将字符串转换为小写字符 VbStrConv.ProperCase 将字符串中每个单词的第一个字母转换为大写 
例如：
以下示例将文本转换为小写字母： Dim sText, sNewText As StringsText = "Hello World"sNewText = StrConv(sText, VbStrConv.LowerCase)Debug.WriteLine (sNewText)   ' Outputs "hello world".
StrDup
StrDup 函数返回一个由指定的字符重复指定的次数而形成的字符串或对象。StrDup 函数具有两个参数：Number 参数和 Character 参数。Number 参数指定函数必须返回的字符串的长度。StrDup 函数仅使用 Character 参数中的第一个字符。Character 参数可以是 Char 数据类型、String 数据类型或 Object 数据类型。
例如：
以下示例使用 StrDup 函数返回由重复字符组成的字符串： Dim aString As String = "Wow! What a string!"Dim aObject As New Object()Dim myString As StringaObject = "This is a String that is contained in an Object"myString = StrDup(5, "P")   ' Returns "PPPPP"myString = StrDup(10, aString)   ' Returns "WWWWWWWWWW"myString = StrDup(6, aObject)   ' Returns "TTTTTT"
StrReverse
StrReverse 函数返回一个字符串，该字符串将指定字符串的字符顺序颠倒过来。
例如： Dim myString As String = "ABCDEFG"Dim revString As String' Returns "GFEDCBA".revString = StrReverse(myString)
UCase
UCase 函数返回一个字符串或字符，包含已转换为大写的指定字符串。只有小写字母被转换为大写字母。所有大写字母和非字母字符均保持不变。
例如：
以下示例使用 UCase 函数返回字符串的大写形式：Dim LowerCase, UpperCase As StringLowerCase = "Hello World 1234"   ' String to convert.UpperCase = UCase(LowerCase)   ' Returns "HELLO WORLD 1234".
返回页首
使用 System.String 类中的字符串函数以下是 System 名称空间的 String 类中的字符串函数。
注意：要使用字符串函数，请通过在源代码开始处添加以下代码将 System.String 名称空间导入到项目中： Imports System.String
Compare
Compare 函数比较输入参数中的两个字符串。通过使用单词排序规则来执行比较。发现不相等情况或比较完两个字符串后，比较将终止。
Compare 示例：' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As Strings1 = "testexample"s2 = "testex"MsgBox(Compare(s2, s1)) 'Returns -1.MsgBox(Compare(s1, s2)) 'Returns 1.Concat
Concat 函数将一个或多个字符串相连接，然后返回连接后的字符串。
Concat 示例：
以下示例显示了如何使用 Concat 的重载版本： ' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2, sa(3) As Stringsa(0) = "A"sa(1) = "B"sa(2) = "C"s1 = "test"s2 = "example"s1 = Concat(s1, s2)  'Returns testexample.MsgBox(s1)MsgBox(Concat(sa)) 'Returns ABC.Copy
Copy 函数将指定字符串中的值复制到另一个字符串中。
Copy 示例：' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As String       s1 = "Hello World"'Copy the string s1 to s2.s2 = Copy(s1)MsgBox(s2) 'Displays Hello World.Remove
Remove 函数从指定字符串的指定位置开始删除指定数目的字符。Remove 函数有两个参数。分别是 StartIndex 参数和 Count 参数。Startindex 参数指定开始删除字符的字符串位置。Count 参数指定要删除的字符数。
Remove 示例：' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As String       s1 = "Hello World"'Removes 3 characters starting from character e.s2 = s1.Remove(1, 3)MsgBox(s2) 'Displays Hello World.
Substring
Substring 函数从指定字符串的指定位置开始检索字符串。
Substring 示例：
以下示例将从指定的字符位置开始并按指定的长度来检索子字符串： ' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As Strings1 = "Hello World"s2 = s1.Substring(6, 5) 'Returns World.MsgBox(s2)ToCharArray
ToCharArray 函数将字符串中的字符复制到 Unicode 字符数组中。
ToCharArray 示例：
以下示例将指定位置中的字符复制到 Character 数组中： ' Code is not compiled unless it is put in a Sub or in a Function.Dim s1 As StringDim ch(10) As Chars1 = "Hello World"'Copies the characters starting from W to d to a Character array.ch = s1.ToCharArray(6, 5)MsgBox(ch(3)) 'Displays l.ToLower
ToLower 函数采用一个字符串作为参数，然后以小写形式返回该字符串的副本。
ToLower 示例：' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As Strings1 = "Hello World"s2 = s1.ToLower() 'Converts any uppercase characters to lowercase.MsgBox(s2) 'Displays hello world.ToUpper
ToUpper 函数采用一个字符串作为参数，然后以大写形式返回该字符串的副本。
ToUpper 示例：' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As Strings1 = "Hello World"s2 = s1.ToUpper() 'Converts any lowercase characters to uppercase.MsgBox(s2) 'Displays HELLO WORLD.Trim、TrimStart 和 TrimEnd
这些函数会返回一个包含指定字符串的副本的字符串。使用 Trim 函数时，既没有起始空格也没有尾随空格。使用 TrimStart 函数时，没有起始空格。使用 TrimEnd 函数时，没有尾随空格。
例如：
以下示例使用 TrimStart 函数删除字符串变量开始处的空格，使用 TrimEnd 函数删除字符串变量末尾的空格，以及使用 Trim 函数删除字符串变量中的起始空格和尾随空格：' Code is not compiled unless it is put in a Sub or in a Function.Dim s1, s2 As Strings1 = "   Hello World   "s2 = s1.Trim()      'Returns Hello World without any white spaces.s2 = s1.TrimStart   'Removes the spaces at the start.   s2 = s1.TrimEnd     'Removes the white spaces at the end.

查看/参与:讨论/评论 相关文章：Vb.net