Counting number of lines in a text/csv file using xquery/xslt.

Question

Hi,
I have a CSV file, I need to count the total number of lines in that file. This I have to use in OSB. My requirement is I have to count total no of lines in the $body file (CSV/flat file) and subtract header and footer lines from it.
EX:
header,1, @total_no_of_detal@
detail,1
detail,2
detail,3
detail,n
footer, 1
If suppose i have 10 detail lines, and I am getting body of the file as shown above,
then in the final file, I have to change the body of the file as:
header,1, *10*
detail,1
detail,2
detail,3
detail,n
footer, 1
Please advice how to do this in OSB.
Edited by: user12679330 on Aug 2, 2011 2:34 AM

Answer 1

I would suggest you to use MFL to convert the file into XML when you read it and then you can count the detail elements within the XML and update the values in Header element before writing the file again in flat file format again using MFL.
You can read the documentation of Format Builder utility which is used to define MFL here:
http://download.oracle.com/docs/cd/E21764_01/doc.1111/e15866/part_fb.htm
Alternatively, another approach is the read the whole flat file as a text string and then doing needed manipulations to get what you need. If you want to do it like this then you will need to consider following things:
1. Is the file in DOS format or Unix format? (To know the End of line character in use)
2. Does the file contain an end of line at the end of file? (whether there is an end of line char at the end of data of footer record)
Once you know above, you can try an xquery like following:
let $intermediateXML :=
<Root>
for $a in (tokenize($in, 'EOL'))
return
if (string-length($a) > 0)
then
<record>{$a}</record>
else ()
</Root>
let $count := count($intermediateXML/record)
let $outXML :=
<OutRoot>
for $i in 1 to $count
return
if (data($i) = 1)
then
<Record>{concat($out, $intermediateXML/record[$i]/text(), ',Count=',($count)-2)}</Record>
else
<Record>{concat($out, $intermediateXML/record[$i]/text())}</Record>
</OutRoot>
return op:concatenate($outXML/Record/text(), 'EOL')In Above XQuery, replace EOL with the end of line character which for unix wound be "&#xA ;" (remove quotes and space between the A and ; ) and for DOS would be "&#xD ;&#xA ;" (remove quotes and space between the A and ; and D ; )