Question { 31034 }

How to open an application through scripting?

Answer

Window We can using invokeapplication and systemUtil. run method

But for web we can using SystemUtil.Run

In Vb script we can using different methods

Question { Syntel, 2444 }

w is time parameter

Answer

Parameter mean passing the values in the scripts, Means we have to store the data somewhere(Notepad, DataTable,Excel, ...etc) and we need to give the reference of the data into the scripts
now I m explaining how to use the data in to scripts

Browser().Page().WebEdit().Set "Srinivas" 'This is hard code the data

'Parametrization
Browser().Page().WebEdit().Set DataTable.Value(ParemeterId,sheetName)

Question { 5726 }

does QTP provides any tools for parametrisation?

Answer

Yes QTP is providing tools for Parametrization

1. DataTable
2. Action Parameters
3. Test Parameters
4. Environment variables
5. RandomNumbers
6. Inputbox

Question { 5431 }

did you perform retesting(DATA DRIVEN test) using functions
with out using datatable methods

how can you perform retesting using functions

Answer

Question:did you perform retesting(DATA DRIVEN test) using functions with out using datatable methods.

Answer: With out using datatables we can do the retersting using below methods
1. File System objects(Using note page)
2. Database connections(SQL, Oracle, MS Access)
3. Environment variables
4. Random numbers, Excel methods, Inputbox
5. Parameters(Actions and Test Parameters)...ETC

Question { Crea, 4307 }

Explain Different types of Checkpoints in Quick Test
Professional?

Answer

Standard CheckPoint
Text
Text Area
Bitmap
Accessbilty Check point
Data Base
XML Check Point(From Resources)
XML Check Point (From Application)
Extra:
Page Check point
Table check Point
Image Check Point
UFT:
File Check Point


Thanks,
Srini
srinivasulu.thatavarthi@outlook.com

Question { 3426 }

How can you quit from Action.

Answer

EXitAction

Question { HCL, 9319 }

str="QTP AUTOMATION TESTING"
here how many T are there in the str
finally i want to display the T

Answer

Dim strValue,i, blnFlag,incRement

strValue = "QTP AUTOMATION TESTING"
blnFlag = ""
incRement = 0
For i = 1 to Len(strValue)
If Ucase(mid(strValue,i,1)) = "T" Then
incRement = incRement+1
blnFlag = blnFlag &Ucase(mid(strValue,i,1))
End If
Next
Msgbox incRement 'Number of Ts are Displaying 5
Msgbox blnFlag

Question { CTS, 2305 }

write a Vb script to find a whther a selected drive exits.

Answer

Option Explicit
Dim objFso, objFile,iCount,strDrivers

Set objFso = CreateObject("Scripting.FilesystemObject")
MsgBox objFso.Drives.Count

For iCount = 1 To objFso.Drives.Count

strDrivers = strDrivers & vbNewLine &objFso.Drives.Item(iCount).DriveType

Next
MsgBox strDrivers

If objFso.DriveExists("iTunes") Then
MsgBox "Driver is Exists"
Else
MsgBox "Drive is not exists"

End if

Question { CSS Corp, 2428 }

How to search word in a string without using instring function?

Answer

Solution1: text or Textarea checkPoints
solution 2:if condition method

Question { CSS Corp, 2258 }

reverse the string without using reverse string?

Answer

Option Explicit
Dim strValue,iCount, strNewValue

strValue = "CapGemini"

For iCount = Len(strValue) To 1 Step -1

strNewValue = strNewValue& Mid(strValue,iCount,1)

Next

strNewValue = Trim(strNewValue)
MsgBox strNewValue

'Expected value
---------------------------

---------------------------
inimeGpaC
---------------------------
OK
---------------------------

Question { CSS Corp, 1911 }

compare the string without using stringcomp function?

Answer

2. how to compare values without using String compare function?
Ans:
Option Explicit
Dim strValue

strValue = "Thatavarthi"

If strValue = "Thatavarthi" Then
MsgBox "Both strings are same"
Else
MsgBox "Both strings are not same"
End If

'Expected out Put
---------------------------

---------------------------
Both strings are same
---------------------------
OK
---------------------------

Question { CSS Corp, 2147 }

print the array values in ascending order?

Answer

