1.How to find in which row or column,string "Hyderabad"
exist in excel sheet?
2.How to find how many times character "a" repeated in a
given string "Koteswararao"
Answers were Sorted based on User's Feedback
Answer / lakshmi
str="Koteswararao"
st=Split(str,"a")
Msgbox ubound(st)
Please let me know if u have simplest answer than this.
Is This Answer Correct ? | 23 Yes | 1 No |
Answer / venkatesh naidu rangisetti
Option Explicit
Dim a,b,c,i,leng,var
b=0
c="a"
a="Koteswararao"
leng=len(a)
msgbox "length of"&" "&a&" "&"is"&" "&leng 'optional step
For i=1 to leng
var=mid(a,i,1)
If cstr(var)=cstr(c)Then
b=b+1
End If
Next
msgbox "Total Number of a's in Koteswararao are"&" "&b
Is This Answer Correct ? | 9 Yes | 1 No |
Answer / lakshmi
Set ObjExcel=CreateObject("Excel.Application")
ObjExcel.Workbooks.Open("C:\Find.xls")
Set Obj=ObjExcel.Sheets.Item(1)
rowcount=Obj.usedrange.rows.count
colcount=Obj.usedrange.columns.count
For i=1 to rowcount
For j=1 to colcount
Aval=Obj.Cells(i,j)
If StrComp(Aval,"HYDERABAD")=0 then
MsgBox "Location Is : ("&i&","&j&")"
Exit For
Exit For
End If
Next
Next
Please let me know if you have simplest answer than this.
Thx
Is This Answer Correct ? | 5 Yes | 0 No |
Answer / lakshmi
Set ObjExcel=CreateObject("Excel.Application")
ObjExcel.Workbooks.Open("C:\Find.xls")
Set Obj=ObjExcel.Sheets.Item(1)
rowcount=Obj.usedrange.rows.count
colcount=Obj.usedrange.columns.count
For i=1 to rowcount
For j=1 to colcount
Aval=Obj.Cells(i,j)
If StrComp(Aval,"HYDERABAD")=0 then
MsgBox "Location Is : ("&i&","&j&")"
Exit For
Exit For
End If
Next
Next
Please let me know if you have simplest answer than this.
Thx
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / srividya
msgbox(len("Koteswararao")-len(Replace("Koteswararao","a","")))
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / lak
1)Find Cell data(Hyderabad)
dim obj,objwb,objsheet,search_item,found,flagrow,flagcol
Set obj=Createobject("Excel.Application")
Set objwb=obj.WorkBooks.Open("D:\Find.xls")
Set objsheet=objwb.Sheets("Sheet1")
obj.visible="True"
search_item="HYDERABAD"
set found=objsheet.Cells.Find(search_item)
On Error resume next
flagrow = found.Row
flagcol = found.Column
msgbox "Location Is : ( Row : "&flagrow&",Col :"&flagcol&")"
objwb.Save
objwb.Close
Set objwb= Nothing
'-----------------------------------------------------------
2) Repeated Character
str="Koteswararao"
repcnt=Split(str,"a")
Msgbox "Count :"&ubound(repcnt)&""
Is This Answer Correct ? | 1 Yes | 0 No |
There is web page with the webtable,this contains some data, how do you manipulate the data.
Hi, It is HR question. What are the qualities you like and dislike in your Project Manager?
This is the script generated by qtp plz can anyone write the same script using descriptive programming plzzzz guys do answer. Browser("orkut - login").Page("orkut - login").WebEdit ("Email").Set "rgovard" Browser("orkut - login").Page("orkut - login").WebEdit ("Passwd").SetSecure "47525d8be4926ea2f6e96b9a3f7472b6ae38" Browser("orkut - login").Page("orkut - login").WebButton ("Sign in").Click Browser("orkut - login").Page("orkut - home").Link ("Logout").Click Browser("orkut - login").Page("orkut - login").Sync Browser("orkut - login").Close
Explain quicktest professional (qtp) testing process?
how to load all resource files(function libraries,object repositories etc) into tests without associating them?
what is KEYWORD DRIVEN TESTING ? I M NOT ASKIN WHAT IS KEY WORD VIEW PLZ ANS FOR ONLY WHAT IS KEYWORD DRIVEN TESTING EXACTLY THANX
what is keyword driven testing
Explain how qtp identifies objects?
What does VBS file contain...??? what is VBS file.. ???
hi i want license key for qtp 9.2 pls its adjust product name : quick test professional locking code :8 - 54A6A license type : seat license maintenance number : 88888888-8888 pls send license key to my email id borusu.ramkumar@gmail.com
what is the extension of action script template?
Hi, I am new to QTP and vb.script.How to start to write vb.script in QTP? Please give me suggestions?