当前位置:文档之家› (完整版)vb_字符串处理函数大全

(完整版)vb_字符串处理函数大全

mid(字符串,从第几个开始,长度)ByRef在[字符串]中[从第几个开始]取出[长度个字符串]例如mid("坦然面对",1,3) 则返回"坦然面"instr(从第几个开始,字符串1,字符串2)ByVal从规定的位置开始查找,返回字符串2在字符串1中的位置例如instr(1,"坦然面对","坦") 则返回1,instr(2,"坦然面对","坦"),则返回0 。

0 表示未找到InStrRev(字符串1,字符串2,从第几个开始) ByVal从规定的位置开始,从后住前查找,返回字符串2在字符串1中的位置,此处注意,虽是从后住前查找,但是返回的值还是从前往后算的。

例如instrRev("坦然面对","坦",2) 则返回2 ; instrRev("坦然面对","然",1) 则返回0 ,因为它从"坦然面对"的第1个字开始往前查找,所以找不到。

0 表示未找到left(字符串,长度) ByVal 从[字符串]的左边开始返回[长度]个字符例如Left("坦然面对",3) 则返回"坦然面"right(字符串,长度) ByVal 从[字符串]的右边开始返回[长度]个字符例如Right("坦然面对",3) 则返回"然面对"ucase(字符串) ByVal 返回[字符串]的大写形式,只对英文字符有效例如ucase("tanRANmiAnDui") 则返回"TANRANMIANDUI"lcase(字符串) ByVal 返回[字符串]的小写形式,只对英文字符有效例如lcase("tanRANmiAnDui") 则返回"tanranmiandui"asc(字符) Byval返回[字符]的ascii编码,若有多个字符,则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程例如asc("坦") 则返回-13127; asc("坦然面对") 也返回-13127chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符,和Chr()函数是一个可逆的过程例如chr(-13127) 则返回"坦" ;chr(asc("坦")) 则返回"坦"(这里是为了说明asc和chr的可逆性,例用此特性可以加密文本)trim(字符串) Byval 返回去掉了前、后之后的[字符串]例如trim("坦然面对") 则返回"坦然面对" ,中间的空格不受任何影响string(个数,字符) Byval 返回[个数]个[字符]例如string(3,"坦") 则返回"坦坦坦" , 而string(3,"坦然面对") 也返回"坦坦坦",只有首字符才有效space(个数) Byval 返回[个数]个空格例如space(5) 则返回""strconv(字符串,转换的类型) Byval 将字符串转成指定的类型。

常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角例如strconv("tan",vbwide) 则返回"TAN",而strconv("TAN",vbnarrow) 则返回"tan"'备注vbwide = 4 ,vbnarrow = 8len(字符串) Byval 返回[字符串]的长度例如len("坦然面对") 则返回4以下内容特别感谢无私、博爱的yty同学补充:AscB(String As String) As Byte返回字符串中第一个字节的值例如:AscB("坦然")则返回102AscW(String As String) As Integer返回字符串中第一个字符的本机字符代码(Unicode 或ANSI)例如:AscW("坦然")则返回22374ChrW(CharCode As Long)返回一个包含指定本机字符的字符串(Unicode 或ANSI)例如:ChrW(22374)则返回"坦"Filter(InputStrings, Value[, Include[, Compare]])返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。

InputStrings 必需的。

要执行搜索的一维字符串数组。

Value 必需的。

要搜索的字符串。

Include 可选的。

Boolean值,表示返回子串包含还是不包含Value字符串。

如果Include是True,Filter返回的是包含Value子字符串的数组子集。

如果Include是False,Filter返回的是不包含Value子字符串的数组子集。

Compare 可选的。

数字值,表示所使用的字符串比较类型。

有关其设置,请参阅下面的“设置值”部分。

Compare参数的设置值如下:vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。

vbBinaryCompare 0 执行二进制比较。

vbTextCompare 1 执行文字比较。

vbDatabaseCompare 2 只用于Microsoft Access。

