shahid24
Contributor
Joined 8 years ago
User Profile
User Widgets
Contributions
How to perform certain actions for a specific amount of time in a loop
I want to perform certain action inside a Do Loop statement, in this case i want to ensure that i get out of the loop after ten minutes have elapsed. What should be the MaxDelay+X value ? Sub Test MaxDelay = 0 Do Call aqUtils.Delay(1,"Reports are being signed..") MaxDelay=MaxDelay+ X Loop Until MaxDelay > 600000 End Sub ThanksSolved100Views0likes4CommentsRe: XML Checkpoint
rraghvani Any way I can update the below to show in the log the differences if found? Function CompareFiles(fileName1, fileName2) Dim fso, file1, file2, regEx Dim fileText1, fileText2, newText1, newText2 Const ForReading = 1 ' Creates the FileSystemObject object Set fso = CreateObject("Scripting.FileSystemObject") ' Reads the first text file Set file1 = fso.OpenTextFile(fileName1, ForReading) fileText1 = file1.ReadAll file1.Close ' Reads the second text file Set file2 = fso.OpenTextFile(fileName2, ForReading) fileText2 = file2.ReadAll file2.Close ' Creates the regular expression object Set regEx = New RegExp ' Specifies the pattern for the date/time mask ' MM/DD/YYYY HH:MM:SSLL (for example: 4/25/2006 10:51:35AM) regEx.Pattern = "\d{1,2}.\d{1,2}.\d{2,4}\s\d{1,2}:\d{2}:\d{2}\w{2}" regEx.IgnoreCase = True regEx.Global = True ' Replaces the text matching the specified date/time format with <ignore> newText1 = regEx.Replace(fileText1, "<ignore>") newText2 = regEx.Replace(fileText2, "<ignore>") ' Compares the text CompareFiles = (newText1 = newText2) End Function Sub Main Dim fileName1, fileName2 fileName1 = "d:\text1.txt" fileName2 = "d:\text2.txt" If CompareFiles(fileName1, fileName2) Then Log.Message("The files are equal") Else Log.Error("The files are different") End If End Sub245Views0likes0CommentsXML Checkpoint
Hi , I would like to do something similar to https://support.smartbear.com/testcomplete/docs/testing-with/checkpoints/files/comparing-with-variable-parts.html but for XML File Comparisons? I would like to use regexp to ignore some of the stuff in the XML comparison? Is this doable ? Thanks, shahidSolvedTestComplete aqPerformance
For the below script, in the Log.Message section, how do i enter string in to it to display a messsage like " The calculations took" +aq.Performance.Value() )? I get a run time error when trying above Sub getTime() ' Start a time counter aqPerformance.Start() ' Do some actions ' Log the elapsed time, in ms Log.Message(aqPerformance.Value) End SubSolved213Views0likes2Comments