How can I count text file row ?

• GivThx

  SSCommitted

  Points: 1758

  More actions

  February 14, 2002 at 2:40 pm

  #157648

  Hi, all

  I have a Q for U:-)))

  I have a Active X script that makes Header & Trailer into the data text file. U can check my other discussion:-)))

  My Q is , how can I put data text record count in the trailer?

  What I mean by that is how can I count records that are in text file?

  I used COUNT method in Active X script but it did not work?

  Any idea????

  Thx in advance..

  Jay

• Ncaffee

  Valued Member

  Points: 60

  More actions

  February 28, 2002 at 12:31 pm

  #424661

  I don't know if this will help, but here's what I did:

  'Count Records in Datafile

  Set FSO = CreateObject("Scripting.FileSystemObject")

  Set lfInputFile = FSO.GetFile(vPath&"\yourfilename")

  Set ltsInput = lfInputFile.OpenAsTextStream(ForReading)

  I=0

  Do While Not ltsInput.AtEndOfStream

  lsTemp = ltsInput.ReadLine

  I = I+1

  Loop

  ltsInput.Close

  Set ltsInput = Nothing

  Set lfInputFile = Nothing

  This enabled me to do a count of all the rows for inclusion in my trailer record.

  Edited by - ncaffee on 02/28/2002 12:40:05 PM

• Andy Warren

  SSC Guru

  Points: 119902

  More actions

  February 28, 2002 at 1:42 pm

  #424667

  If they are fixed length rows you could subtract out the byte count for header and trailer, then divide remainder by the row length.

  Andy

  Andy
  SQLAndy - My Blog!
  Connect with me on LinkedIn
  Follow me on Twitter

• jwiner

  SSCrazy

  Points: 2241

  More actions

  February 28, 2002 at 2:10 pm

  #424669

  Another option which might be a little overkill, would be to use the odbc text driver to access the file as a recordset. Then just check the value of the record count property.