至顶网›软件频道 ›基础软件›Visual Basic中的常用字符串函数

Visual Basic中的常用字符串函数

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文对Visual Basic中的常用字符串函数进行了汇总介绍，对于VB初学者来说还是非常有价值的。

作者：佚名来源：论坛整理 2007年11月20日

关键字：

Rtrim Rtrim(string) 将字符串后面的空格去掉

　　Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串

　　Left Left(string,length) 从string字符串的左边取得length长度的字符串

　　Right Right(string,length) 从string字符串的右边取得length长度的字符串

　　LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母

　　UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母

　　StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1

　　InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置

　　Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。

　　count 返回的子字符串数目，-1 指示返回所有子字符串。

　　start为 1 执行文本比较;如果为 0 或者省略执行二进制比较。

　　Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)

　　[示例：]

　　1、Len函数示例：

　　下面的示例利用 Len 函数返回字符串中的字符数目：

以下是引用片段：
　　Dim MyString
　　MyString = Len("VBSCRIPT") 'MyString 包含 8。

　　2、Trim、Ltrim、Rtrim函数示例：

　　下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、开始和尾部空格：

以下是引用片段：
　　Dim MyVar
　　MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。
　　MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。
　　MyVar = Trim(" vbscript ") 'MyVar 包含"vbscript"。

　　3、Mid函数示例：

　　下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：

以下是引用片段：
　　Dim MyVar
　　MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "Script"。

　　4、Left函数示例：

　　下面的示例利用Left 函数返回MyString 的左边三个字母：

以下是引用片段：
　　Dim MyString, LeftString
　　MyString = "VBSCript"
　　LeftString = Left(MyString, 3) 'LeftString 包含 "VBS

　　5、Right函数示例：

　　下面的示例利用 Right 函数从字符串右边返回指定数目的字符：

以下是引用片段：
　Dim AnyString, MyStr
　　AnyString = "Hello World" '定义字符串。
　　MyStr = Right(AnyString, 1) '返回 "d"。
　　MyStr = Right(AnyString, 6) ' 返回 " World"。
　　MyStr = Right(AnyString, 20) ' 返回 "Hello World"。

　　6、LCase函数示例：

　　下面的示例利用 LCase 函数把大写字母转换为小写字母：

以下是引用片段：
　　Dim MyString
　　Dim LCaseString
　　MyString = "VBSCript"
　　LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。

　　7、 UCase函数示例：

　　下面的示例利用 UCase 函数返回字符串的大写形式：

以下是引用片段：
　　Dim MyWord
　　MyWord = UCase("Hello World") ' 返回"HELLO WORLD"。

　　8、StrComp函数示例：

　　下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较;如果第三个参数为 0 或者省略执行二进制比较。

以下是引用片段：
　　Dim MyStr1, MyStr2, MyComp
　　MyStr1 = "ABCD": MyStr2 = "abcd" '定义变量。
　　MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。
　　MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。
　　MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

Visual Basic中的常用字符串函数

业界热点: