共同探讨QTP相关问题

VBscript 基础积累

上一篇 / 下一篇  2008-05-17 17:41:57 / 个人分类：QTP

查看( 592 ) / 评论( 0 ) / 评分( 0 / 0 )
51Testing软件测试网7i5S7yz!]

摘自：http://doc.51windows.net/vbscrīpt/?url=/vbscrīpt/dir.htm

9Kq7Q G] Z051Testing软件测试网x$MdkJs%C

1， 声明变量：51Testing软件测试网[-BAN&em3U8iM

51Testing软件测试网:H?O,z2[.eM

使用Option Explicit语句作为脚本的第一条语句，后面使用变量都必须显示声明，可使用Dim, Public, Private.51Testing软件测试网r+^e\5`'TDS Uw

]*nLs'Y"BB0Note:51Testing软件测试网F)](g.REY

Dim A(10)虽然括号中显示的数字是 10，但由于在 VBscrīpt 中所有数组都是基于 0 的，所以这个数组实际上包含 11 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。
ReDim MyArray(25)
 . . . 
 ReDim Preserve MyArray(30) 关键字Preserve可以调节数组维数
2， 过程调用(对Sub过程)：
Call MyProc(firstarg, secondarg)
MyProc firstarg, secondarg
当不使用Call语句进行调用时，括号被省略。
3. VB命名约定：
常量：这种标识常数的方法依旧可行，但您还可以选择其他方案，用Const语句创建真正的常数。这个约定使用大小写混合的格式，并以“con”作为常数名的前缀。例如：conYourOwnConstant
变量：
子类型前缀示例
BooleanblnblnFound
BytebytbytRasterData
Date (Time)dtmdtmStart
DoubledbldblTolerance
ErrorerrerrOrderNum
IntegerintintQuantity
LonglnglngDistance
ObjectobjobjCurrent
SinglesngsngAverage
StringstrstrFirstName

,~2bc9?,L0对象：51Testing软件测试网9K"uuB s

51Testing软件测试网 q#r BP5g/~

对象类型前缀示例
3D 面板pnlpnlGroup
动画按钮anianiMailBox
复选框chkchkReadOnly
组合框、下拉列表框cbocboEnglish
命令按钮cmdcmdExit
公共对话框dlgdlgFileOpen
框架frafraLanguage
水平滚动条hsbhsbVolume
图像imgimgIcon
标签lbllblHelpMessage
直线linlinVertical
列表框lstlstPolicyCodes
旋钮spnspnPages
文本框txttxtLastName
垂直滚动条vsbvsbRate
滑块sldsldScale
51Testing软件测试网\0T~%b Lv.N5K u1h

D,WU&V8X04， VBscrīpt 特性：

DCy6b0JL I9~0

?$}cC8^~E6U;Q0

类别关键字
数组处理Array
-UO!B.s;BWc0Dim,Private,Public,ReDim
eo N7m{)}0IsArray51Testing软件测试网~WASZ+T
Erase
+}Oac x_6G#]U0LBound,UBound
赋值Set
程序注释使用 ' 或 Rem 的程序注释
常数/文字Empty
;E}"m[;@va0Nothing51Testing软件测试网*y#z4k,j.Ngm P
Null
Bu'k q(a?0True,False
控制流程Do...Loop
*]&Zbh;x|0For...Next51Testing软件测试网G)n ExP:F
For Each...Next
~I#jYcA0If...Then...Else
o\2J*uS0Select Case
2UP6M n"U b/T0While...Wend51Testing软件测试网.J C8?Xp9r w2y
With
转换Abs51Testing软件测试网X*t1o'_R-J y7q V\
Asc, AscB, AscW
!i Ki+h3x7D_,H0Chr, ChrB, ChrW
Q8b,J`h)X,bV0CBool,CByte51Testing软件测试网(MK^Op;Ez1s4\)n.V
CCur,CDate51Testing软件测试网I v2N3MU3Ml
CDbl,CInt
]S7_GS!p z0CLng,CSng,CStr51Testing软件测试网(rD5Q \ iF@n
DateSerial,DateValue51Testing软件测试网 E:apn4O_
Hex,Oct51Testing软件测试网RP@*g#l M9Kp%Nx
Fix,Int51Testing软件测试网u z2k'V+D.QZ
Sgn51Testing软件测试网yU:jL%`NH#m*~
TimeSerial,TimeValue
日期/时间Date,Time51Testing软件测试网p[ ?$PK$Nl
DateAdd,DateDiff,DatePart51Testing软件测试网3BG1I w8?p w
DateSerial,DateValue
,P!d8t#w {\ I0Day,Month,MonthName
5BG@m.@H U2A0Weekday,WeekdayName,Year51Testing软件测试网};u*_9k })_
Hour,Minute,Second
x&],h m{ v6lI%J0Now51Testing软件测试网0yZ4ff Tqg(n/\
TimeSerial,TimeValue
声明Class51Testing软件测试网&YHq;yF3c9n
Const
D1M,Q1B&zH0Dim,Private,Public,ReDim
M QUeQBY#j0函数,Sub
+a9po8Y7V6L8JY0属性 Get,属性 Let,属性 Set
错误处理On Error51Testing软件测试网k(dD a?/{
Err
表达式Eval
"u!QZ+d l+lk Md0Execute51Testing软件测试网1Ef3S`E
RegExp51Testing软件测试网 x"SZVF(s
Replace
*t1P;y(UJh(jN6ZcX$Ik0Test
格式化字符串FormatCurrency51Testing软件测试网3Q$\fz1xVl!YS-H
FormatDateTime
yV2p6SR R*p0FormatNumber
(D `0fipn3oh(c yr0FormatPercent
输入/输出InputBox51Testing软件测试网C*o5t%og'S
LoadPicture
*Q mA,AKn0MsgBox
文字Empty
%M,X-w|E dg0False51Testing软件测试网LUw i)^}OX
Nothing51Testing软件测试网)XW%b*_\ Xsi zbH
Null51Testing软件测试网 u6`W8W S_XU6N K~]"h
True
数学Atn,Cos,Sin,Tan51Testing软件测试网mS8Y0P'[y P3z
Exp,Log,Sqr51Testing软件测试网~#[{z1o%KNt&~
Randomize,Rnd
杂类Eval 函数
&\T-J2a L p0Execute 语句51Testing软件测试网,YX:cg%h:?$hw
RGB 函数
对象Create对象
#Mpd^e&N }HCwm&B0Err 对象
+Pz.V bJ^0Get对象51Testing软件测试网`!\yX Rn#Q9K+W
RegExp
运算符加法 (+),减法 (-)

Q+n3S~}ZZVD0幂(^)
_!P!yl2?&yJ`:U0求余算术运算 (Mod)51Testing软件测试网5LR)y"z3A+a
乘法 (*)、除法(/)
*RDM'J(W-UF7K;`*?0整除(\)
:i\+qaE0求补(-)51Testing软件测试网p3~g%_I|YQ
字符串连接(&)
US!P$E(GHD"Y0Is51Testing软件测试网B)T-loG K
And,Or,Xor51Testing软件测试网[5T [U'n
Eqv,Imp51Testing软件测试网q/Wp,Vn)C9p

选项Option Explicit
过程Call51Testing软件测试网;p],e6Cb^o u
函数,Sub
9gC_:['r.V9B0属性 Get,属性 Let,属性 Set
四舍五入Abs51Testing软件测试网fu9}hT.qR
Int,Fix,Round51Testing软件测试网 ym w/o!fW
Sgn
scrīpt 引擎 IDscrīptEngine
k-I ].E.N,Gisf:t0scrīptEngineBuildVersion51Testing软件测试网%{? Xg e6m
scrīptEngineMajorVersion
#}NAX1Y4N+A!A-|0scrīptEngineMinorVersion
字符串Asc,AscB,AscW
3BV{ By9I:oj0Chr,ChrB,ChrW51Testing软件测试网7dO8y&M/oEvn
Filter,InStr,InStrB51Testing软件测试网I3VHrA
InStrRev
"E^(v Sl }7W0Join
`+? v"H7ZbV.c;g{0Len,LenB
UDD"pz7pX0LCase,UCase
&B.T!iseJx0Left,LeftB
*o i3Uz;}5D ]l)Dz0Mid,MidB
R8zb([D? P0Right,RightB
7SQR|5HM2w$iB0RMlL0Replace51Testing软件测试网4G J tqS-AF
Space
*JM&z2dD0A*c/~x8a0Split
1LT*I9o(T7Q0StrComp51Testing软件测试网 N\6RW9MP A
String51Testing软件测试网2cnh%qXA/Z
StrReverse
%q h8OH d!aT0LTrim,RTrim,Trim
变量IsArray51Testing软件测试网;wjR;Lg(X
IsDate
wNXz"_ t _c!v0IsEmpty
a2tpI dO0IsNull
C0idx-[ pK0IsNumeric
^ GOeV8N0Is对象
8?5g*Pk#me t.}0TypeName51Testing软件测试网yA:Z aM~
VarType
51Testing软件测试网I R'yQ6|0S

51Testing软件测试网D/oer\kyS

5， 正值表达式：

2Rv'X FE-P H0

正则表达式(RegExp)对象

"V&X#Q&obn8j @ BU0提供简单的正则表达式支持功能。51Testing软件测试网 O:u$PHh

说明

51Testing软件测试网K6HQY+QBRUQ#K

下面的代码说明了RegExp对象的用法：51Testing软件测试网 @|]|*bd'S*Y'w

Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      '建立变量。Set regEx = NewRegExp         '建立正则表达式。regEx.Pattern = patrn         '设置模式。regEx.IgnoreCase = True         '设置是否区分字符大小写。regEx.Global = True         '设置全局可用性。Set Matches = regEx.Execute(strng)   '执行搜索。For Each Match in Matches      '遍历匹配集合。RetStr = RetStr & "Match found at position "RetStr = RetStr & Match.FirstIndex & ". Match Value is '"RetStr = RetStr & Match.Value & "'." & vbCRLFNextRegExpTest = RetStrEnd FunctionMsgBox(RegExpTest("is.", "IS1 is2 IS3 is4")

相关阅读:

收藏 举报

TAG: QTP

 

评分：0

我来说两句

Open Toolbar