Write a VB Script to count blank Lines in a notepad
Answers were Sorted based on User's Feedback
Answer / usha
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("C:usha.txt")
c=0
do until (f.atendofstream)
a=f.readline()
if len(a)=0 then
c=c+1
end if
loop
msgbox c
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / pravati
Set fso=createobject("scripting.filesystemobject")
Set qfile=fso.OpenTextFile("c:Rinkuaby.txt",1,true)
Do While qfile.AtEndOfStream<>true
x=qfile.ReadLine
msgbox x
If len(x)=0 Then
y=y+1
End If
msgbox y
loop
Is This Answer Correct ? | 0 Yes | 0 No |
please can you help me to get a code of flames using a visual basic 6
Which in-built function is used to format the number in the vbscript language?
How to find the font in qtp. Scenario:After entering the username and passwd you will be navigate into the "welcome:Username" page.Now I want to extarct font for this message.
how to add the shared repository file to the script file while running the script manuall
I want to count the total no of links present in yahoo home page. The script like Set fileSysObject=createobject("Scripting.FileSystemObject") Set linksFileName=fileSysObject.opentextfile("D:\samplelinkfile.txt",2,true) Set linkDescObj=description.Create linkDescObj("micclass").value="Link" Set noOfLinks=browser("yahoo").Page("Yahoo!India").ChildObjects(linkDescObj) For i=0 to noOfLinks.count-1 linkName=noOfLinks(i).getROProperty("name") linksFileName.writeline(linkName) Next linksFileName.close Set fileSysObject=nothing But while running the script it is fail (the object not present in the object repository).How to overcome please tell me the detail steps...for QTP9.30
Compare java script and vb script?
this q asked in applabs, q is: QTP should open google.com page and enter "qtp" in one edit(search) box and click search and should open google.com again and enter "job" in edit(search) box and click on search. I tried this but getting error "Edit(search) box matches more than one object", could anyone this question plz..
How to create a function in vbscript?
How to Convert Hex color code to color name in VB Script?
How to write a general script which should does the following a). If a page object is given, it should identify the page object of the corresponding page(site). b). It should identify all the links of that particular page. in QTP tool?
2 Answers IBM, Infosys, Wipro,
Can anyone help me in write coding to get this pattern * ** *** ****
Explain vbscript in detail?