How to ADD commas to a number string 2

[denisl]

I'm trying to convert a number string without commas to have commas so it can be read easily (in Korn/Posix). Sorry, I'm Perl dumb.

For example;

123456789.15 I want to look like this 123,456,789.15

Thanks!

 

[LKBrwnDBA]

Maybe in awk you could write your own function.



----------------------------------------------------------------------------
The person who says it can't be done should not interrupt the person doing it. -- Chinese proverb

 

[predamarcel]

uh,

dont ask me how I have done this , but works

in PD KSH v5.2.14

IFS=.
A=1234567.1234
B=123456789123.1234
C=123456789.15
function format_nr {
INT=$1
DEC=$2
RESULT=''
while [[ -n $INT ]]
do

        typeset -R3 INT3=$INT
        RESULT="${INT3},${RESULT}"
        INT=${INT%%(???|??|?)}
done
        echo ${RESULT%%,}.$2
}

format_nr $A
format_nr $B
format_nr $C

Regards,
Marcel

___

http://marcel.rdscv.ro/

____

 

[denisl]

Thanks Marcel.. Tried it and it works!

I just had to add sed 's/ /./g' to put the decimal point back.

 

[SamBones]

Please, don't a an unneeded [tt]sed[/tt]. Changing...

echo ${RESULT%%,}.$2

...to...

echo "${RESULT%,}.${DEC}"

...will do it.

Hope this helps.

 

[predamarcel]

Hi,
version 0.2 realesed

if you pass an integer '1234', will add two decimals '.00'

IFS=.
A=1234567.1234
X=1234567
B=123456789123.1234
C=123456789.15
function format_nr {
INT=$1
DEC=$2

#if no decimals, add '.00'
if [[ -z "$DEC" ]]
then
        DEC='00'
fi


RESULT=''
while [[ -n $INT ]]
do

        typeset -R3 INT3=$INT
        RESULT="${INT3},${RESULT}"
        INT=${INT%%(???|??|?)}
done
        echo "${RESULT%%,}.$DEC"
}

format_nr $B
format_nr $C
format_nr $X

___

http://marcel.rdscv.ro/

____

 

[denisl]

Some of the numbers I am processing shouldn't have ".00" at the end.. so v0.2.1

IFS=.
A=1234567.1234
X=1234567
B=123456789123.1234
C=123456789.15
function format_nr {
INT=$1
DEC=$2

#if no decimals, add '.00'
#if [[ -z "$DEC" ]]
#then
#        DEC='00'
#fi


RESULT=''
while [[ -n $INT ]]
do

        typeset -R3 INT3=$INT
        RESULT="${INT3},${RESULT}"
        INT=${INT%%(???|??|?)}
done

if [[ -z "$DEC" ]]; then
        echo "${RESULT%%,}"
else
        echo "${RESULT%%,}.$DEC"
fi

}

format_nr $A
format_nr $B
format_nr $C
format_nr $X

$ comma.sh
1,234,567.1234
123,456,789,123.1234
123,456,789.15
1,234,567

Now.. can I easily left justify? awk '{print $1}' after the function calls or something better?

 

[predamarcel]

Not need of awk.
Just pure KSH

IFS=.
X=1234567
B=123456789123.1234
C=123456789.15
function format_nr {
INT=$1
DEC=$2
#if [[ -z "$DEC" ]]
#then
#       DEC='00'
#fi

RESULT=''
while [[ -n $INT ]]
do

        typeset -R3 INT3=$INT
        RESULT="${INT3},${RESULT}"
        INT=${INT%%(???|??|?)}
done


if [[ -z "$DEC" ]]; then
        RESULT="${RESULT%%,}"
else
        RESULT="${RESULT%%,}.$DEC"
fi
echo "${RESULT##(   |  | )}"
}

format_nr $X
format_nr $B
format_nr $C

ksh, is really fun.

PM

___

http://marcel.rdscv.ro/

____

 

[denisl]

Oooh.. that's nice!

Thanks - couldn't ask for anything more!

 

[olded]

Hi:

In his book, "Wicked Cool Shell Scripts", Dave Taylor addressed this problem. You can view the source here:

http://www.intuitive.com/wicked/showscript.cgi?004-nicenumber.sh

 

[SamBones]

Yes, ksh is fun!

Oh come on, we can tighten this up a bit!

#!/bin/ksh

A=1234567
B=123456789123.1234
C=123456789.15
D=.1234

function format_nr {
INT=${1%.*}
DEC=${1#${INT}}
RESULT=""

while [[ -n $INT ]]
do
        typeset -R3 INT3=$INT
        RESULT="${INT3},${RESULT}"
        INT=${INT%%(???|??|?)}
done

print ${RESULT%,}${DEC}
}

format_nr $A
format_nr $B
format_nr $C
format_nr $D

That's with or without decimal. We no longer have to set IFS to a dot which can screw up other things a some scripts. The output is left justified. And it's ticghter code. :-D

Hope this helps.

 

[stefanwagner]

here is my approach - only 6 lines of code:

#!/bin/bash
#  
# comma-insert.sh 
# Usage: df | comma-insert.sh for example
#
rev | sed 's/\([0-9][0-9][0-9]\)\([0-9]\)/\1,\2/g' | rev

seeking a job as java-programmer in Berlin:

http://home.arcor.de/hirnstrom/bewerbung