Write a VB Script to count blank Lines in a notepad

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Which data type/types are supported by vbscript language and what are their specialties?

587


Hello Guys, If any body looking for "worksoft certify tool training in bangalore", please contact me aimansaud@gmail.com

1040


Mention how to create a cookie using vbscript?

522


What are the uses of vb script?

579


How will you get the octal value of the given number in vbscript?

496






how to automatically update the sql server2005 database records when insert in vb6?

1479


1. How do declare public variable in vb scripts?

1573


Anyone have qtp11.0 crack?

2378


Can automation testing find ssame no. of bugs what we can find by manual testing?

1459


Why to use option explicit in vb script?

592


Could Anybody Please tell me What is the script for Find 3rd Largest element in the Array without using a SORT function int Find(int arr[], int size); Thanks in Advance..

2018


Description.Create

2157


What are the differences between sub procedures and function procedures?

516


How to capture a runtime error in vbscript?

623


how to acces the remote mechine using vb cript(QTP)

1598