my=$1

r1p2='s:\(ROW   |.*\)$1\(.*\[\)\([^,]*\)\(,.*\)\(\].*\):\1\3\2\3\4\5:'
r1p1='s:\(ROW   |.*\)$1\(.*\[\)\(.*\)\(\].*\):\1\3\2\3\4:'

r2p2='s:\(ROW   |.*\)$2\(.*\[\)\([^,]*,\)\([^,]*\)\(,.*\)\(\].*\):\1\4\2\3\4\5\6:'
r2p1='s:\(ROW   |.*\)$2\(.*\[\)\([^,]*,\)\(.*\)\(\].*\):\1\4\2\3\4\5:'

r3p2='s:\(ROW   |.*\)$3\(.*\[\)\([^,]*,\)\([^,]*,\)\([^,]*\)\(,.*\)\(\].*\):\1\5\2\3\4\5\6\7:'
r3p1='s:\(ROW   |.*\)$3\(.*\[\)\([^,]*,\)\([^,]*,\)\(.*\)\(\].*\):\1\5\2\3\4\5\6:'

r4p2='s:\(ROW   |.*\)$4\(.*\[\)\([^,]*,\)\([^,]*,\)\([^,]*,\)\([^,]*\)\(,.*\)\(\].*\):\1\6\2\3\4\5\6\7\8:'
r4p1='s:\(ROW   |.*\)$4\(.*\[\)\([^,]*,\)\([^,]*,\)\([^,]*,\)\(.*\)\(\].*\):\1\6\2\3\4\5\6\7:'

cat $my|sed "$r1p2"|sed "$r1p1"|sed "$r2p2"|sed "$r2p1"|sed "$r3p2"|sed "$r3p1"|sed "$r4p2"|sed "$r4p1" > $my.new

