Shell Programming and Scripting

1234ABXX234ABC123456

1234A;BX;X234;ABC1234;56

str1=5
str2=2
str3=4
str4=7
str5=2

c=0
while read record
do
   ((c=$c+1))                             # Increment record counter
   remainder="${record#?????}"            # 5x? to cut off first five characters
   p1="${record%${remainder}}"            # Get the first part of the record dropping the remainder
   record="${remainder}"

   remainder="${record#??}"               # 2x? to cut off first two characters
   p2="${record%${remainder}}"            # Get the next part of the record dropping the remainder
   record="${remainder}"

   remainder="${record#????}"             # 4x? to cut off first four characters
   p3="${record%${remainder}}"            # Get the next part of the record dropping the remainder
   record="${remainder}"

   remainder="${record#???????}"          # 7x? to cut off first seven characters
   p4="${record%${remainder}}"            # Get the next part of the record dropping the remainder
   record="${remainder}"

   remainder="${record#??}"               # 2x? to try to cut off first two characters
   if [ "${remainder" = "${record}" ]
   then
      p5="${record}"                      # Use the whole of the remaining record if there are no other characters
   else
      printf "Error line %d\n" "${c}" >&2 # Write to standard error
   fi
   
   printf "%s;%s;%s;%s;%s\n" "$p1" "$p2" "$p3" "$p4" "$p5"
done < in_file > out_file  2> err_file

awk '
NR == FNR       {P[MX = NR] = $2
                 next
                }
                {POS = 0
                 for (i=1; i<MX; i++)   {POS+=P[i]; $POS = $POS ";"
                                        }
                }
1
' FS="=" file2 FS="" OFS="" file1
1234A;BX;X234;ABC1234;56

while read string
do
str1=${string:0:5}
str2=${string:5:2}
str3=${string:7:4}
str4=${string:11:7}
str5=${string:18:2}
done < input.txt