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 |
what is input pramater out output pramater ?i want the decrepation..?how to use in QTP?
3 Answers Infinite Computer Solutions,
If an application name is changes frequently i.e while recording it has name "Window1" and then while running its "Windows2" in this case how does QTP handles?
explain how to write vb script in qtp?when will you write own script?
When Object Repository is available what is the necessity of having Descriptive programming which needs more scripting efforts.
How to create a Runtime property for an object in QTP?
what is the qtp objects?
What are default add-ins in qtp?
how to display message with out using msgbox function?
how do you invoke the application through QTP?
How would you export a script from one pc to another in qtp?
Hi everybody.. I m using QTP 9.2 version., plz send me licence key is it seat or concurrent licence key... plzzzzzzzzz plz help me for this one and its Locking code:8-5C740 Maintenance number: 0123-2820602186.,
How can we count the no of rows are available in a data table ?