Get All Function Names & Count From Library File(UFT\QTP\VBS)

sLibFile = "D:\Temp\\FunctionLibrary.txt"
sResFile = "D:\Temp\Res.txt"

Call GetAllFuncNames(sLibFile,sResFile)

Function GetAllFuncNames(sLibFile,sResFile)
On Error Resume Next Const ForReading = 1 Set oFso = CreateObject("Scripting.FileSystemObject") 'Open Txt File Set oTempFile = oFso.GetFile(sLibFile) Set oFile = oTempFile.OpenAsTextStream(1, true) sAllData = oFile.ReadAll oFile.Close Set oFile = Nothing Set oTempFile = Nothing If Instr(sAllData,"a")<= 0 Then Set oFile = oFso.OpenTextFile(sLibFile,1) sAllData = oFile.ReadAll oFile.Close Set oTempFile = Nothing Set oFile = Nothing End If aAllData = Split(sAllData,VBNewLine) 'Find Func Names For iCurRow = 0 To Ubound(aAllData) -1 sRowData = aAllData(iCurRow) sRowData = Cstr(Trim(sRowData)) If sRowData <> "" And Len(sRowData) >= 5 Then If (Instr(sRowData,"Function ") > 0 Or Instr(sRowData,"Sub ") > 0) Then If Err.Number = 0 Then bFound = True aTemp = Array("[","?","*","""","\","<>","#","~","%","{","}","+",".","@","/","!",";","]","'","End Function","End Sub") For i = 0 To Ubound(aTemp) If Instr(sRowData,aTemp(i)) > 0 Then bFound = False : Exit For Next If bFound Then sCurFuncName = Trim(sRowData) If sAllF = "" Then sAllF = sCurFuncName Else sAllF = sAllF & VBNewLine & sCurFuncName End If End If End If End If End If Err.Clear Next 'Create Txt File with All Func Names Set oFile = oFso.CreateTextFile(sResFile, True) oFile.Write "===================" & VbNewLine oFile.Write "Total Count : " & Ubound(Split(sAllF,VbNewLine)) oFile.Write VbNewLine & "===================" & VbNewLine oFile.Write sAllF & VbNewLine oFile.Write "================================== E N D====================================" oFile.Close Set oFile = Nothing Set oFso = Nothing
End Function

Comments

Convert JSON to XML using QTP/UFT/VBScript

Sample Code : Dim strPage,strJSON,objIE strPage = "C:\Jay\JLoader.html" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate2 strPage While objIE.Busy : Wend strJSON = "{""FirstName"":""Jay"", ""LastName"":""Krishna""}" Set objWin = objIE.document.parentWindow objWin.execScript "var jsonStr2XML = function(strJSON) { return json2xml(JSON.parse(strJSON));};" Msgbox oWin.jsonStr2XML(strJSON) objIE.Quit In Detail: Converting The most popular data interchange format JSON(JavaScript Object Notation) to XML using QTP/UFT. Parsing JSON in UFT could be a challenge so we will use JavaScript in UFT to make it perfect. SO We need : Java Script API - To Convert JSON to XML JavaScript Files : http://goessner.net/download/prj/jsonxml/j

Read Outlook mail attachment and Body using Vb Script or QTP

Set olApp = CreateObject("Outlook.Application") Set olns = olApp.GetNameSpace("MAPI") Set ObjFolder = olns.GetDefaultFolder(6) j = 0 For each item1 in ObjFolder.Items iattachCnt = item1.Attachments.Count Print "Attachments Count: " & iattachCnt For i = 1 to iattachCnt Print "FileName : " & item1.Attachments(i).FileName Print "Display Name: " & item1.Attachments(i).DisplayName Print "Size: " & item1.Attachments(i).Size Next Print " Body : " & item1.body Print "--------------------------------------Mail Num - " & j & " -----------------------------------------------" j = j+1 Next

Excel Sorting By Rows and Columns

Excel Sorting By Row: Const xlAscending = 1 Const xlNo = 2 Const xlSortRows = 2 Set objExcel = CreateObject(“Excel.Application”) objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open(“C:\Jay\Docs1.xls”) Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Cells(1,1).activate Set objRange = objExcel.ActiveCell.EntireRow objRange.Sort objRange, xlAscending, , , , , , xlNo, , , xlSortRows set objExcel=nothing Excel Sorting By Column : Const xlAscending = 1′represents the sorting type 1 for Ascending 2 for Desc Const xlYes = 1 Set objExcel = CreateObject(“Excel.Application”)’Create the excel object objExcel.Visible = True’Make excel visible Set objWorkbook = _ objExcel.Workbooks.Open(“C:\Jay\Docs1.xls”)’Open the document Set objWorksheet = objWorkbook.Worksheets(1)’select the sheet based on the index .. 1,2 ,3 … Set objRange = objWorksheet.UsedRange’which select the range of the cells has some data other than blank Set objRange2 = objExcel.Range

How to Read or Select Context Menu or Right Click Menu using QTP.

Select The Item in Right Click Menu or Context Menu: Window("sampleWindow").WinMenu("MenuObjType:=1).Select"File;New" Here MenuObjtype can be 1 r 2 r 3 .......n Check wether the Item is Exist or Not: If Window("sampleWindow").WinMenu("MenuObjType:=1).GetItemProperty("1","Exist") Then Msgbox"Exist" Else Msgbox"Does Not Exist" End If Or If Window("sampleWindow").WinMenu("MenuObjType:=1).GetItemProperty("File","Exist") Then Msgbox"Exist" Else Msgbox"Does Not Exist" End If Get the Items in Context Menu: For i = 1 to 10 Print Window("sampleWindow").WinMenu("MenuObjType:=" & i).GetItemProperty("1","Label") Then Next

How to Download a file using VbScript

Following is the code to download a file using Vbscript, without using QTP This code uses the HTMLDom and URLDownloadToFile method from urlmon API. Since VBScript does support calling Native API methods directly, here I am using Excel macro to declare a function for the urlmon API and running the macro by Excel API from VBscript Step1: Create a new excel and open the visual basic editor, Insert Module and paste the following code the Module, save the excel file Private Declare Function URLDownloadToFile Lib “urlmon” Alias _ “URLDownloadToFileA” ( _ ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Sub FileSave(strUrl, Des) r = URLDownloadToFile(0, strUrl, Des, 0, a)

Quick Learn Automation

Search This Blog