vbs基本编程

'常量变量的定义
Option Explicit  '强制变量声明，有了此语句必须申明变量再使用
Dim opera,operb,result '一般，也可以不声明直接使用变量
Const vbPI=3.14 '常量 前面加vb或者con一般表示是常数
opera=InputBox("please input a's value")
operb=InputBox("please input b's value")
result=opera+operb
MsgBox opera&"+"&operb&"="&result
MsgBox vbPI

'大小写转换
Dim x
x=LCase("aBc")'abc ,转小写
MsgBox x
x=UCase("aBc")'ABC ,转大写
MsgBox x

'比较字符串StrComp
Dim name,user
name="lisi"
user=InputBox("please input your name")
If StrComp(name,user) Then
MsgBox "输入的名字不同"
Else  '两个字符串相同，StrComp返回0，否则返回非0
MsgBox "名字相同"
End If

'字符串长度
Dim a
a="abcdef" '6
MsgBox Len(a)

'替换字符串
Dim astr
astr=Replace("hello,lisi","lisi","zhang")
MsgBox astr 'hello,zhang

'切割
Dim teststr
teststr="2.1.3"
teststrs=Split(teststr,".")
MsgBox teststrs(0) '2
MsgBox teststrs(1) '1
MsgBox teststrs(2) '3

'转换函数
MsgBox CBool(0) '0转成false,非0转成true
MsgBox CBool(34) 'true
MsgBox CInt(4.5) '转成整数，4.5是4，4.6是5
MsgBox CDate("12/12/2012") '2012-12-12
MsgBox Asc("a") '97
MsgBox Chr(65) 'A

'日期时间函数
MsgBox Date
MsgBox Time
MsgBox Now
MsgBox Day(Date)
MsgBox Month(Date)
MsgBox Year(Date)
MsgBox Hour(Time)
MsgBox Minute(Time)
MsgBox Second(Time)
MsgBox Weekday(Date)

'从1加到100，结果为5050
Option Explicit
Dim i,sum
i=0
sum=0
Do While i<101
sum=sum+i
i=i+1
If i>10 Then
Exit Do
End If
Loop
MsgBox sum '5050 55
sum=0
i=0
For i=1 To 100 Step 2
sum=sum+i '1+3+5+9+...
Next
MsgBox sum '2500

'选择分支语句
'根据学生成绩判断所属等级，90以上优秀，60-89合格，60以下不合格
Dim score
score=InputBox("please input your grade")
If CInt(score)>=90 Then
MsgBox "优秀"
ElseIf CInt(score)>=60 And CInt(score)<90 Then
MsgBox "合格"
Else
MsgBox "不合格"
End If

'饮料自动售货机，根据输入的饮料编号，显示对应的饮料名称
Dim drinkid
MsgBox "1.雪碧"&vbCrLf&"2.可乐"&vbCrLf&"3.脉动"&vbCrLf&"请输入饮料编号"
drinkid=InputBox("输入饮料编号")
Select Case drinkid
Case 1 MsgBox "雪碧"
Case 2 MsgBox "可乐"
Case 3 MsgBox "脉动"
Case Else MsgBox "输入错误"
End Select

Dim username(2)
Dim arraybound,arraycount
username(0)="zhangsan"
username(1)="lisi"
username(2)="wangwu"
arraybound=UBound(username)'下标2
arraycount=arraybound+1 '长度3
For i=0 To arraybound
MsgBox username(i)
Next

'函数封装，带返回function，不带返回sub
'根据输入的两个数据，选择对应的四则运算
'1 输入+，则进行加法运算
'2 输入-，则进行减法运算
Dim opera,operb,result
MsgBox "+.加法功能"&vbCrLf&"-.减法功能"
oper=InputBox("请选择功能")
opera=InputBox("a")
operb=InputBox("b")
Select Case oper
case "+" MsgBox addtest(opera,operb) ''注意：Function调用时带括号
case "-" jianfa opera,operb '注意：Sub调用时不能使用括号
case else
MsgBox "wrong input"
End Select

'带返回的加法运算
Function addtest(opera,operb)
addtest=CInt(opera)+CInt(operb)
End Function
'不带返回的减法运算
Sub jianfa(opera,operb)
result=CInt(opera)-CInt(operb)
MsgBox result
End Sub

'用fso创建文件夹
Sub createfolder(folderpath,foldername)
Dim fso,f
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(folderpath&foldername) Then
MsgBox "目录已存在"
Else
MsgBox "目录不存在，现在开始创建..."
Set f=fso.CreateFolder(folderpath&foldername) '"e:\test"
End If
Set fso=Nothing
End Sub
'测试创建文件夹
createfolder "e:\","test"

