Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


write vb script code to delete the duplicate values in an
array.

Answers were Sorted based on User's Feedback



write vb script code to delete the duplicate values in an array...

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

write vb script code to delete the duplicate values in an array...

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

write vb script code to delete the duplicate values in an array...

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

write vb script code to delete the duplicate values in an array...

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

Post New Answer

More QTP Interview Questions

Why do you create a text checkpoint on a Web application? What is the purpose of the Close method?

0 Answers  


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 .............

3 Answers  


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?

2 Answers   Accenture,


When we use Object Spy? can we write QTP script before built is came in testing?

3 Answers   Impulse,


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.

1 Answers  


How to Set the Global Sync Timeouts in QTP?

2 Answers  


How to pass parameters into an action.Please explain me with examples

5 Answers  


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???

2 Answers   TCS,


plz anybody tell me how to explain the architecture of one particular project.plz give me answer for this.....RAJESH

7 Answers   TCS, Wipro,


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 ?

1 Answers  


How you automate test scripts

1 Answers   Novartis,


Could you please explain me about QTP framework.

2 Answers   Oracle,


Categories