Hello:
I'm writing a program to count the lines of code in my programs.
I need to be able the count the lines of code without including the comments and blank spaces. Any ideas on how to do this? THis is the code that I'm using that returns the total number of lines including comments.
gnfilehandle = fopen("mainlib.prg")
nsize = fseek(gnfilehandle,0,2)
if nsize <= 0
wait window "this file is empty!" nowait
else
=fseek(gnfilehandle, 0)
lctext = fread(gnfilehandle, nsize)
lnlines = occurs(chr(13), lctext)
? lnlines
endif

This works and returns total number of lines. Any suggestions would be greatly appreciated.