Answer Posted / rakesh ramesh

'Code using dictionary object, Inputs are not restricted to
proper values


Function marks()
Dim dict , passed, name, studMark
Set dict = CreateObject("Scripting.Dictionary")
Set passed = createObject("Scripting.Dictionary")

for i=0 to 10
name = InputBox("Stud name :")
studmark= InputBox("enter mark :")
dict.Add name, mark

if studMark>34 then
passed.Add name, studmark
end if
Next

For each i in passed
msgbox i & " : " & passed(i) & " - is passed"
Next

End Function


Call marks()

what does mbln in mblnrects mean? my boolean?

2438

---

Can Any one suggest how we connect QTP and Mainframe and do validation from Mainfram screen

1938

---

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?

2465

---

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

2261

---

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

1181

---

---

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

1056

---

how to use the GetTickCount() properly and what is that procedure for?

2736

---

how to manage mlng timer because they don't explain what's it's function?

2461

---

How to change winform look?

2333

---