arr = Array(4, 6, 2, 7, 3, 5, 1, 8, 10, 22, 33, 15, 11, 8)

For i = LBound(arr) to UBound(arr)
For j = LBound(arr) to UBound(arr) - 1
If arr(j) > arr(j + 1) Then
TempValue = arr(j + 1)
arr(j + 1) = arr(j)
arr(j) = TempValue
End If
Next
Next

s = ""
For i = LBound(arr) To UBound(arr)
s = s & arr(i) & ","
Next

Msgbox s

'Expected output
---------------------------

---------------------------
1,2,3,4,5,6,7,8,8,10,11,15,22,33,
---------------------------
OK
---------------------------

Question { CSS Corp, 3058 }

find the length of the string without using length function?

Answer

Option Explicit
Dim strValue,iCount, intcounter

strValue = "thatavarthi"
intcounter = 0
for icount = 1 to len(strValue)
intcounter = intcounter+1

Next
Msgbox intcounter

'Expected Value
---------------------------

---------------------------
11
---------------------------
OK
---------------------------

Question { CSS Corp, 2248 }

join all the array values without using join function?

Answer

Ans:
Option Explicit
Dim strValue, arrValue,iCount

arrValue = Array("Srinivasulu","Thatavarthi")

For iCount = 0 To UBound(arrValue)

strValue =strValue&" "& arrValue(iCount)

Next

MsgBox strValue

'Actual Output:
---------------------------

---------------------------
Srinivasulu Thatavarthi
---------------------------
OK
---------------------------

Question { CSS Corp, 2950 }

Hi everybady,

i have faced few Qns in one of i attended interview, please help me out with these below Qns.
1. how to join values without using join function?
2. how to compare values without using String compare function?
3. input is Bangalore, but i need output like this below format, what is function to use and get this outcome
B
A
N
G
A
L
o
R
E
4. Input is "CapGemini" but uotput should be like this "inimeGpaC"
5. Input is
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
Can someone let me know results of this Qns, please. Thanks.

Answer

1. how to join values without using join function?

Ans:
Option Explicit
Dim strValue, arrValue,iCount

arrValue = Array("Srinivasulu","Thatavarthi")

For iCount = 0 To UBound(arrValue)

strValue =strValue&" "& arrValue(iCount)

Next

MsgBox strValue

'Actual Output:
---------------------------

---------------------------
Srinivasulu Thatavarthi
---------------------------
OK
---------------------------
2. how to compare values without using String compare function?
Ans:
Option Explicit
Dim strValue

strValue = "Thatavarthi"

If strValue = "Thatavarthi" Then
MsgBox "Both strings are same"
Else
MsgBox "Both strings are not same"
End If

'Expected out Put
---------------------------

---------------------------
Both strings are same
---------------------------
OK
---------------------------
3. input is Bangalore, but i need output like this below format, what is function to use and get this outcome
B
A
N
G
A
L
o
R
E?
Ans:
Option Explicit
Dim strValue,iCount, strNewValue

strValue = Ucase("Bangalore")

For iCount = 1 To Len(strValue)

strNewValue = strNewValue& vbNewLine& Mid(strValue,iCount,1)

Next
MsgBox strNewValue

'Expected Value:
---------------------------

---------------------------


B

A

N

G

A

L

O

R

E
---------------------------
OK
---------------------------
4. Input is "CapGemini" but uotput should be like this "inimeGpaC"
Option Explicit
Dim strValue,iCount, strNewValue

strValue = "CapGemini"

For iCount = Len(strValue) To 1 Step -1

strNewValue = strNewValue& Mid(strValue,iCount,1)

Next

strNewValue = Trim(strNewValue)
MsgBox strNewValue

'Expected value
---------------------------

---------------------------
inimeGpaC
---------------------------
OK
---------------------------
5. Input is
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
Ans:

Option Explicit
Dim iCount,strValue,jcount,arrValue

For iCount = 1 To 5
For jcount = 1 To 5
If iCount = jcount then
strValue = strValue&jcount
Exit For
End IF
Next
arrValue = arrValue&vbNewline& strValue
Next

MsgBox arrValue
'Expected Output
---------------------------

---------------------------


1

12

123

1234

12345
---------------------------
OK
---------------------------