Check length for each record for a delimited file

[Ixtreme]

I need a code to check each record's length. My file is a ~ delimited file.My database has 60 fields. I need something that steps to each record and counts the fields for each record. If the record is less or more than 60 fields, I need them to be listed in a text file or msgbox.

 

[John W. Vinson]

I need a code to check each record's length. My file is a ~ delimited file. My database has 60 fields. I need something that steps to each record and counts the fields for each record. If the record is less or more than 60 fields, I need them to be listed in a text file or msgbox.

If you read the record into a String variable strRecord you can count the
delimiters with an expression like:

FieldCount = Len(strRecord) - Len(Replace(strRecord, "~", ""))
--

John W. Vinson [MVP]
Microsoft's replacements for these newsgroups:
http://social.msdn.microsoft.com/Forums/en-US/accessdev/
http://social.answers.microsoft.com/Forums/en-US/addbuz/
and see also http://www.utteraccess.com

 

[Douglas J Steele]

Or you could use UBound(Split(strRecord, "~")) + 1.

"John W. Vinson" wrote in message

I need a code to check each record's length. My file is a ~ delimited file.
My database has 60 fields. I need something that steps to each record and
counts the fields for each record. If the record is less or more than 60
fields, I need them to be listed in a text file or msgbox.

If you read the record into a String variable strRecord you can count the
delimiters with an expression like:

FieldCount = Len(strRecord) - Len(Replace(strRecord, "~", ""))
--

John W. Vinson [MVP]
Microsoft's replacements for these newsgroups:
http://social.msdn.microsoft.com/Forums/en-US/accessdev/
http://social.answers.microsoft.com/Forums/en-US/addbuz/
and see also http://www.utteraccess.com

 

[John W. Vinson]

Or you could use UBound(Split(strRecord, "~")) + 1.

boinnnnggg...

Good one, hope I can remember that. Thanks Douglas!
--

John W. Vinson [MVP]
Microsoft's replacements for these newsgroups:
http://social.msdn.microsoft.com/Forums/en-US/accessdev/
http://social.answers.microsoft.com/Forums/en-US/addbuz/
and see also http://www.utteraccess.com

 

[Gloops]

Ixtreme wrote, on Oct. 01st 2012 14:47 :

I need a code to check each record's length. My file is a ~ delimited file. My database has 60 fields. I need something that steps to each record and counts the fields for each record. If the record is less or more than 60 fields, I need them to be listed in a text file or msgbox.

Hello,

Here is another solution to count the fields :

Set S = Split(strRecord, "~")
'not sure about needing Set

FieldCount = UBound(S)

For N = LBound(S) to UBound(S)
Debug.Print N & " : " & "«" & S(N) & "»"
Next