QTP输出结果到文本中并对齐

最新推荐文章于 2024-08-02 07:53:33 发布

tengzejun508

最新推荐文章于 2024-08-02 07:53:33 发布

阅读量156

点赞数

分类专栏： QTP 文章标签： QTP对文本对齐

本文链接：https://blog.csdn.net/tengzejun508/article/details/84464173

版权

QTP 专栏收录该内容

26 篇文章 0 订阅

订阅专栏

Dim fileSystemObj,fileSpec,logFile
Set fileSystemObj=createobject("Scripting.filesystemobject")
fileSpec="d:\"&"计算器测试报告"&".txt"
set logFile=fileSystemObj.OpenTextFile(fileSpec,8,true)

logFile.WriteLine("查询结果共:10条")
logFile.WriteLine("注册号"+"              "+"企业名称"+"                                "+"企业负责人"+"          "+"企业注册日期"+"           "+"匹配结果")
rowcount = DataTable.GetSheet("Action1").GetRowCount
For i = 1 To rowcount Step 1
    zch=datatable("注册号",2)
    For j = 1 To 20-len(zch) Step 1
        zch=zch+" "
    Next
    qymc=datatable("企业名称",2)
    For j = 1 To 40-len(qymc)*2 Step 1
        qymc=qymc+" "
    Next
    qyfzr=datatable("企业负责人",2)
    For j = 1 To 20-len(qyfzr)*2 Step 1
        qyfzr=qyfzr+" "
    Next
    qydate=datatable("企业注册日期",2)
    For j = 1 To 20-len(qydate)*2 Step 1
        qydate=qydate+" "
    Next
    result=datatable("匹配结果",2)
    logFile.WriteLine(zch+qymc+qyfzr+qydate+result     )
    DataTable.GetSheet("Action1").SetNextRow
Next