Database Search

TechHome

• Alternate Data Stream UDFs
• CD Drive Locker
• Checksum Calculations
• Count Number of Lines in File UDF
• Delete if Older Than
• Delete old TMP files
• Disable Offline Attribute
• Display a Files Property Sheet
• Export to Excel or CSV UDFs
• Extracting last lines of a file UDS
• Fast File Count
• File Read Line
• FileCount UDF
• Find a File
• Find Line Number of Keyword in a Text File
• Get a Signature of a File
• Get Summary File Properties
• Get the Compressed File Size
• Getting True Filenames and Directories UDF
• List all Files Older Than
• Make Available Offline
• PathStripToRoot UDF
• Recursive FileAttrSet
• Recursive List of Files or Directories
• UDF - Find Newest File
• udfArrFileOlderThan
• udfAskDirectory
• udfFileCopyFlat
• XCOPY with some Excludes

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Count Number of Lines in File UDF

#DefineFunction CountLinesInFile(File)
   data = FileGet(File)
   Len = StrLen(data)
   If Len == 0 Then Return 0
   Count = StrCnt(data, @LF, 1, StrLen(data), 0)
   If StrSub(Data,Len,1) == @LF Then Return Count
   Return Count + 1
#EndFunction

Article ID:   W17277

File Created: 2007:07:03:14:29:14

Last Updated: 2007:07:03:14:29:14