write vb script code to delete the duplicate values in an
array.
Answers were Sorted based on User's Feedback
Answer / guest
dim a
aList=Array(5,5,5,5,12,10,15,10,125,5)
Dim sNewList
dim newArray
b= ubound(aList)
For x=0 to b
If InStr(sNewList,(aList(x) & ",")) <= 0 Then
sNewList = sNewList & aList(x) & ","
End If
Next
newArray = split(sNewList,",")
MsgBox sNewList
| Is This Answer Correct ? | 37 Yes | 11 No |
Answer / saket bharti
aList=Array(5,5,5,5,12,10,15,10,125,5,1,1,2,3,4,5,6,7,8,8,8,8,8,8,8)
ReDim newArray(UBound(aList))
count=1
newArray(0)=aList(0)
for i=0 to UBound(aList)
temp=aList(i)
flag=0
for j=0 to UBound(newArray)
if ( newArray(j)=temp) Then
flag=1
End if
Next
if flag=0 then
newArray(count)=temp
count=count+1
End If
Next
ReDim Preserve newArray(count)
for j=0 to UBound(newArray)-1
msgbox newArray(j)
Next
| Is This Answer Correct ? | 9 Yes | 1 No |
Answer / jay prakash
There are many ways this script can be written.
One simple algo which i followed was:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''Script Starts Here'''''''''''''''''''''''''''''''
Option Explicit
Dim i, j, k, aMyArr, aNewArr( ), iNewIndex, iNewLim, bFlag
bFlag = 0
aMyArr = Array("AA","BB","AA", "BB" )
iNewIndex = UBound(aMyArr)
ReDim aNewArr(0)
aNewArr(0) = aMyArr(0)
For i=0 To UBound(aMyArr)
iNewLim = UBound(aNewArr)
For j = 0 To iNewLim
If aMyArr(i) = aNewArr(j) Then
bFlag = 0
Exit For
Else
bFlag = 1
End If
Next
If bflag = 1 Then
k=iNewLim+1
ReDim Preserve aNewArr(k)
aNewArr(k)=aMyArr(i)
End If
Next
' To display the new array...
For i = 0 to UBound(aNewArr)
msgbox aNewArr(i)
Next
Erase aMyArr
Erase aNewArr
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''Script Ends Here'''''''''''''''''''''''''''''''
Please let me know if it satisfies ur query.
| Is This Answer Correct ? | 9 Yes | 4 No |
Answer / bhaskar sarma
Input = Array(6,6,6,7,6,75,78,75,75,6,66,6.6)
count = 0
arr = ","
for Bye =0 to ubound(input)-1 step 1
for Hello=Bye+1 to ubound(input) step 1
if strcomp(Input(Bye),Input(Hello),1)=0 AND instr(1,arr,Input(Hello))<=0 then
count = count + 1
arr = input(Hello) & ","
exit for
end if
next
next
msgbox count
| Is This Answer Correct ? | 0 Yes | 0 No |
Why do you create a text checkpoint on a Web application? What is the purpose of the Close method?
HI. Plz Clarifie my doubt,having 2+yrs experience in Testing , But My accedamics(Xth,INTER) are Less than 60%, But B.Tech 72%. It creats any problem , When i change to any MNC. plz tell me......... lot of friends told it's a problem, Some people says NO problem, What .............
i am giving.multiple names like ram,raj,san etc....pls enter & search these names in google pade edit box through script... i told to interviewer, using Ms excel & test easily..but interviwer not happy with that answer?
When we use Object Spy? can we write QTP script before built is came in testing?
Hi, is it possible for recording shortcut key during record session? The application on which I am working is web based application. This application has several shortcut key associated with menu option. I have succesfully recorded all menu option but unable to record shortcut key.
How to Set the Global Sync Timeouts in QTP?
How to pass parameters into an action.Please explain me with examples
Need one Urgent help please,for ex: first time i created Local reposory and convert that local to shared Rep and save in some where(by using Export local objetcs), unfortunately that saved repository is missed, now i want same repository,but iam not able to export the same repository second time?? i need that Repository only how to get???
plz anybody tell me how to explain the architecture of one particular project.plz give me answer for this.....RAJESH
1. How to capture data from images in QTP and produce them in Excel sheet ? 2. What is Terminal Emulator add-in installation and configuration procedure ? 3. Tell me how do u define action and transaction in QTP ? 4. Is QTP case sensitive ? 5. Problem with XML checkpoint ? 6. When was QTP 8.2 and Loadrunner 8.0 officially released to the market ? 7. Can we record on netscape browser does it require any special settings ? 8. How do I add new object to the object repository to any particular frame ? 9. Do we have rapid test scrpit wizard in QTP ? How to learn all the windows and objects in QTP 10. How to open Exceel sheet using QTP script ? 11. Is it necessary to learn VB script to work with QTP or we can manage with keword driven ? 12. What is descriptive programming in QTP ? 13. How to invoke the QTP from dos prompt and run a test without any interaction with human ? 14. What is the meaning of Context sensitive ? 15. How to retrive the property values from "Resource.mtr" after recording the script with "Standard checkpoints" ? 16. Where should we use accessbility checkpoints. Can u explain me with the example ? 17. How do we add object repository dynamically ? (During runtime) 18. How to record right click of a context menu and click on the selection ? 19. How to connect oracle database to QTP ? 20. How will you load few objects in Active Screen ? 21. Can I compare two DataBases using QTP ? 22. If the the two object have same class then how QTP will find the object ? 23. Can I change the runtime properties of an object ? How can I check if a parameter exists in database ? 24. What is the script for database check point, bitmapchek point, regular expression ? 25. What is QTP environmental variable ?
How you automate test scripts
Could you please explain me about QTP framework.