vb字符串处理函数Posted on 2012-04-09 14:52 ╰★张志峰★╮阅读(1996) 评论(0) 编辑收藏vb字符串处理函数LEN字串長度函數：計算字串的長度。

函數運算式結果len("abcd") 4len("中文字") 3len(abc中文) 5MID取部份字串函數：依開始位置擷取固定長度字串。

函數運算式結果mid("vbscript",3,3) scrmid("vbscript",3) scriptmid("vbscript",1,2) vbLEFT字串開頭取部份字串函數：將某一字串由開頭擷取固定長度。

函數運算式結果left("vbscript",2) vbleft("vbscript",5) vbscrRIGHT字串結尾取部份字串函數：將某一字串由結尾擷取固定長度。

函數運算式結果right("vbscript",2) ptright("vbscript",6) scriptLCASE轉大寫函數：將字串中的大寫字母變成小寫。

函數運算式結果lcase("VBScript") vbscriptlcase("VBScript程式") vbscript程式UCASE轉小寫函數：將字串中的小寫字母變成大寫。

函數運算式結果ucase("VBScript") VBSCRIPTucase("VBScript程式") VBSCRIPT程式TRIM刪除頭及尾空白字元函數：將字串開頭及結尾的空白字元刪除。

LTRIM刪除開頭空白函數：將字串開頭的空白字元刪除。

RTRIM刪除結尾空白函數：將字串結尾的空白字元刪除。

函數運算式結果trim(" VBScript ") VBScriptltrim(" VBScript ") VBScriptrtrim(" VBScript ") VBScriptREPLACE替代字串函數：將字串中的某字串用另一字串代替。

函數運算式結果replace("VBScript","VB","JAVA") JAVAScriptINSTR是否包含另一字串函數：傳回子字串在字串中的第一次出現位置。

函數運算式結果instr("ABCabc","a") 4instr("ABCabc","BC") 2SPACE空白字元函數：產生N個空白字元。

函數運算式結果space(10)STRING產生字串函數：產生N個字元。

函數運算式結果string(5,"*") *****string(3,65) AAASTRREVERSE反轉字串函數：將字串內容前後反轉。

函數運算式結果strreverse("VBScript") tpircSBVstrreverse("中文字") 字文中SPLIT分割字串函數：將長字串依某字元分割並放於陣列中。

函數運算式結果arr=split("張三&李四&王五","&")arr(0)="張三"arr(1)="李四"VB]针对字符串的函数(2006-11-02 09:54:14)转载▼分类：[技术]参考资料字符串（String）是VB编程中的一个重要类型。

它用于存放字符数据。

将一个变量声明为字符串变量的格式为：Dim／Public／Private 变量 As String 或者Dim／Public／Private 变量 As String * 自然数后者为所声明的变量指定了长度。

例如我们要声明一个长度为3的变量A，可以用语句Dim A As String*3 。

注意，指定了长度的字符串只能存放指定长度个字符，当赋值给变量的字符串小于指定的长度时，系统会以空格补足，而当大于指定的长度时，系统会舍去超过长度的那部分字符。

因而，在进行对指定长度的字符串进行逻辑运算时要特别注意。

下面给出一段代码，读者仔细体会一下：Dim A1 As String * 3Dim A2 As String * 3Dim A3 As String * 3Dim B As StringA1 = "12"A2 = "123"A3 = "1234"B = "12"C = "12 "Print A1Print A2Print A3Print BPrint CPrint A2 = A3Print A1 = BPrint A1 = C得出的结果是：12_1231231212TrueFalseTrue一般情况下，我们使用第一种情况，即不指定字符串的长度。

