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 | 10 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 |
What is object repository in qtp?
What is the extension of script and object repository files?
How to give a call to another action from one action?
what is the difference between invoke application and system.util.run
What is Tree view?
In the Hybrid framework, data can access the database, excel file, XML etc. Is it true?
Can we put more than one action in a single script???? yes or no.....
What are parameterizing tests?
how can i parameterize a login page by using database parameterization i fetch the username and password from database and put this on login page and click on ok button. so how can we write script for that code please let me know asap thanks
what is the extension for QTP files?
16 Answers American Solutions,
how to retreive the xml file data through qtp.can anybody send script for this..
When Recovery scenario actually starts while testing the application?