| converting int array to a string [message #28085] |
Tue, 20 November 2001 16:00  |
Chad Bahrmann
Messages: 7
Registered: September 2001
|
Junior Member |
|
|
Is there an easy way to convert the following:
x=[1,2,3,4,5,17,45,46,47,48,49,50,51,59]
where x is minutes in an hour for example
to a string like:
minutes='1-5,17,45-51,59'
Thanks in advance,
Chad Bahrmann
|
|
|
|
| Re: converting int array to a string [message #28149 is a reply to message #28085] |
Fri, 23 November 2001 09:33  |
Chad Bahrmann
Messages: 7
Registered: September 2001
|
Junior Member |
|
|
Yes...I did notice the problem when putting in 1,2,3 or say 57,58,59...would
give you 0-59....Thanks for your input...
Chad
"Todd" <mole6e23@hotmail.com> wrote in message
news:ba9815e2.0111210857.45c58c00@posting.google.com...
>> function time2str, x
>
> Chad -
>
> I took the liberty of adding to your program a little. Notice that if
> you put in:
>
> IDL> print, time2str( [1,2,3] )
>
> you'd get back '0-59'. My revised function below fixes this and adds
> support for all ranges (with a min and max keyword so you can set your
> time2str function up). It also removes duplicate elements, and sorts
> the array. I also got rid of all the calls to strtrim, and replaced
> them with one call to strcompress at the end.
>
> Todd
>
> --
>
> function time2str, x
> return, getnumberrange( x, min=0, max=59 )
> end ;; time2str
>
> function getnumberrange, x, min=min, max=max
> if( n_elements( x ) eq 0 ) then return, ''
>
> tempX = x
> if( n_elements( min ) gt 0 ) then begin
> good = where(tempX ge min[0], ngood )
> if( ngood gt 0 ) then $
> tempX = tempX[good] $
> else return, ''
> endif
>
> if( n_elements( max ) gt 0 ) then begin
> good = where(tempX le max[0], ngood )
> if( ngood gt 0 ) then $
> tempX = tempX[good] $
> else return, ''
> endif
>
> newX = tempX[uniq( tempX, sort(tempX) )]
>
> ;; No unique elements, just return first element
> if( n_elements( newX ) eq 1 ) then return, strtrim( tempX[0],2 )
>
> ;; See which elements in new X differ by only 1 (they will become
> ;; part of a range of numbers)
> dx=(newX-shift(newX,1))[1:*]
>
> ;; Get number of elements where spread is greater than 1
> ;; (non-contiguous elements)
> l=where(dx ne 1)
>
> outStr=''
> nl=n_elements(l)
> nx=n_elements(newX)
>
> if l[0] eq -1 then outStr=string( newX[0],'-',newX[nx-1]) else begin
> if l[0] eq 0 then outStr=string(newX[0])+','
> if l[0] ne 0 then $
> outStr=string(newX[0])+'-'+string(newX[l[0]])+','
> for i=0, nl-2 do begin
> if ((l[i+1]-l[i]) gt 1) then begin
>
outStr=outStr+string(newX[l[i]+1])+'-'+string(newX[l[i+1]])+ ','
> endif else begin
> outStr=outStr+string(newX[l[i+1]])+','
> endelse
> endfor
> if (nx-1)-l[(nl-1)] eq 1 then $
> outStr=outStr+string(newX[nx-1]) else $
> outStr=outStr+string(newX[(l[nl-1])+1])+'-'+string(newX[nx-1 ])
> endelse
> return, strcompress(outStr, /remove_all)
> end ;; getnumberrange
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
