1、Mid函数
Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数:
部分 说明
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null。
start 必要参数。为Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")。
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。
2、LEN 函数
LEN 是 LENgth,返回的是字符串的长度
语法
Len(string | varname)
Len 函数的语法有下面这些部分:
string 任何有效的字符串表达式。如果 string 包含 Null,会返回 Null。
Varname 任何有效的变量名称。如果 varname 包含 Null,会返回 Null。如果 varname 是 Variant,Len 会视其为 String 并且总是返回其包含的字符数。
说明
两个可能的参数必须有其一(而且只能有其一)。如为用户定义类型,Len 会返回其写至文件的大小。
3、LOF函数
LOF 是 Length Of File,返回的是文件的长度(long)
返回一个 Long 值,表示用 FileOpen 函数打开的文件的大小(以字节为单位)。
语法:
Lof(FileNumber )
示例:
Dim length As Integer
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Input) ' Open file.
length = LOF(1) ' Get length of file.
Debug.WriteLine(length)
FileClose(1) ' Close file.
4、Trim函数
函数说明:
LTrim、RTrim 和 Trim 函数
返回一个字符串,该字符串包含指定字符串不带前导空格 (LTrim)、不带尾随空格 (RTrim) 或同时不带前导和尾随空格 (Trim) 的副本。
参数
Str
必选项。任何有效的 String 表达式。
示例
本例使用 LTrim 函数从字符串变量中去除前导空格,并使用 RTrim 函数去除尾部空格。它使用 Trim 函数同时去除这两种类型的空格。
Dim MyString, TrimString As String
MyString = " <-Trim-> " ' Initializes string.
TrimString = LTrim(MyString) ' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString) ' TrimString = " <-Trim->".
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->".
5、Left函数
left是一个函数,字符串左截取操作.
dim a as string
dim b as string
a="abcdefg"
b=left(a,2)
之后b中的值为"ab"
6、Right函数
从字符串右边返回指定数目的字符。Right(string, length)
示例:
Dim AnyString, MyStr
AnyString="Hello World" '定义字符串。MyStr=Right(AnyString, 1) '
返回 "d"
。MyStr=Right(AnyString, 6) '
返回 " World"
。MyStr=Right(AnyString, 20) '
返回 "Hello World"
。
7、Instr函数
返回某字符串在另一字符串中第一次出现的位置。
InStr([start, ]string1, string2[, compare])
参数
start 可选项。数值表达式,用于设置每次搜索的开始位置。如果省略,将从第一个字符的位置开始搜索。如果start包含Null,则会出现错误。如果已指定compare,则必须要有start参数。
string1 必选项。接受搜索的字符串表达式。
string2 必选项。要搜索的字符串表达式。
compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅"设置"部分。如果省略,将执行二进制比较。
设置
compare参数可以有以下值:
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
返回值
InStr函数返回以下值:
如果 InStr返回
string1为零长度 0
string1为Null Null
string2为零长度 start
string2为Null Null
string2没有找到 0
在string1中找到string2 找到匹配字符串的位置
start > Len(string2) 0
大家应当注意到了,默认的情况下,函数Instr是要进行二进制匹配的,也就是说是对大小写敏感的,所以在大小写不敏感的情况使用(例如处理UBB代码),这个Compare参数的值应当设置成为1才可以满足我们的要求
示例:
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
MyPos = Instr(4, SearchString, SearchChar, 1) '返回的值为6
MyPos = Instr(1, SearchString, SearchChar, 0) '返回的值为9,因为此以二进制形式比较
8、Replace函数
返回字符串,其中指定数目的某子字符串被替换为另一个子字符串。
Replace(expression, find, replacewith[, compare[, count[, start]]])
参数
expression 必选项。字符串表达式包含要替代的子字符串。
Find 必选项。被搜索的子字符串。
Replacewith 必选项。用于替换的子字符串。
Start 可选项。expression中开始搜索子字符串的位置。如果省略,默认值为1。在和count关联时必须用
count 可选项。执行子字符串替换的数目。如果省略,默认值为-1,表示进行所有可能的替换。在和start关联时必须用。
Compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅"设置"部分。如果省略,缺省值为0 ,这意味着必须进行二进制比较
。
设置
compare参数可以有以下值:
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
返回值
Replace返回以下值:
如果 Replace返回
expression为零长度 零长度字符串("")。
expression为Null 错误。
find为零长度 expression的副本。
replacewith为零长度 expression的副本,其中删除了所有由find参数指定的内容。
start > Len(expression) 零长度字符串。
count为0 expression的副本。
示例:
实现这样的功能,如str="中华人民共和国",str1="中华",str2="共和"
想用replace函数把“中华人民共和国”中的"中华","共和"替换为红色。
输出 <font color=red>中华</font>人民<font color=red>共和</font>国
Dim str As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
str = "中华人民共和国"
str1 = "中华"
str2 = "共和"
str3 = str
str3 = Replace(str3, str1, "<font color=red>" & str1 & "</font>")
str3 = Replace(str3, str2, "<font color=red>" & str2 & "</font>")
MsgBox str3
9、SPLIT函数
描述
返回基于 0 的一维数组,其中包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, start]]])
Split 函数的语法有以下参数:
示例:
例如变量nr 里有一段是这样的:dsfasfsd__AAACC__DSAFDS,写段代码把里边的AAACC取出来
使用split:split(nr,"__")(1)
使用nstr+mid:mid(nr,instr(nr,"__")+2,5)
参数 描述
expression 必选。字符串表达式,包含子字符串和分隔符。如果 expression 为零长度字符串,Split 返回空数组,即不包含元素和数据的数组。
delimiter 可选。用于标识子字符串界限的字符。如果省略,使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串,则返回包含整个 expression 字符串的单元素数组。
count 可选。被返回的子字符串数目,-1 指示返回所有子字符串。
compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅“设置”部分。
设置
compare 参数可以有以下值:
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
vbDatabaseCompare 2 执行基于数据库(在此数据库中执行比较)中包含的信息的比较。
10、Timer 函数
返回午夜 12 时以后已经过去的秒数。
说明
下面的例子使用 Timer 函数来确定 For...Next 循环 N 次所需的时间:
Function TimeIt(N)
Dim StartTime, EndTime
StartTime = Timer
For I = 1 To N
Next
EndTime = Timer
TimeIt = EndTime - StartTime
End Function
11、isempty函数
判断变量是否为空
ip=request.QueryString("fullname")
if isempty(ip) then
ip=getip()
end if
12、isnull函数
判断数据库字段是否为空值
13、formatNumber()函数
formatNumber()
函数返回表达式,此表达式已被格式化为数值.
表达式 formatNumber(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])
允许数据类型: Digit 指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。; LeadingDigit i指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。; Paren 指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。; GroupDigit i指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。.
实例: <%=formatNumber(45.324567, 3)%>
返回结果: 45.325
联系客服