荆盼的博客

'str ="页显示10条;每页显示20条;每页显示50条"'a = split(str,";")'msgbox a(2)''''显示数组长度'msgbox ubound(a)'function excel将excel中指定sheet中的行数写到数组中，并返回数组。Function excel(path,sheet)    Dim Arr()    Se

1'将对象保存为文件,以tsr结尾的文件资源->资源存储库->file->Export Local Object...2、对象资源库管理资源->对象存储库管理器->File->Open对象存储库主要完成，对象库的比较和合并。3、将对象存储库关联到指定的ACTION资源->关联存储库点绿色加号，将导出的tsr文件打开，将ACTION1 移动到ACT

'Window("Flight Reservation").WinEdit("Name:").Set "john"'描述性编程'不用资源库中的对象也可参运行，第一级用法,若多个属性不唯一，可以用逗号隔开，写多个'msgbox Window("regexpwndtitle:=Flight Reservation","regexpwndclass:=Afx:").GetROProperty("re

'ExecuteFile "D:\UserData\My Documents\Unified Functional Testing\sum.vbs"'Call sum(2,3)'LoadFunctionLibrary "D:\UserData\My Documents\Unified Functional Testing\sum.vbs"'sum 2,3'sum 2,3'这种形式用的多'Exe

'三种 property'RO:run-time object,运行时的被测实际对象'TO:test object,对象库中存储的测试对象'1、GetROProperty(): 获取被测对象的运行时属性'2、SetTOProperty():修改运行时被测对象的属性, 'SetTOProperty changes the property values used to identify

UFT 14 参考手册，及理解基本的VBScript 语法， https://admhelp.microfocus.com/uft/en/latest/UFT_Help/Subsystems/FunctionReference/Subsystems/OMRHelp/OMRHelp.htm#OV_Supp_Util/Overview.htm%3FTocPath%3DObject%2520Model%

'Create the FileSystemObject'Set fso = CreateObject("Scripting.FileSystemObject")'Set logfile = FSO.OpenTextFile("D:\UFT\log.txt",1) '1 只读' msgbox logfile.ReadAll'logfile.Close'Set logfile = Not

'######读取data.xlsx中的行列数及第一个单无格中的数据#########Set ExcelApp=CreateObject("Excel.Application")Set ExcelPath=ExcelApp.Workbooks.Open("D:\UFT\data.xlsx")Set ExcelSheet=ExcelPath.Worksheets("Sheet1").UsedRa

Set objDic = CreateObject("Scripting.Dictionary")objDic.Add "1","aa"objDic.Add "2","bb"objDic.Add "3","cc"objDic.Add "4","dd"'objDic.Remove("3")'个数'msgbox objDic.Count'字典中所有key组成一个数组，下标从0开始'key

一、基础篇 安装 录制浏览器脚本，打开百度，进行搜索 录制后的脚本Browser("uft_百度搜索").Page("uft_百度搜索").WebEdit("wd").Set "UFT"Browser("uft_百度搜索").Page("uft_百度搜索").WebButton("百度一下").ClickBrowser("uft_百度搜索").Page("UFT_百度搜索_2").Sy