Need help in a range string formation logic

[muralisankarr]

Hi,

We need to form a range pattern to the stings we have. For example

213,001,052,219,220,221v,051,106,102,210,212,103,101,104,211,105,201,202,203,204,205,206,207,208,209,214,215,216,217,218
Should be converted to range pattern as below
001,051-052,101-106,201-221
The input string is sorted and ranges are formed on continuous set of values.

I don't want to go for transformer substringing, horizontal pivot, sort, vertical pivot and remove duplicate stages to handle this as the quantum of jobs where I have to implement this is quite high. Even container with RCP is not a very good option as the computation will be high in multiple instances. Other way I think is stored procedure stage or parallel routine. I don't have c++ skill set. So it is not possible to write any px routines.

If you have some idea to deal with it please suggest

Many Thanks
MSR

[ArndW]

I have had a tough day at work doing some complex modifications and needed a break, so I wrote a quite BASIC routine to do this. If you use a BASIC transform stage and call up

MakeRangeString(InString)

Code: Select all

****************************************************************************************************************************************************************
** Make a range list out of a comma separated list of numeric values.                                                                                         **
**                                                                                                                                                            **
** Version Date       Programmer           Comments                                                                                                           **
** ======= ========== ==================== ================================================================================================================== **
** 1.0.0   2010-07-06 A. Wussing           Initial Version                                                                                                    **
**                                                                                                                                                            **
****************************************************************************************************************************************************************
   ** Declare include files and constants                                                                                                                     **
   *************************************************************************************************************************************************************
   EQUATE ProgramName  TO "MakeRange"                   ;** Job name to display in DSLog(Info/Warn/Fatal) calls.                                              **
   EQUATE Delimiter    TO ","                           ;** delimiter used in string.                                                                         **
   $COPYRIGHT "(c) 2010 -FreeWare-, no rights reserved" ;** additional Copyright notice put into object code.                                                 **
   $UNDEFINE DebugSwitch                                ;** Debugging turned on or off depending on whether $DEFINE or $UNDEFINE is set here.                 **
                                                        ;*******************************************************************************************************
   WorkString = CONVERT(Delimiter,@FM,InString) ;** make a copy of the parameter
   ************************************
   ** First step is to sort the data **
   ************************************
   Top = DCOUNT(WorkString,@FM)-1
   $IFDEF DebugSwitch CALL DSLogInfo('Entering Bubble Sort with ':Top:' Entries in dynamic sort array.',ProgramName) $ENDIF
   IF Top > 0
   THEN
      DataHasChanged = 1 ;** set to true so we enter the main loop
      LOOP WHILE DataHasChanged
         DataHasChanged = 0 ;** assume that we didn't switch any rows this loop iteration
         FOR RowNum = 1 TO Top
            IF WorkString<RowNum> > WorkString<RowNum+1>
            THEN
               $IFDEF DebugSwitch CALL DSLogInfo('Switching Entries ':i:' and ':i+1:' (Sort).',ProgramName) $ENDIF
               Temp                  = WorkString<RowNum>   ;************************************
               WorkString<RowNum>    = WorkString<RowNum+1> ;** switch the two elements around **
               WorkString<RowNum+1>  = Temp                 ;**                                **
               DataHasChanged = 1                           ;************************************
            END
         NEXT RowNum
         Top -= 1 ;** highest entry can be skipped next time around
      REPEAT
   END ;** of if-then we need to sort, i.e. if there are 2 or more rows in the data
   *************************************************************
   ** Now that we have an ordered list, create the range list **
   *************************************************************
   Ans = '' ;** empty output string
   CurrentRangeStart = WorkString<1> ;** start at the first element
   CurrentRangeEnd   = WorkString<1> ;** same as the start
   FOR i = 2 TO Top+1
      IF WorkString<i> = CurrentRangeEnd+1
      THEN
         CurrentRangeEnd += 1
      END
      ELSE
         ************************************
         ** Not adjacent, so add to output **
         ************************************
         IF CurrentRangeStart=CurrentRangeEnd THEN Ans<-1> = CurrentRangeStart
                                              ELSE Ans<-1> = CurrentRangeStart:'-':CurrentRangeEnd
         CurrentRangeStart = WorkString<i> ;** start at current element
         CurrentRangeEnd   = WorkString<i> ;** same as the start
      END ;** of if-then-else new element is adjacent to old
   NEXT i
   Ans = CONVERT(@FM,Delimiter,Ans) ;** reconvert back to original format.

[chulett]

So... this is how you take a break, eh?

[muralisankarr]

Many thanks AndW. I have started analyzing the code as I have issues with string like one discreet chain. For example 1,2,3 to 1-3 or 1,2 to 1-2 or 1 to 1. I will post the modified code here. Many thanks for your time and baseline code. I can't imagine being employed in a ds job with out dsxchange :D

[ray.wurlod]

So... this is how you take a break, eh?

You orta see how he navigates his boat!!!

[ArndW]

I should add that I did a quickie bubble sort last week and just used that code, but I was interested in how I would solve the range logic and happened to have a designer open.

I'm not sure what you mean by "have issues with string like one discreet chain". The code uses the variables "CurrentRangeStart" and "CurrentRangeEnd"; when they are identical it means the range is just one, if they are not then it is a x-y range.