Shell Programming and Scripting

BEGIN { L=0; H=0 }

/=======/ {
        H++;
        INDATA=1;
        L=0;
        next
}

# Titles in T[H]
{       T[H]=$0;        }

# Lines in D[X,line], line count in D[X,0]
INDATA {        D[H-1,++L]=$0   ;       D[H-1,0]=L      }

END {
        # Remove trailing blank lines, find some text here appendices
        for(N=0; N<H; N++)
        {
                do { D[N,0]--; } while(D[N,D[N,0]] == "");

                if(D[N,D[N,0]-1] == "")
                {
                        SOME[N]=D[N,D[N,0]];
                        D[N,0] -= 2;
                }
        }

        printf("<table>\n<trbody>\n<tr>\n");
        for(N=0; N<H; N++) print "\t<td><pre>" T[N] "</pre></td>";

        print "</tr>\n<tr>";

        for(N=0; N<H; N++)
        {
                print "<td>";
                for(M=1; M<=D[N,0]; M++) print "\t<pre>" D[N,M] "</pre>";
                print "</td>";
        }

        print "</tr>\n<tr>";

        for(N=0; N<H; N++)
        {
                print "\t<td><pre>" SOME[N] "</pre></td>"
        }

        printf("</tr>\n</tbody>\n</table>\n");
}

<table>
<trbody>
<tr>
        <td><pre>Header 1</pre></td>
        <td><pre>Header 2</pre></td>
        <td><pre>Header 3</pre></td>
</tr>
<tr>
<td>
        <pre>Name:***</pre>
        <pre>Age:***</pre>
        <pre>Address:***</pre>
        <pre>Work Phone:***</pre>
        <pre>Email:***</pre>
        <pre>Mobile:***</pre>
        <pre>Country:***</pre>
        <pre>City:***</pre>
        <pre>Pincode:***</pre>
</td>
<td>
        <pre>Name:***</pre>
        <pre>Age:***</pre>
        <pre>Address:***</pre>
        <pre>Work Phone:***</pre>
        <pre>Email:***</pre>
        <pre>Mobile:***</pre>
        <pre>Country:***</pre>
        <pre>City:***</pre>
        <pre>Pincode:***</pre>
</td>
<td>
        <pre>Name:***</pre>
        <pre>Age:***</pre>
        <pre>Address:***</pre>
        <pre>Work Phone:***</pre>
        <pre>Email:***</pre>
        <pre>Mobile:***</pre>
        <pre>Country:***</pre>
        <pre>City:***</pre>
        <pre>Pincode:***</pre>
</td>
</tr>
<tr>
        <td><pre>some text here ****</pre></td>
        <td><pre>some text here ****</pre></td>
        <td><pre></pre></td>
</tr>
</tbody>
</table>

a
b
c

a b c

#!/usr/bin/env bash

# @(#) s3	Demonstrate transform text to table, txt2html
# t2t: http://www.scholnick.net/t2t
# txt2tags: http://txt2tags.sourceforge.net

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
LC_ALL=C ; LANG=C ; export LC_ALL LANG
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C csplit paste txt2html

FILE=${1-data2}

pl " Sample of input data file $FILE, sizes of split files:"
head -3 $FILE ; tail -3 $FILE

# Remove debris, split data into separate files, combine side-to-side
rm -f xx*
csplit -z -k $FILE '/^Header/' {*}
paste xx* > f1

pl " Results, txt2html (adding markup):"
( pe ; pe ) > f2
sed 's/^/| /;s/	/ | /g;s/$/|/' f1 >> f2
( pe ; pe ) >> f2
rm -f f2.html
txt2html --make_tables f2 > f2.html
ls -lgG f2.html

rm -f xx*
exit 0

./s3

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian 5.0.8 (lenny, workstation) 
bash GNU bash 3.2.39
csplit (GNU coreutils) 6.10
paste (GNU coreutils) 6.10
txt2html /usr/bin/txt2html version: 2.51

-----
 Sample of input data file data2, sizes of split files:
Header 1
=======
Name:***

Text line 1
Text line 2
175
152
140

-----
 Results, txt2html (adding markup):
-rw-r--r-- 1 1323 Jul 24 11:37 f2.html