Answer / sandeep chitta

msgbox "Type the number of terms in a pattern:"
dim x
x=inputbox("type the no of terms")
c=""
p=0
for i=1 to x
for j=1 to i
p=p+j
next
c=c&p&" "
p=0
next
msgbox c

How to Check if a string is alphanumeric or not using VB Script

1 Answers  

---

Hi All, Do anyone have a solution/script for Uploading the Excel file in Local drive to QC Resources folder..?? TIA Dwaraka.

0 Answers   NHS,

---

In QTP one function can return more than one value?

3 Answers   Mind Tree,

---

Keep all the contract numbers in a array and make a loop . Example:12134,5678,91011,1214125 are contract numbers.

1 Answers  

---

what does mbln in mblnrects mean? my boolean?

0 Answers  

---

display 1 to 9 in a 3*3 matrix in vbscript

1 Answers   JPMorgan Chase,

---

write a vb script to check equal two 2*2 matrix

0 Answers  

---

write the vbscript code to print the following pattern :- 1 + (1 + 2) +(1+2+3).....

1 Answers  

---

what is the full form of dim?

5 Answers  

---

can everyone explain this code Private Sub DrawRect(rectSource As RECT, lngColour As Long) Line (rectSource.Left, rectSource.Top)-(rectSource.Left, rectSource.Bottom), lngColour Line (rectSource.Left, rectSource.Top)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Left, rectSource.Bottom), lngColour End Sub

0 Answers  

---

How to write QTP script to exit from loop? suppose I am using parametize functionality and in data table there is 3 password corresponding 3 username and second pasword is wrong. Now I want to exit after completion of second iteration and continue with third iteration.

2 Answers  

---

How to store the iterations value in some variable/ in excel? Dim objExcel, ObjFolder, objPath, objWorkbook, objSheet, ObjFSo, ObjFolderName, strExcelPath Const xlExcel7 = 39 ObjFolderName = "Testing" & Hour(time()) & Minute(time()) &Second(time()) objPath = "D:\" strExcelPath = objPath & ObjFolderName & "\testing.xls" Set ObjFSo = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(objPath & ObjFolderName) On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 Set objWorkbook = objExcel.Workbooks.Add() Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) Dim arr1, arr2, arr3 Set outputLines = CreateObject ("System.Collections.ArrayList") arr1 = 123arr2 = 99 arr3 = 10 outputLines.Add arr1 outputLines.Add arr2 outputLines.Add arr3 outputLines.Sort() For Each outputLine in outputLines WScript.Echo outputLine ' how to store this value in excel/ variable? Next objExcel.ActiveWorkbook.SaveAs strExcelPath, xlExcel7 objExcel.ActiveWorkbook.Close objExcel.Application.Quit This above code is working fine but the qs is is there any way to store the sort data in variables / in the excel and how?

0 Answers   Wipro,

---