Parse a string like "1-5,10,21,25-30"

[icymint3]

function parseSet(set) {
    var result = [], lastIndex = 0, list = set.split(',');
    for (var i = 0, len = list.length; i < len; i++) {
            var range = list[i].split('-');
            if (range.length == 1) result[lastIndex++] = range[0] - 0;
            else for (var num = range[0] - 0, max = range[1] - 0; num <= max; num++) result[lastIndex++] = num;
    }
    return result;
}

parseSet("1,2,3,17,81,8-17,11,12,21-23,99,100-103");

[ramesh]

icymint3, are you sure that code is in VB? That looks more like C.....

[icymint3]

sorry, that was javascript... i just did it in my browser, couldnt bother fire up my IDE to do VB, im not a fan of VB either

[girldemsuga]

Your code is less but you didn't check for duplications.
When I was constructing the function, I could have done that part in another function but I wanted this function to be self reliant.

[digimon]

Unuh idle eh?

.

[girldemsuga]

What is so idle about what being discussed (not attacking, just asking)?

[Skele Drew]

I run many error checks and ensure the same value is not inserted more than once.
That may account for the larger code.

I am interested in seeing what your version of this looks like.

$chapters = StringSplit( $chapters, "," )

For $inc = 1 To $chapters[ 0 ]
	$curChap = $chapters[ $inc ]
	
	If StringInStr( $curChap, "-" ) Then
		$curChap = StringSplit( $curChap, "-" )
		
		For $inc2 = $curChap[ 1 ] To $curChap[ 2 ]
			FileWriteLine( $dlLog, "Grabbing chapter " & $inc2 )
			GetChap( $inc2, $firstPage )
		Next
		
	Else
		FileWriteLine( $dlLog, "Grabbing chapter " & $curChap )
		GetChap( $curChap, $firstPage )
	EndIf
Next

Felt lazy, so I just ripped the relevant code from my AutoIt3 script and removed a few comments and unrelated statements. All you'd need to do is zap the GetChap function and use it's first argument to build your array. 12 lines , easy to convert to VB since they're both BASIC descendants.

function parseSet(set) {
    var result = [], lastIndex = 0, list = set.split(',');
    for (var i = 0, len = list.length; i < len; i++) {
            var range = list[i].split('-');
            if (range.length == 1) result[lastIndex++] = range[0] - 0;
            else for (var num = range[0] - 0, max = range[1] - 0; num <= max; num++) result[lastIndex++] = num;
    }
    return result;
}

parseSet("1,2,3,17,81,8-17,11,12,21-23,99,100-103");

icymint3, you're cheating . Not because it's a free-form language, the code should be easily readable. You should've broken those into logical lines (giving you 13+ lines )...

Unuh idle eh?

.

Are you saying that programming is idling? (I for one am ready to attack...)

[icymint3]

void main(){ 
  char set[] = "1,3,5-7,9,11,23-27,30", currChar, *lowerRange = set, *upperRange = set;
  int low, hi, i = 0;  
  do{
    currChar = set[i]; // get the char before we destroy the original string
    if(currChar == '-'){        // check if we need a pointer to second number
      upperRange = &set[i] + 1; // point upper to next char
      set[i] = 0;               // end the lower range string 
    }
    if(currChar == ',' || set[i + 1] == 0){  // check for comma or end of string
      if(currChar == ',') set[i] = 0;        // end the 'number string'
      for(low = atoi(lowerRange), hi = atoi(upperRange); low <= hi; low++)
        printf("%d, ", low);
      lowerRange = upperRange = &set[i] + 1; // point lower/upper to next char
    }
  } while(set[++i] != 0);
}

[icymint3]

C# ... this would be shorter with Linq

public static void RunSnippet()
{
	string set = "1,3,5-7,9,11,23-27,30";
	string[] range;
	int low, hi;
	
	foreach(string entry in set.Split(','))
		for(range = entry.Split('-'), low = int.Parse(range[0]), hi = int.Parse(range[range.Length -1]); low <= hi ; low++)
				W("{0}, ", low); 
}