VBS常用函数

1.instr

【方法】

  InStr([start, ]string1, string2[, compare])

  【返回值】

  返回 正整数Variant(Long)。

  【异常/错误】

  当string1为null时,产生 实时错误 '94' :无效使用Null 的错误

  【描述】

  返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中,从start开始找string2,省略start时从string1的第1个字符开始找。找不到时,函数返回值为0,找到则返回所在位置。

  如果需要字节查找,则可以使用InstrB

设置

compare 参数可以有以下值:

常数描述
vbBinaryCompare    0                 执行二进制比较。
vbTextCompare  1                 执行文本比较。
返回值

InStr 函数返回以下值:

如果InStr 返回
string1 为零长度0
string1 为 NullNull
string2 为零长度start的值
string2 为 NullNull
string2 没有找到0
在 string1 中找到 string2  找到匹配字符串的位置
start > Len(string2)

0

 

本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

  Dim SearchString, SearchChar, MyPos

  SearchString ="XxxxxpxxPhdd" '被搜索的字符串。

  SearchChar = "P" ' 要查找字符串。

  ' 从第4个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。

  ' 小写 p 和大写 P 在文本比较下是一样的。

  MyPos = Instr(4, SearchString, SearchChar, 1)

  ' 从第4个字符开始,按照原文比较的方式找起。返回值为 9(大写 P)。

  ' 小写 p 和大写 P 在二进制比较下是不一样的。

  MyPos = Instr(1, SearchString, SearchChar, 0)

  ' 缺省的比对方式为二进制比较(最后一个参数可省略)。

  MyPos = Instr(SearchString, SearchChar) ' 返回 9。

  MyPos = Instr(1, SearchString, "W") ' 返回 0。




函数名 语法 功能
Abs Abs(number) 返回一个数的绝对值
Sqr Sqr(number) 返回一个数的平方根
Sin Sin(number) 返回角度的正玄值
Cos Cos(number) 返回角度的余玄值
Tan Tan(number) 返回角度的正切值
Atn Atn(number) 返回角度的反正切值
Log Log(number) 返回一个数的自然对数
Int Int(number) 取整函数,返回一个小于number的第一整数
FormatNumber FormatNumber(number, numdigitsafterdecimal) 转化为指定小数位数(numdigitsafterdecimal)的数字
Rnd Rnd() 返回一个从0到1的随机数
Ubound Ubound(数组名,维数) 返回该数组的最大下标
Lbound Lbound(数组名,维数) 返回最小下标数

注释:

Rnd 函数

语法:Rnd[(number)]

返回一随机数。参数 number 可以是任何的数值表达式。

注解:

Rnd 函数返回的随机数介于 0 和 1 之间,可等于 0,但不等于 1。

number 的值会影响 Rnd 返回的随机数:

Number的取值返回值
小于0每次都是使用numbe当做随机结果。
大于0随机序列中的下一个随机数。
等于0最近一次产生过的随机数。
省略随机序列中的下一个随机数。

各种转换函数及功能

函数功能
CStr(variant)将变量variant转化为字符串类型
CDate(variant)将变量variant转化为日期类型
CInt(variant)将变量variant转化为整数类型
CLng(variant)将变量variant转化为长整数类型
CSng(variant)将变量variant转化为single类型
CDbl(variant)将变量variant转化为double类型
CBool(variant)将变量variant转化为布尔类型

注释:

1整型
以Integer 表示整型,其范围为 -32,768 到 32,767 之间。

2、长整型
Long(长整型) ,其范围从 -2,147,483,648 到 2,147,483,647。

3、单精度型(Single) 
Single(单精度浮点型),它的范围在负数的时候是从 -3.402823E38 到 -1.401298E-45,而在正数的时候是从 1.401298E-45 到 3.402823E38。

4、双精度型(Double)
Double(双精度浮点型)它的范围在负数的时候是从 -1.79769313486232E308 到 -4.94065645841247E-324,而正数的时候是从 4.94065645841247E-324 到 1.79769313486232E308。

