Skip to main content

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

By

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
Labels:

Comments

Post a Comment

Popular posts from this blog

Convert JSON to XML using QTP/UFT/VBScript

By
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 :  ...
Post a Comment
Read more

Customised HTML Result Report for UFT/QTP with ScreenShots in HP ALM TestSet attached.

By
On   Error   Resume   Next '======================================================================================================================================== 'Module Name            :    GenerateCustomReport.qfl ' Author                    :    Jay 'Date Created            :     13/11/2014 'Description                :     The library contains various functions that are used to generate a Custom HTML report '======================================================================================================================================== 'Project/Test Specific Variables ...
1 comment
Read more

How To open Password Protected Excel sheets using Vb Script

By
Function UnprotectXL(filePath,fileName,pwd,writeresPwd)    Set objExcel=CreateObject(“Excel.Application”)    objExcel.Visible=false    testData=filePath&”\”&fileName    Set oWorkbook=objExcel.Workbooks    Set myWkbook=objExcel.Workbooks.open (testData,0,False,5,pwd,writeresPwd)    objExcel.DisplayAlerts=False    oWorkbook(fileName).Activate    For Each w in objExcel.Workbooks         w.SaveAs testData,,”",”"          Next    objExcel.Workbooks.Close    objExcel.Quit    Set oWorkbook=Nothing    Set objExcel=Nothing   End Function Function ProtectXL(filePath,fileName,pwd,writeresPwd)      On Error Resume Next      Set objExcel=CreateObject(“Excel.Application”)      objExcel.Visible=False      testData=filePath...
Post a Comment
Read more

Compare Two Excel sheets cell by cell Using Vb Script

By
'This code will open two excel sheet and compare each sheet cell by cell, if any changes there in cells , it will highlight the cells in red color  in the first sheet. Set objExcel = CreateObject(“Excel.Application”) objExcel.Visible = True Set objWorkbook1= objExcel.Workbooks.Open(“C:\Jaykrishna\Docs1.xls”) Set objWorkbook2= objExcel.Workbooks.Open(“C:\Jaykrishna\Docs2.xls”) Set objWorksheet1= objWorkbook1.Worksheets(1) Set objWorksheet2= objWorkbook2.Worksheets(1)    For Each cell In objWorksheet1.UsedRange        If cell.Value <> objWorksheet2.Range(cell.Address).Value Then            cell.Interior.ColorIndex = 3′Highlights in red color if any changes in cells        Else            cell.Interior.ColorIndex = 0        End If    Next set objExcel=nothing
Post a Comment
Read more

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

By
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
Post a Comment
Read more