cd data

for filename in `ls *.*` ; do
  POS=`expr index $filename .` ;
  POS2=`expr $POS + 1` ;
  POS3=`expr $POS - 1` ;
  NAME=`expr substr $filename 1 $POS3` ;
  EXT=`expr substr $filename $POS2 3` ;
  NEWEXT=`expr $EXT + 1` ;
  mv $filename ../tdata/$NAME.$NEWEXT;
  cd ../cdata;
  FILENAME2=`ls $NAME.*`;
  POS4=`expr index $FILENAME2 .`;
  POS4=`expr $POS4 + 1`;
  EXT2=`expr substr $FILENAME2 $POS4 3`;
  NEWEXT2=`expr $EXT2 + 1`;
  mv $NAME.$EXT2 $NAME.$NEWEXT2;
  cd ../data;
done

cd ..