常用的字符串函数及功能

函数 语法 功能
Len Len(string) 返回string字符串里的字符数目
Trim Trim(string) 将字符串前后的空格去掉
Ltrim Ltrim(string) 将字符串前面的空格去掉
Rtrim Rtrim(string) 将字符串后面的空格去掉
Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串,如果省略第三个参数表示从start字符开始到字符串结尾的字符串
Left Left(string,length) 从string字符串的左边取length长度的字符串
Right Right(string,length) 从srting字符串的右边取得length长度的字符串
LCase LCase(string) 将字符串里的所有大写字母转化成小写字母
UCase UCase(string) 将字符串里的小写字母转化成大写字母
StrComp Strcomp(string1,string1) 返回string1字符串与string2字符串的比较结果,如果两个字符串相同,返回0
InStr InStr(string1,string2) 返回string2字符串在string1字符串中第一次出现的位置
Split Split(string1,delimiter 将字符串根据delimiter拆分成一维数组,其中delimiter用于表示子字符串界限的字符,如果省略,使用空格(“”)当作分隔符
Replace Replace(string1,find,replacewith) 返回字符串,其中指定的子字符串(find)被替换为另一个子字符串(replacewith)

常用日期和时间函数及说明

函数 语法 功能
Now Now() 取得系统当前的日期和时间
Date Date() 取得系统当前的日期
Time Time() 取得系统当前的时间
Year Year() 取得给定日期的年份
Month Month(Date) 取得给定日期的月份
Day Day(Date) 取得给定日期是几号
Hour Hour(time) 取得给定时间是第几小时
Minute Minute(time) 取得给定时间是第几分钟
Second Second(time) 取得给定时间是第几秒
WeekDay WeekDay(Date) 取得给定日期是星期几的整数
1 表示星期一
2 表示星期二
依次类推
DateDiff DateDiff(“Var”, Var1,Var2)
Var:日期或时间间隔因子
Var1:第一个日期或时间
Var2:第二个日期或时间
计算两个日期或时间的间隔
DateAdd DateAdd(“Var”, Var1,Var2)
Var:日期或时间间隔因子
Var1:日期或时间
Var2:日期或时间
对两个日期或时间作加法
DateAdd(“d”,10,Date()) 10天后是几号
FormatDateTime FortDateTime(Date,vbShortDate) 转化为短日期格式
FortDateTime(Date,vblongDate) 转化为长日期格式
FortDateTime(Date,vbShortTime) 转化为短时间格式
FortDateTime(Date,vbLongTime) 转化为长时间格式

日期或时间间隔因子

间隔因子 yyyy m d ww h s
说明 星期 小时

常用的检验函数及功能

函数 功能
VarType(variant) 检查变量vriant的值,函数值为该变量的数据子类型,0表示空,2表示整数,7表示日子,8表示字符串,11表示布尔变量,8192表示数组
IsNumeric(variant) 检查变量variant的值,如果variant是数值类型,则函数值为ture
IsNull(variant) 检查变量variant的值,如果variant为null,则函数值为ture
IsEmpty(variant) 检查变量的值,如果variant是empty,则函数值为ture
IsObject(variant) 检查变量variant的值,如果variant是对象类型,则函数值为ture
IsDate(variant) 检查变量variant的值,如果variant是日期类型,则函数值为ture
IsArray(variant) 检查变量variant的值,如果variant是数组类型,则函数值为ture

FileExists 方法 描述如果指定的文件存在,返回 True,若不存在,则返回 False。语法object.FileExists(filespec) FileExists 方法语法有如下几部分:部分描述object必需的。始终是一个 FileSystemObject 的名字。filespec必需的。要确定是否存在的文件的名字。如果认为文件不在当前文件夹中,必须提供一个完整的路径说明
If ctln_fso.FileExists("c:\t.txt") <> True Then
set ctln_f = ctln_fso.CreateTextFile("c:\t.txt")
ctln_f.WriteBlankLines 1 '写入空的一行
ctln_f.close
End If
  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值