VB提供了强大的字符串处理功能，下表列出了常用的关于字符串处理的函数：函数名功能简述函数名功能简述Asc 取ANSI 字符代码 Mid 取字符Chr Asc函数的逆运算 Replace 替换字符Filter 返回符合的一个数组 Right 取右边字符Format 转化格式 Rtrim 清除右边空格InStr 包含字符串 Space 生成空格IsNumeric 判断是否数字 StrComp 比较字符串Join 合并数组到字符串 Split 分割字符串到数组Lcase 将字符串转化为小写 String 生成字符Left 取左边字符 StrReverse 翻转字符串Len 取字符串长度 Trim 清除两边空格LTrim 清除右边空格 UCase 转为大写下面详细介绍这些函数的功能及其用法。

一、 Asc函数与Chr函数Function Asc(String As String) As IntegerFunction Chr(CharCode As Long)Asc函数用来取一个字符串的第一个字符的Ascii编码。

它是美国信息交换标准码 (American Standard Code for Information Interchange)。

例如：Asc(“A”)返回值为65。

注意：中文字符等也能使用该函数，同样能返回一个对应的整型值。

Chr函数是Asc函数的逆运算。

代码Chr(65)可以返回字符串值”A”。

它的返回类型是一般是字符串。

我们常用这个函数来取一些无法直接输入或输入困难的字符，如回车符Chr(13)等等。

二、 Mid函数、Right函数和Left函数Function Mid(String, Start As Long, [Length])Function Right(String, Length As Long)Function Left(String, Length As Long)这三个函数都是用来从一个字符串中取字符的，参数String传入一个字符串，Length为要取的长度。

它们的不同是Mid可以取指定位置的字符，而Right和Left取的分别是右边合左边的字符。

Mid函数的Start参数是欲取的子字符在原字符串中的起始位置；它的Length函数是可省去的（其他两个函数不能省略这个参数），缺省情况下将取起始位置之后的所有字符。

用法举例：Print Mid(“ABCDEFGHIJK”,2,3)Print Mid(“ABCDEFGHIJK”,2,10)Print Mid(“ABCDEFGHIJK”,2)Print Mid(“ABCDEFGHIJK”,11)运行结果为：BCDBCDEFGHIJKBCDEFGHIJKBCDEFGHIJK注意：起始位置参数必须大于等于1，否则程序在运行过程中会报错。

而长度（Length）超过了原来的字符串是允许的，此时相当于省略了Length这个参数。

Right（Left）是取右边（左边）指定长度的字符，如：Print Right (“ABCDEFGHIJK”,2)Print Left (“ABCDEFGHIJK”,2)运行结果为：KJAB这三个函数还存在另一个形式，即Mid$、Right$和Left$。

它们的用法是与不加“$”一样的，功能上的区别仅在于加了“$”后多做一步转化为字符串的操作。

三、 Format函数Function Format(Expression, [Format], [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])这个函数用来转化字符串的形式，它的功能是十分强大的。

我们不要被它的原形吓着，看似十分复杂，其实很好理解。

在VB中带有方括号的参数都是可以省略的，但是这个函数中我们一般不省略Format这个参数，因为它代表了一种转化的标准。

最后的两个参数用于处理日期的转化，这里不作详细的介绍，有兴趣的读者可查阅Msdn帮助。

Expression参数为欲转化的表达式。

下表给出了该函数常用的使用方法：字符说明Format（12.34）为”12.34”# Format（12.34, “####.###”）为“12.34”0 Format（12.34, “0000.000”）为“0012.340”: Format（1, “00:”）为“05:”, Format（12345.67, “##,###.###”）为“12,345.67”% Format（123.4567, “00.0%”）为“12345.7%”（四舍五入）@ Format（”ABcd”, “@@@@@@”）为“Abcd”< Format（”ABcd”, “<@@@@@@”）为“abcd”> Format（”ABcd”, “>@@@@@@”）为“ABCD”! Format（”ABcd”, “!@@@@@@”）为“Abcd”该函数同样也有另一种形式，即Format$。

加了“$”后多做一步转化为字符串的操作。

四、 Replace函数Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As StringReplace函数用于字符的替换。