51Testing软件测试论坛

标题: OTA第一篇用例根据自定义格式批量导出.... [打印本页]

作者: 小孩 时间: 2010-1-18 12:02
标题: OTA第一篇用例根据自定义格式批量导出....
OTA第一篇用例根据自定义格式批量导出....
 大家可以参考一下代码修改为自己定义的格式,导出的文件格式为WORD
实现了功能，代码质量没有考虑哈哈，请大家别介意

Dim QCConnection As TDConnection
Dim Test As Test
Dim TestFactory As TestFactory
Dim TestList
Dim StepFactory As DesignStepFactory
Dim Step As DesignStep
Dim StepList
Dim str As String

Dim documentName As String
Dim wordApp As Word.Application
documentName = "软件测试说明.doc"
Dim conn As adodb.Connection
Dim strConnect As String
Dim rs As New adodb.Recordset
Dim strSql As String
Set wordApp = CreateObject("Word.Application")
 '使文档可见 0不可见
wordApp.Application.Visible = 0
Dim myDoc As Word.Document
Set myDoc = wordApp.Documents.Add() '页面
With wordApp
Set QCConnection = New TDAPIOLELib.TDConnection
 QCConnection.InitConnectionEx "http://XXXXXXX/qcbin"
 QCConnection.ConnectProjectEx "DEFAULT", "XXXXXXX", "XXXXXXX", "XXXXXXX"
 Set TestFactory = QCConnection.TestFactory

