Skip to main content

Sorting of Elements in an Array

'#####################################################
'Program to illustrate sorting of elements of an array
'This program takes the array boundary from the user
'Validate if it is a valid number <=10 
'Get the list of elements from the user 
' Validate if it is a number 
' Finally Sorts and displays the contents of the array
'##################################################### 

'Variable Declarations
Dim nArray(),nArrayBound
Dim nCounter, nCtr1,nCtr2
Dim nTempVar,sTempStr
Dim bFlag

'Get the number of elements as input from the user nArrayBound=inputbox("Enter a number between 5 and 10"

'Validate the input (if it is a valid number)
bFlag=False 

Do While bFlag=False 

   If isNumeric(nArrayBound) Then 'Valid number  

      If nArrayBound<=10 Then 'Lesser than 10   

         If nArrayBound>=5 Then  'Greater than 5

            bFlag=True

         Else

            bFlag=False
            nArrayBound=inputbox("Enter a number greater than 5")

         End If

       Else

         bFlag=False
         nArrayBound=inputbox("Enter a number Less than or equal to 10")

       End If

   Else

       bFlag=False
       nArrayBound=inputbox("Enter a valid number")

   End If

Loop

'Redim the array decalred with the number of elements
ReDim nArray(nArrayBound-1) ' -1 because the array index starts with 0
nArrayBound=cint(ubound(nArray)) 'moving the upper boundary of the array to a variable

For nCounter=0 to nArrayBound

   'Get the elements of the array from the user
   nArray(nCounter)=inputbox("Enter the Array Element #"&nCounter)
   'Validate the input (if it is a valid number)
   bFlag=False

   Do While bFlag=False

      If isNumeric(nArray(nCounter)) Then ' Checking if the input is a number

         bFlag=True

      Else

         bFlag=False
         nArray(nCounter)=inputbox("Enter a valid number")

      End If

   Loop

Next

For nCtr1=0 to cint(ubound(nArray)) 'To track the current elemtent

   For nCtr2 = nCtr1+1 to cint(ubound(nArray))  ' The other elements in the Array

      If cint(nArray(nCtr2))< cint(nArray(nCtr1)) Then ' Check which one is smaller

            'Swap the elements
            nTempVar = nArray(nCtr1)
            nArray(nCtr1)=nArray(nCtr2)
            nArray(nCtr2)=nTempVar

      End If

   Next

Next

sTempStr="Sorted list : "

For nCounter=0 to ubound(nArray)

   'Putting the sorted elements in a string
   sTempStr=sTempStr&nArray(nCounter)&", "

Next

Msgbox(sTempStr)

'#######################
'#### Sample Result  #####
'#######################
' Sorted list: -8, -2,0,1,4,4,7,

'##### End of Script######
Labels:

Comments

Post a Comment

Popular posts from this blog

JMeter Exceeded Maximum Number of Redirects Error Solution

While running performance test, JMeter allows maximum 5 redirects by default. However, if your system demands more than 5 redirects, it may result in JMeter exceeded maximum number of redirects error. In this post, we have listed down steps to overcome this error. Actual error in JMeter: Response code: “Non HTTP response code: java.io.IOException” Response message: “Non HTTP response message: Exceeded maximum number of redirects: 5” This error is noticed because  JMeter  allows maximum 5 redirects by default and your system may be using more than 5 redirects. You need to increase this count to more than 5 in jmeter.properties file. Follow below steps to achieve this. Navigate to /bin directory of your JMeter installation. Locate jmeter.properties file and open it in any editor. Search for “httpsampler.max_redirects” property in opened file. Uncomment the above property by removing # before it. Change to value to more than 5 Eg. 20. Save the file and restart JMet...
Post a Comment
Read more

SSO with SAML login scenario in JMeter

SAML(Security Assertion Markup Language) is increasingly being used to perform single sign-on(SSO) operations. As WikiPedia puts it, SAML is an XML-based open standard data format for exchanging authentication and authorization data between parties, in particular, between an identity provider and a service provider. With the rise in use of SAML in web applications, we may need to handle this in JMeter. This step-by-step tutorial shows SAML JMeter scenario to perform login operation. First request from JMeter is a GET request to fetch Login page. We need to fetch two values ‘SAMLRequest’ and ‘RelayState’ from the Login page response data. We can do this by using  Regular Expression Extractor . These two values need to be sent in POST request to service provider. Refer below image to see how to do this. We will get an HTML login page as a response to the request sent in 1st step. We need to fetch values of some hidden elements to pass it in the next request. We...
Post a Comment
Read more

VBScript Code - Function to convert CSV file into excel and viceversa in QTP using VBScript

We at times are required to convert excel files into csv to read as flat files and sometime require to convert a csv file into excel file to use excel features on the data.   Below function shows how to convert an csv file into excel file and vice versa. We can also convert to other formats based on constants Here constant value 23 is used to create a csv file and constant -4143 to save a file as xls file. Once the destination file is created, we can delete the source file as shown below.  In case of any issue in understanding the code, please add in comment section Call func_ConversionCSVExcel("E:\Test.csv", "E:\Test_converted.xls", "csvtoexcel") Public Function func_ConversionCSVExcel(strSrcFile, strDestFile, Conversion) on error resume next Set objExcel = CreateObject("Excel.application") set objExcelBook = objExcel.Workbooks.Open(strSrcFile) objExcel.application.visible=false objExcel.application.displayalerts=...
Post a Comment
Read more