Re: Retirando zeros a esquerda na 4a. coluna

[lferreir1]

André,
Tente assim:

#!/usr/bin/ksh
IFS='
'

rm saida.txt 2>/dev/null

for REG in `cat texto.txt`
  do
    COL1=`echo ${REG} | cut -f1 -d\;`
    COL2=`echo ${REG} | cut -f2 -d\;`
    COL3=`echo ${REG} | cut -f3 -d\;`
    COL4=`echo ${REG} | cut -f4 -d\; | awk '{ printf "%d\n", $1 }'`
    COL5=`echo ${REG} | cut -f5 -d\;`
    echo "${COL1};${COL2};${COL3};${COL4};${COL5}" >> saida.txt
done
cat saida.txt

20040902;1;ATM;75;28
20040902;1;ATM;100;19
20040902;2;ATM;15;281
20040902;2;ATM;25;127
20040902;2;ATM;35;17
20040902;2;ATM;50;17
20040902;2;ATM;75;1
20040902;2;ATM;100;4
20040902;3;ATM;10;14


--- Em address@hidden, André Luiz Alves da Silva 
Prates <aprates@t...> escreveu
>  
> Caros colegas,
>  
> Alguém poderia me ajudar dizendo como eu faço para retirar os zeros 
a esquerda da coluna 4 deste arquivo?
>  
> Desde já agradeço pela habitual ajuda.
>  
>  
> > cat texto.txt
> 20040902;1;ATM;000000000075;28 
> 20040902;1;ATM;000000000100;19 
> 20040902;2;ATM;000000000015;281
> 20040902;2;ATM;000000000025;127
> 20040902;2;ATM;000000000035;17 
> 20040902;2;ATM;000000000050;17 
> 20040902;2;ATM;000000000075;1  
> 20040902;2;ATM;000000000100;4  
> 20040902;3;ATM;000000010.20;14
>  
> resultado:
>  
> 20040902;1;ATM;75;28 
> 20040902;1;ATM;100;19 10
> 20040902;2;ATM;15;281
> 20040902;2;ATM;25;1276
> 20040902;2;ATM;35;17 
> 20040902;2;ATM;50;17 9
> 20040902;2;ATM;75;1  8
> 20040902;2;ATM;100;4  
> 20040902;3;ATM;10.20;14
>  
>  
>  
> Atenciosamente,
>  
>  
> André Prates
> Suporte Produção - DSF
> *aprates@t... <mailto:*aprates@t...> 
>        
>  
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]