vbscript - HP UFT/QTP 14.00,导入 CSV 并维护数据表中的值
问题描述
我正在从 csv 文件中导入一些数据,这是数据:
*file.csv
UserName, EmailId, PhoneNumber
Antonio, anto@gmail.com, 1234567890
Oscar, osc@yahoo.com, 9999999999
Luis,lu@hotmail.com,8888888
我有一个函数来调用这个文件:
'************************************************************
Function ImportCsvFiletoDatatable(CsvFilePath,SheetName,HeaderDelimiter)
Dim filePath
Dim fso
Dim f
Dim fData
Dim arrData
Dim CsvValue
Dim CsvSheet
Dim CsvFirstLine
Dim CsvColumns
Dim ColumnIndex
Dim rIndex
Dim cIndex
filePath=CsvFilePath 'Specify file Path
'Open CSV File using File System Object
Set fso=createobject("scripting.filesystemobject")
Set f = fso.OpenTextFile(filePath)
CsvFirstLine=f.readline 'Treating like first line is the column names
CsvColumns=split(CsvFirstLine,HeaderDelimiter) 'Split the line using HeaderDelimiter
Set CsvSheet=DataTable.GetSheet(SheetName) 'Get the Specified sheet
'Add the splitted values as Datatable Columns
For ColumnIndex=lbound(CsvColumns) to ubound(CsvColumns)
CsvSheet.addparameter CsvColumns(ColumnIndex),""
Next
While not f.AtEndOfStream
rIndex=f.Line-1 'Specify Row index
fData=f.ReadLine ' Read CSV File Line
arrData=split(fData,",") 'Split the line
cIndex=1 'Specify Column Index
CsvSheet.SetCurrentRow(rIndex) 'Set Row in the Datatable
' Add values in Datatable
For Each CsvValue In arrData
CsvSheet.getparameter(cIndex).value=CsvValue
cIndex=cIndex+1
Next
Wend
f.Close
Set fso=Nothing
End Function
'************************************************************
效果很好,但信息不稳定,我无法管理或使用数据。有人知道如何将数据保留在数据表中,尽管离开了 UFT?
解决方案
Dim objQtApp, strXlsPath
strXlsPath = Environment("TestDir") & "\Default.xls"
Set objQtApp = CreateObject("QuickTest.Application")
DataTable.Export strXlsPath
objQtApp.Test.DataTable.Import strXlsPath
Set objQtApp = Nothing
设计时数据表位于 Default.xls 中。当您打开测试用例或从 UFT 手动编辑它时会加载此文件。如果您想以编程方式刷新它,请使用上面的代码片段。导出,然后使用自动化对象导入。
当然把它放到一个方法中,然后从你方便的任何地方调用。
如果您希望 UFT 自动处理它,请创建一个新类和它的单例实例。
实现类的 Class_Terminate 方法并将代码放在那里。无论 UFT 因崩溃或正常测试运行结束而退出,它都会尝试清理运行时创建的所有对象。该对象将在其中,作为自动清理过程的一部分,您会将运行时数据表保存到设计时数据表(Default.xls)中,然后重新加载它。
推荐阅读
- javascript - 如何在 Open Weather Map 上进行在线天气预报?
- javascript - 如何知道是什么元素触发了引导模式的 openind
- azureservicebus - 如何使用 python azure sdk 为 ServiceBus 订阅生成 SAS 令牌?
- python - 使用 PyQt5 构建并由 pyinstaller 编译的 GUI 不起作用
- java - 无法在 Android Retrofit 中为我的班级创建转换器
- sql - SQL查询以查找具有相同时间戳+或-一秒的所有行
- jenkins - Jenkins 执行 weblogic.jar 时出错
- sql - 如何从 Postgres 表中列出管理级别
- php - 给定的角色或权限应该使用guard `web, api` 而不是 `admin`
- java - 如何在 Lucene 中突出显示布尔模糊查询 - boost 必须是正浮点数?