Form Feeds

[netSurfer]

I thought formfeed was chr(10)? Anyway, this may be a little messy but. it works

dim intFreeFile as integer,intI as integer, intJ as integer, strLine as string, intCount as integer

intfreefile = freefile

open "filename.txt" for input as #intfreefile

do until EOF(intfreefile)

Line Input #intFreeFile, strLine 'dumps first line from file into strline

for inti = 1 to len(strline)
intJ = InStr(strLine, chr(12))
if intJ <> 0 then
intCount = intCount + 1
strLine = Mid$(strLine, intJ + 1)
inti = intj
else
exit for
end if
next intI
loop

'that would go through each line looking for the chr(12). IF it finds it, drops off the first part, adds 1 to counter and continues through line at the new location. if it Doesn't find it, exits for that line. Then it load the next line and continues.

I haven't tried it yet but I know the basic structure works.

Chr(10) is line feed, form feed misses a page i think.


Visit my embrionic website...
www.dreamwater.com/tech/wossname/

------------------

Wossname,
Email me: [email protected]

[mgifford]

I need the code to get my program to count the number of Form Feeds (Chr$(12)) in a file. Can anyone help?