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 guys, Please suggest some thing these points are correct???, Is UFT 12 and QTP outdated ??? and also VBscript is also deleted/Removed from QTP ???? Javascript is added latest and tool name is called JFT ??? From this year ??

2 Answers  

---

How did you achieve reusability via QTP?

1 Answers  

---

How do you do batch testing in QTP, if so explain?

2 Answers  

---

Can anyone explain me about child objects in detail;when they are used and why do we need them ? please give me sample code for this if possible.

1 Answers   Virtusa,

---

In my script there is a link(e.g. 'My Page') when I execute the script sometimes(not every time) QTP throws an error that "My Page(as link)" not found. Pleaase tell me where I need to update

3 Answers  

---

Tell me the QTP Advantages and Disadvatages ?

6 Answers   Accenture, CTS, GE,

---

How to get line numbers in your editor in expert view?

2 Answers  

---

What is the significance of “action 0” in qtp?

0 Answers  

---

i have two questions for regular expression :- Q1. I have date pattern eg-29/11/2011 29-11-2011 29.11.2011 Que- if any separator is there between date,month and year pattern should match else it should not match eg- pattern should not match in case of 2911-2011 Q2. let say i have a string and there is a number in between of that string eg.-Amount 30002.234 successfully credited to your account . now i have to match this pattern in such a way that even if decimal is not there pattern should match ,how i will do this using regular expression

0 Answers  

---

What are the Test design techniques you uses in ur project?

0 Answers   Accenture,

---

Today only i joined in this site. Can u please tell me definition of parameterization. and how i can do the parameterization?

6 Answers  

---

What are the types of data tables in qtp?

0 Answers  

---