vbs

2010-11-08  吴楠 

1.一般连接字符时要用 & ,不要用 + ,这样可以避免混乱
 
2.length=UBound(MyArray)   ' UBound是下标的意思
 
3.Dim MyArray() 
  ReDim MyArray(3)     'MyArray() 动态数组
 
4.条件语句:
 'if else 的用法                                           'select case 的用法
  If  " 条件 "  Then                                       Select Case "条件 "
     "会怎么样"                                                      Case"  "                       
 Else                                                                     Case"  " 
      "会怎么样"                                                      ...
 End if                                                         End select
 
5.循环语句
 'For next 用法
 For i=0 To 1
MsgBox MyName
MsgBox MyWriting
Next
 
'For each 的用法
For Each element In MyWriting
MsgBox element
Next
 

'do loop 的用法
Dim age
age = 23
Do Until age = 100
age= age+1
Loop
MsgBox "我要活到" &age&"岁,哈哈"

'while 的用法
Dim money
money = 2
While money > 0
money = money -1
Wend
MsgBox " 我身无分文了 "

 

6.函数

Sub HelpMe()
MsgBox " 哪个公司要我啊! "
End Sub
Call HelpMe()
 在上面的代码中,我们通过 call 来调用 sub ,并且 sub 是没有返回值的。

Dim str,str1,str2
str1 = " 努力工作 "
Function Flighting(str)
str2 = " 我要 " & str
Flighting = str2
End Function
MsgBox Flighting(str1)
在上面的代码中, function 函数是有返回值,而且它的返回值是通过赋给函数名来实现的。

7.常用函数
字符串函数
 
Len : 返回字符串内字符的数目,或是存储一变量所需的字节数。
Dim MyString
MyString =  Len( "VBSCRIPT" )        ' MyString 包含 8 。
 
Mid : 从字符串中返回指定数目的字符。
Dim MyVar
MyVar = Mid("VBScript is fun!", 3, 6)       'MyVar 包含 "Script" 。
 
Right : 从字符串右边返回指定数目的字符。
MyVar = Right("VBScript is fun!", 4)       'MyVar 包含 "fun! 。
 
InStr : 返回某字符串在另一字符串中第一次出现的位置。
MsgBox InStr("aaabbbcccddd","c")
 
InStrRev : 返回某字符串在另一个字符串中出现的从结尾计起的位置。
' 返回的是 9 。因为正数 c 出现的最后一次是在 9 ,倒着看 c 第一次出现的位置还是 9
MsgBox InStrRev("aaabbbcccddd","c")
 

Ltrim:去掉左边空格

Ltrim:去掉右边空格

Trim:去掉两边空格

Lcase:返回字符串的小写形式

Ucase:返回字符串的大写形式

 

StrComp (str1,str2[,method]) :返回两个字符串的比较结果。

如果字符串str1小于字符串str2,则返回-1;

如果两字符相等则返回0;

如果字符串str1大于字符串str2,则返回1;

如果其中任意一个字符串为空值NULL,则返回空值NULL。

参数method表示比较方式,0表示二进制比较方式,1表示文字比较方式。

 

Join : 返回一个字符串,此字符串由包含在 数组 中的许多子字符串联接创建。

Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray)
MsgBox MyString
以上是对部分函数的举例和说明,更详细的信息大家可以查看 vbs 的官方帮助文档。

 

split:
返回基于 0 的一维数组,其中包含指定数目的子字符串。
返回值数组 = Split("字符串","分割符")

x="abc 0 cde 0 kkk"
s=split(x,"0")
msgbox s(1)  '返回结果cde

8.转换函数

CBool(expression) :将expression转换成布尔类型  如:CBool(0)返回False

CByte(expression):将expression转换成单字节类型 如:Cbyte(26.723)返回27

CDate(expression): 将expression转换成日期类型 如:CDate("Feb 19,2009")返回2009-2-19

CDbl(expression): 将expression转换成双精度类型 如:CDbl("323.615")返回323.615

Chr(expression): 将expression所表示的ASCII码转换为对应字符串 如:Chr(65)返回"A"

Asc(expression): 将expression字符串的第一个字母转换为对应的ASCII代码。如:Asc("ABC")返回65
 
CInt(expression):将expression转换成整数类型 如:Cint(12.399)返回12
CLng(expression): 将expression转换成长整数类型 如:Clng("2009888.557")返回2009889
CSng(expression): 将expression转换成单精度类型 如: Csng("568.2")返回568.2
CStr(expression): 将expression转换成字符串类型 如:CStr(5.65)返回5.65
Hex(expression): 将expression转换成十六进制字符 如:Hex("1234")返回4D2
Int(expression): 将expression取整 如:Int(-207.2529)返回-208
Fix(expression): 返回expression的整数部分 如:Fix(-207.2529)返回-207
Oct(expression): 将expression转换成八进制 如:Oct("1234")返回2322
 
9.判断函数
IsArray:返回Boolean值指明某变量是否为数组。
IsDate
IsNull
IsObject
VarType(Var)  : 判断var的类型。返回0表示空,2表示整数,7表示日期,8表示字符串,11表示布尔型,8204
例如: dim ar
      ar=array(1,2,3)
      msgbox VarType(ar)
TypeName  如:MyType = TypeName("VBScript") ' 返回 String。
 
 
306°/3062 人阅读/0 条评论 发表评论

登录 后发表评论