基于您的数据库信息来执行比较。

例如:Dim a(3) As Stringa(0) = "坦"a(1) = "坦然"a(2) = "坦然面"a(3) = "坦然面对"b = Filter(a, "然")则b(0) = "坦然"b(1) = "坦然面"b(2) = "坦然面对"Join(list[, delimiter]) As String返回一个字符串,该字符串是通过连接某个数组中的多个子字符串而创建的。

list 必需的。

包含被连接子字符串的一维数组。

delimiter 可选的。

在返回字符串中用于分隔子字符串的字符。

如果忽略该项,则使用空格(" ")来分隔子字符串。

如果delimiter是零长度字符串(""),则列表中的所有项目都连接在一起,中间没有分隔符。

例如:Dim a(3) As Stringa(0) = "坦"a(1) = "坦然"a(2) = "坦然面"a(3) = "坦然面对"b = Join(a, "+")则b = "坦+坦然+坦然面+坦然面对"LeftB(String, Length As Long)从一个字符串的左边起返回指定数目的字节例如:a = LeftB("坦然面对", 4)则a = "坦然"LenB(Expression)返回存储一个变量所需的字节数例如:a = LenB("坦然面对")则a = 8LTrim(String)返回无前导空格的字符串的备份RTrim(String)返回一个无后缀空格的字符串的备份例如:a = LTrim(" 坦然面对")b = RTrim(" 坦然面对")则a = "坦然面对"b = " 坦然面对"MidB(String, Start As Long, [Length])从一个字符串中返回指定数目的字节例如:a = MidB("坦然面对", 3, 4)则a = "然面"MonthName(Month As Long, [Abbreviate As Boolean = False]) As String返回一个表示指定月份的字符串。

abbreviate 可选的。

Boolean值,表示月份名是否缩写。

如果忽略,缺省值为False,表明月份名不能被缩写。

例如:a = MonthName(5)则a = "五月"Format(expression[, format[, firstdayofweek[, firstweekofyear]]])返回Variant (String),其中含有一个表达式,它是根据格式表达式中的指令来格式化的。

expression 必要参数。

任何有效的表达式。

format 可选参数。

有效的命名表达式或用户自定义格式表达式。

firstdayofweek 可选参数。

常数,表示一星期的第一天。

firstweekofyear 可选参数。

常数,表示一年的第一周。

firstdayofweek 参数有下面设置:vbUseSystem 0 使用NLS API 设置。

VbSunday 1 星期日(缺省)vbMonday 2 星期一vbTuesday 3 星期二vbWednesday 4 星期三vbThursday 5 星期四vbFriday 6 星期五vbSaturday 7 星期六firstweekofyear 参数有下面设置:vbUseSystem 0 使用NLS API 设置。

vbFirstJan1 1 从包含一月一日的那一周开始(缺省)。

vbFirstFourDays 2 从本年第一周开始,而此周至少有四天在本年中。

VbFirstFullWeek 3 从本年第一周开始,而此周完全在本年中。

示例a = Format(#4/19/2008 1:01:05 PM#, "yyyy-mm-dd,ddd,hh:mm:ss")a = "2008-04-19,Sat,13:01:05"a = Format(#4/19/2008 1:01:05 PM#, "yyyy-mm-dd,dddd,h:m:s")a = "2008-04-19,Saturday,13:1:5"a = Format(#4/19/2008 1:01:05 PM#, "m-d-yy ampm h/m/s")a = "4-19-08 PM 1-1-5"a = Format(1234567.89, "#,#.#00")a = "1,234,567.890"a = Format(0.12358, "#%")a = "12%"a = Format(0.12358, "#.#0%")a = "12.36%"a = Format(0.12358, "#.#000%")a = "12.3580%"a = Format("TaNrAnMiAnDuI", ">")a = "TANRANMIANDUI"a = Format("TaNrAnMiAnDuI", ">")a = "tanranmiandui"总之,Format功能很强大,可替代许多函数。

相关主题