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 |
HOW to invoke any recorded script in QTP with out using RECORD & PLAYBACK CONCEPT?
how to use command prompt using qtp?
diff between global variables and environment variables in qtp?
How can we disable popup blocker?
Can anybody post some real time scenario in qtp? please its very urgent.
Hi How to retrieve data from web element line by line?
Error handling
i need the licence key for QTP V9.5 can anyone help me on getting this?
What is the main difference between desriptive programming and generic functions
What is LoadRunner?
how do u get lib files into scripting files?
What is contained in the object repository?