[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Retirando zeros a esquerda na 4a. coluna
From: |
lferreir1 |
Subject: |
Re: Retirando zeros a esquerda na 4a. coluna |
Date: |
Fri, 03 Sep 2004 11:31:39 -0000 |
User-agent: |
eGroups-EW/0.82 |
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]