Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Fabrice, Guerimand

slib_example=4345678\

5678\

5 234\

456.789567\

456.789567,comma\

[897456,789],comma

!exit

:proc

slib_input=$(wims_read_parm[1])

slib_input=!declosing $slib_input

slib_input=!replace internal , by . in $slib_input

!if comma isin $wims_read_parm

 slib_point=,

!endif

!default slib_point=.

slib_test=$[$slib_input]

!if NaN isin $slib_test

 slib_out=NaN

 !exit

!endif

!if e isin $slib_input

 slib_out=$slib_input

 !exit

!endif

slib_input=!nospace $slib_input

slib_decomp=!replace internal . by , in $slib_input

slib_part=!item 1 of $slib_decomp

slib_nbchi=!charcnt $slib_part

slib_nbgrp=$[floor($slib_nbchi/3)]

slib_out=$empty

!ifval $slib_nbgrp*3!=$slib_nbchi

 slib_out=!char 1 to $[$slib_nbchi-3*$slib_nbgrp] of $slib_part

!endif

!for slib_i=0 to $slib_nbgrp-1 

 slib_tmp=!char $[$slib_nbchi-3*($slib_nbgrp-$slib_i)+1] to $[$slib_nbchi-3*($slib_nbgrp-$slib_i-1)] of $slib_part

 slib_out=$slib_out $slib_tmp

!next slib_i

slib_tst=!itemcnt $slib_decomp

!if $slib_tst=1

 slib_out=!singlespace $slib_out

 !exit

!endif

slib_part=!item 2 of $slib_decomp

slib_nbchi=!charcnt $slib_part

slib_nbgrp=$[ceil($slib_nbchi/3)]

slib_tmp=!char 1 to 3 of $slib_part

slib_out=$(slib_out)$slib_point$slib_tmp

!for slib_i=1 to $slib_nbgrp 

 slib_tmp=!char $[1+3*($slib_i)] to $[3+3*$slib_i] of $slib_part

 slib_out=$slib_out $slib_tmp 

!next slib_i

slib_out=!singlespace $slib_out