'fso创建文件，写文件
Sub writelog(filepath,logstr)
Const ForReading=1,ForWriting=2,ForAppdening=8
Dim fso,f
Dim teststr
Set fso=CreateObject("scripting.filesystemobject")
If fso.FileExists(filepath) Then '"e:\test\test.txt"
MsgBox "Exist"
Else
MsgBox "Not Exist"
Set f=fso.CreateTextFile(filepath)
End If
'追加模式，如果文件不存在就报错（true表示：不存在就创建文件）
Set f=fso.OpenTextFile(filepath,ForAppdening,false)
f.WriteLine logstr '"hello"
f.Close
'读记事本文件
Set f=fso.OpenTextFile(filepath,ForReading,False)
teststr=f.ReadLine
MsgBox teststr
f.Close
Set fso=Nothing
End Sub
'调用函数测试
writelog "e:\test\test.txt",now()&"-----执行自动化测试"
'2018-01-21 14:21:03-----执行自动化测试

'创建exl
Sub genexcel(excelpath)
'定义excel对象
Dim exlapp
Dim exlworkbook
Dim exlworksheet
Set exlapp=CreateObject("Excel.application")
Set exlworkbook=exlapp.Workbooks.Add '工作簿
Set exlworksheet=exlworkbook.Worksheets.Add '工作表
'exlworksheet.cells(1,1)="Hello,test"
'保存excel文件，如果原来存在，则使用save方法，如果是新建，用saveas
exlworkbook.SaveAs excelpath'"e:\test\t.xls"
exlworkbook.Close   '关闭工作簿对象
exlapp.Quit '退出excel对象
Set exlworksheet=Nothing '释放销毁相关资源
Set exlworkbook=Nothing
Set exlapp=Nothing
End Sub

'调用函数生成exl
'genexcel "e:\test\est.xls"

'uft中调用vbs文件
executefile "C:\Users\Administrator\Desktop\genexcel.vbs"
genexcel "C:\Users\Administrator\Desktop\t.xls"

'创建exl
Sub genexcel(excelpath)
'定义excel对象
Dim exlapp
Dim exlworkbook
Dim exlworksheet
Dim fso
Dim exlexist 'excel对象状态标志，看是否存在

Set exlapp=CreateObject("Excel.application")
Set fso=CreateObject("scripting.filesystemobject")
exlexist=fso.FileExists("C:\Users\Administrator\Desktop\t.xls")
If exlexist Then
Set exlworkbook=exlapp.Workbooks.Open("C:\Users\Administrator\Desktop\t.xls")'存在就打开
Else
Set exlworkbook=exlapp.Workbooks.Add '不存在就添加工作簿
End If

Set exlworksheet=exlworkbook.Worksheets.Add '工作表
exlworksheet.cells(1,1)="hello,test"

'保存excel文件，如果原来存在，则使用save方法，如果是新建，用saveas
If exlexist Then
MsgBox "文件存在"
exlworkbook.Save
Else
MsgBox "文件不存在"
exlworkbook.SaveAs excelpath
End If

exlworkbook.Close   '关闭工作簿对象
exlapp.Quit '退出excel对象
Set exlworksheet=Nothing '释放销毁相关资源
Set exlworkbook=Nothing
Set exlapp=Nothing
End Sub

'调用函数生成exl
genexcel "C:\Users\Administrator\Desktop\t.xls"

systemutil.Run "D:\UFT12\samples\flight\app\flight4a.exe"
repositoriescollection.RemoveAll
repositoriescollection.Add "F:\qtp12_test\logintsr.tsr" '加载资源对象（实现资源对象共享）
Dialog("Login").WinEdit("Agent Name:").Set "mercury"
Dialog("Login").WinEdit("Password:").SetSecure "5a644c5216a3a90419ffb5e344001f617beb16af"
Dialog("Login").WinButton("OK").Click

'定义qtapp对象
Dim qtapp
'定义qtapp对象
Set qtapp=CreateObject("quicktest.application")
'启动uft
qtapp.Launch
'设置uft显示类型,若是false，表示uft后台运行，不显示
qtapp.Visible=True
'打开脚本
qtapp.Open "F:\qtp12_test\GUITest10"
'运行脚本
qtapp.Test.Run
'关闭脚本
qtapp.Test.Close
'退出qtapp对象
qtapp.Quit
'释放资源
Set qtapp=Nothing