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

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

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.

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

hi frinds i need help .i have 4 + yrs exp in testing and nearly 2 yrs exp in QTP and QC .currently iam working north fast 2 yrs iam looking for job in south is there any openings plz letme know my mail id is pbre1980@gmail.com

0 Answers  

---

In QTP, Which are the concepts are needed to do Functional testing and Regression testing?

3 Answers   IBM,

---

in qtp how we work with out put values and what is the process?

4 Answers  

---

how to retrieve data from the data table (from a particular cell)

7 Answers   Cap Gemini,

---

Browser("Las Vegas Hotels - Las").Page("Vegas Hotels - Hotels").Link("Luxor") ......here Luxor is a hotel and this is recognised as a link. I have many hotels like Luxor, Palms etc which are all displayed as link...How do I parametrize this by using webtable functions??? ASAP

1 Answers   HP,

---

Explain more about the Test Fusion Report of QTP?

0 Answers  

---

I am struggling to understand QTP more from descriptive programming point of view. Is it easy to learn good QTP in South india by good faculty than north india? I found a great lack of institution in here. can you suggest me better instituion. I am holding two years of experience in same company, is there possibility in south india for me?

1 Answers  

---

How many types of recording modes in qtp? Describe each type with an example where we use them?

0 Answers  

---

How to execute the test cases using QTP. i.e What is the use of QTP while execution

2 Answers  

---

what is the difference between an Action and a function in real time

4 Answers  

---

what is difference between Mandatrary proparties and Assistive proparties? Explain

4 Answers  

---

Function to convert lowercase to uppercase in QTP Pls anybody can give the answer.. Thanks in advance...

2 Answers   Navis,

---