For Each Test In TestList
 .Selection.Font.name = "黑体"
 .Selection.Font.Size = 16
 .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 .Selection.TypeText Text:="测试用例设计单"
 .Selection.EndKey Unit:=wdStory


 .Selection.Font.name = "宋体"
 .Selection.Font.Size = 12
 .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 .Selection.EndKey Unit:=wdStory


 Set StepFactory = Test.DesignStepFactory
 Set StepList = StepFactory.NewList("")

 Set mytable = .ActiveDocument.Tables.Add(.Selection.Range, StepList.Count + 13, 5)
 With .Selection.Tables(1)
 If .Style <> "网格型" Then
 .Style = "网格型"
 End If
 .ApplyStyleHeadingRows = True
 .ApplyStyleLastRow = True
 .ApplyStyleFirstColumn = True
 .ApplyStyleLastColumn = True
 End With

 '配置表格
 mytable.Columns(1).Width = 20
 mytable.Columns(3).Width = 140
 mytable.Cell(1, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(2, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(3, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(4, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(5, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(6, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(7, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(8, 1).Select
 .Selection.MoveRight wdCharacter, 4, wdExtend
 .Selection.Cells.Merge



 mytable.Cell(1, 2).Select
 .Selection.MoveRight wdCharacter, 2, wdExtend
 .Selection.Cells.Merge


 mytable.Cell(3, 2).Select
 .Selection.MoveRight wdCharacter, 2, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(4, 2).Select
 .Selection.MoveRight wdCharacter, 2, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(5, 2).Select
 .Selection.MoveRight wdCharacter, 2, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(6, 2).Select
 .Selection.MoveRight wdCharacter, 2, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(7, 2).Select
 .Selection.MoveRight wdCharacter, 2, wdExtend
 .Selection.Cells.Merge


 mytable.Cell(StepList.Count + 10, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge


 mytable.Cell(StepList.Count + 11, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(StepList.Count + 12, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(StepList.Count + 13, 1).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge


 mytable.Cell(StepList.Count + 10, 4).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge


 mytable.Cell(StepList.Count + 11, 2).Select
 .Selection.MoveRight wdCharacter, 3, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(StepList.Count + 12, 4).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 mytable.Cell(StepList.Count + 13, 4).Select
 .Selection.MoveRight wdCharacter, 1, wdExtend
 .Selection.Cells.Merge

 .Selection.EndKey Unit:=wdStory
 .Selection.InsertBreak Type:=wdPageBreak

 '输入字段名称
 mytable.Cell(1, 1).Range.InsertAfter "测试用例名称"
 mytable.Cell(2, 1).Range.InsertAfter "测试用例标识"
 mytable.Cell(2, 3).Range.InsertAfter "测试追踪"
 mytable.Cell(3, 1).Range.InsertAfter "测试用例描述"
 mytable.Cell(4, 1).Range.InsertAfter "测试方法"
 mytable.Cell(5, 1).Range.InsertAfter "测试类型"
 mytable.Cell(6, 1).Range.InsertAfter "前提和约束（包括初始化要求）"
 mytable.Cell(7, 1).Range.InsertAfter "测试终止条件"
 mytable.Cell(8, 1).Range.InsertAfter "测试过程"
 mytable.Cell(9, 1).Range.InsertAfter "序号"
 mytable.Cell(9, 2).Range.InsertAfter "输入及操作步骤"
 mytable.Cell(9, 3).Range.InsertAfter "期望测试结果"
 mytable.Cell(9, 4).Range.InsertAfter "评估准则"
 mytable.Cell(9, 5).Range.InsertAfter "实际测试结果"
 mytable.Cell(StepList.Count + 10, 1).Range.InsertAfter "设计人员"
 mytable.Cell(StepList.Count + 10, 3).Range.InsertAfter "设计日期"
 mytable.Cell(StepList.Count + 11, 1).Range.InsertAfter "问题标识"
 mytable.Cell(StepList.Count + 12, 1).Range.InsertAfter "执行结果"
 mytable.Cell(StepList.Count + 12, 3).Range.InsertAfter "测试人员"
 mytable.Cell(StepList.Count + 13, 1).Range.InsertAfter "测试监督员"
 mytable.Cell(StepList.Count + 13, 3).Range.InsertAfter "测试执行时间"

 str = CaseString(Test("ts_description"))
 str = Replace(str, "<html><body>", "")
 str = Replace(str, "<", "<")
 str = Replace(str, ">", ">")
 str = Replace(str, "</body></html>", "")
 str = Replace(str, " ", "")
 str = Replace(str, "", "")
 str = Replace(str, "", "")
 str = Replace(str, "", "")
 str = Replace(str, "", "")
 str = Replace(str, "", "")
 str = Replace(str, "", "")
 str = Replace(str, vbCrLf, "")
 Dim MyArray
 MyArray = Split(str, "〓", -1, 1)

 mytable.Cell(1, 2).Range.InsertAfter Test.name
 mytable.Cell(2, 2).Range.InsertAfter "" '用例标示
 mytable.Cell(2, 4).Range.InsertAfter "" '用例追踪
 mytable.Cell(3, 2).Range.InsertAfter MyArray(0)
 mytable.Cell(4, 2).Range.InsertAfter ""
 mytable.Cell(5, 2).Range.InsertAfter Test.Type
 mytable.Cell(6, 2).Range.InsertAfter MyArray(1)
 mytable.Cell(7, 2).Range.InsertAfter MyArray(2)
 mytable.Cell(StepList.Count + 10, 2).Range.InsertAfter Test("ts_responsible")
 mytable.Cell(StepList.Count + 10, 4).Range.InsertAfter Test("ts_creation_date")
 mytable.Cell(StepList.Count + 11, 2).Range.InsertAfter ""
 mytable.Cell(StepList.Count + 12, 2).Range.InsertAfter ""
 mytable.Cell(StepList.Count + 12, 4).Range.InsertAfter ""
 mytable.Cell(StepList.Count + 13, 2).Range.InsertAfter ""
 mytable.Cell(StepList.Count + 13, 4).Range.InsertAfter ""

 Dim I As Integer
 I = 1
 Dim StepName As String
 Dim StepDescription As String
 Dim StepExpectedResult As String
 For Each Step In StepList

 StepName = Step.StepName
 StepDescription = Step.StepDescription
 StepExpectedResult = Step.StepExpectedResult
 StepName = Replace(StepName, "步骤", "")
 StepName = Replace(StepName, "Step", "")
 StepName = Replace(StepName, "<html><body>", "")
 StepName = Replace(StepName, "<", "<")
 StepName = Replace(StepName, ">", ">")
 StepName = Replace(StepName, "</body></html>", "")
 StepName = Replace(StepName, " ", vbCrLf + "")

 StepDescription = Replace(StepDescription, "<html><body>", " ")
 StepDescription = Replace(StepDescription, "<", "<")
 StepDescription = Replace(StepDescription, ">", ">")
 StepDescription = Replace(StepDescription, "</body></html>", "")
 StepDescription = Replace(StepDescription, " ", vbCrLf + "")

 StepExpectedResult = Replace(StepExpectedResult, "<html><body>", "")
 StepExpectedResult = Replace(StepExpectedResult, "<", "<")
 StepExpectedResult = Replace(StepExpectedResult, ">", ">")
 StepExpectedResult = Replace(StepExpectedResult, "</body></html>", "")
 StepExpectedResult = Replace(StepExpectedResult, " ", vbCrLf + "")
 mytable.Cell(9 + I, 1).Range.InsertAfter StepName
 mytable.Cell(9 + I, 2).Range.InsertAfter StepDescription
 mytable.Cell(9 + I, 3).Range.InsertAfter StepExpectedResult

 I = I + 1
 Next

Next

End With

作者: 小软susan 时间: 2014-10-28 09:31
OTA是这样测的吗？疑惑啊~！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)