Very Computer

For example

Procedure1
Select
aaa
,bbb
,ccc
,ddd
,eee
from
table1, table2

Procedure2
Select
aaa
,bbb
,ccc
,ddd
,eee
from
table1, table2, table3

I'd like to create a flatfile formated as followed

Procedure1|aaa|bbb|ccc|ddd|eee|*|table1|table2
Procedure2|aaa|bbb|ccc|ddd|eee|*|table1|table2|table3

Thanks in advance

awk '/^$/ { }
     !inproc && /^Procedure/ { printf("%s|", $0); inproc=1 }
     !selecting && /^Select/ { selecting=1 }
     selecting && /^from/ { selecting=0 }
     { if (selecting) {
         sub("^,", ""); /* remove the leading comma if necessary */
         printf("%s|", $0);
       } else {
         gsub(", *", "|");
         printf("*|%s\n", $0)
         inproc=0;
       }
     }

--

Genuity Managed Services, a Level(3) Company, Woburn, MA
*** DON'T SEND TECHNICAL QUESTIONS DIRECTLY TO ME, post them to newsgroups.
Please DON'T copy followups to me -- I'll assume it wasn't posted to the group.

Quote:> Procedure1
> Select
> aaa
> ,bbb                >
> ,ccc                >
> ,ddd                > I'd like to create a flatfile formated as followed
> ,eee                >
> from                > Procedure1|aaa|bbb|ccc|ddd|eee|*|table1|table2
> table1, table2      > Procedure2|aaa|bbb|ccc|ddd|eee|*|table1|table2|table3

> Procedure2          > Thanks in advance
> Select
> aaa
> ,bbb
> ,ccc
> ,ddd
> ,eee
> from
> table1, table2, table3

--
Stphane

John
--
use Perl;
program
fulfillment

#!/usr/local/bin/perl -w
$/="";




        $y[-2] = "*";


        print "\n";

Quote:}

#!/bin/sed -f
/^Procedure/!d
:loop
$!{
        N
        /\nfrom$/!bloop
        N

Quote:}

############################################################