awk sub string

cat TFY1C.txt|awk '{print $0"\t"substr($4,1,4)}'> TFY1CRID.tx

1--从那位开始
4--多长