How to change numbers to zero

How to change numbers to zero – refer below code:
Dim i
Dim j
Dim output
objStr= “1234567890”
j = 0
For i = 1 to 9
output =output&replace(objStr,i,j)
Next
 

How to do string reverse in qtp

How to do string reverse in qtp

How to do string reverse in qtp

Dim String1, String2, StringLength, i

String1 = “Happy Valentine’s Day”
StringLength = len(String1)

For i = StringLength To 1 step -1

String2 = String2 & mid(String1, i, 1)

Next

Msgbox String2

String reverse in qtp

Dim String1, String2, StringLength, i

String1 = “Shalima Prakash”
StringLength = len(String1)

For i = StringLength To 1 step -1

String2 = String2 & mid(String1, i, 1)

Next

Msgbox String2

Highest number in array

How to find the Highest number in array

Highest number in array

Dim Num, i, ArrayLength

Num = Array(1,3,4,2)

ArrayLength = Ubound(Num)

For i = 1 To ArrayLength

If (Num(i) > Num(0)) Then

Num(0) = Num(i)

End If

Next

Msgbox Num(0)