Yet Another Random TD Blog...: split

Showing posts with label split. Show all posts

Tuesday, 21 February 2012

Mel: Query part of a string, given its index and separator: PART 3

Update from PART 2.
Thanks to Viktoras Makauskas for the suggestions and link.

// get an item from a string given the string, separator and index range
// ld_getName "L_test_me_out_bind_jnt" "_" 2 -2 ;
global proc string ld_getName(string $obj,string $separator,int $start,int $end)
{
    string $buffer[],$name ;
    int $numTokens=`tokenize $obj $separator $buffer` ;
    if($start<0)
        $start=$numTokens+$start ;
    if($end<0)
        $end=$numTokens+$end ;
    if($start<0 || $start>=$numTokens || $end<0 || $end>=$numTokens || $start>$end)
        return "" ;
    $name=$buffer[$start] ;
    for($n=($start+1);$n<=$end;$n++)
        $name+=$separator+$buffer[$n] ;
    return $name ;
}

Changes include:
1. Separating the indexing to individual ints instead of a string that needs to get split.
2. Using the indexes to specify the token, not the separator.
3. More error checking.
Main difference is 0 -1 will now return the entire string rather than all but the last token (as it does in Python), mainly for functionality due to the removal of the colon. Can still return one item using the same int (ie the last token would be -1 -1).

Monday, 20 February 2012

Mel: Query part of a string, given its index and separator: PART 2

Update to previous post (here), needed to grab a range of items from a string given a separator and index/range (supports reverse and extended indexing).
I do have a horribly sneaky suspicion there is already a built in command for this...
Will work with ranges given as "0", "-1", "0:","-2:", ":2", ":-2", "1:3" and "-3:-1" etc.

// get an item from a string given the string, separator and index number/range as string (supports reverse indexing)
//ld_getName "L_test_me_out_bind_jnt" "_" "2:-1" ;
global proc string ld_getName(string $obj,string $separator,string $index)
{
    string $mulBuffer[],$indBuffer[],$name ;
    int $range[],$start,$end ;
    tokenize $index ":" $mulBuffer ;
    $range[0]=int($mulBuffer[0]) ;
    if(startsWith($index,":"))
    {
        $mulBuffer[1]=$range[0] ;
        $range[0]=0 ;
    }
    else if(endsWith($index,":"))
        $mulBuffer[1]=-1 ;
    tokenize $obj $separator $indBuffer ;
    $start=$range[0] ;
    if($range[0]<0)
        $start=size($indBuffer)-(abs($range[0])) ;
    if(size($mulBuffer)>1)
    {
        $range[1]=int($mulBuffer[1]) ;
        $end=$range[1] ;
        if($range[1]<0)
            $end=size($indBuffer)-abs($range[1]) ;
        if($end>(size($indBuffer)-1))
            return "" ;
        $name=$indBuffer[$start] ;
        for($n=($start+1);$n<$end;$n++)
            $name+=$separator+$indBuffer[$n] ;
    }
    else
    {
        if($start<0)
            $name=$indBuffer[size($indBuffer)-int(abs($start))] ;
        else
            $name=$indBuffer[$start] ;
    }
    return $name ;
}

Would appreciate any feedback (I know how much simpler this is in python, was curious how simple it was to do in mel).
Python, i think, would handle like this:
"L_test_me_out_bind_jnt".split("_")[2:-1]

Thursday, 16 February 2012

Mel: Query part of a string, given its index and separator

UPDATE: Updated version with better functioning here.
I realised how often I was using a mix of the tokenize, startString and endString to get sections of a string, whether the start or end (various ways) or the middle (ie getting the side "L_*" or "R_*" or type of object "*_ctrl" "*_bind_jnt") etc, and I loved the way python handles this instead (especially the reverse indexing) so I come up with this.

global proc string ld_getName(string $obj,string $separator,int $index)
{
    string $buffer[],$name ;
    tokenize $obj $separator $buffer ;
    if($index<0)
        $name=$buffer[size($buffer)-int(abs($index))] ;
    else
        $name=$buffer[$index] ;
    return $name ;
}

//ld_getName "L_test_me_out_ctrl" "_" -1 ;

EDIT: Changed positive indexing to match 0 = start, -1 = end

Saturday, 7 January 2012

Mel/Python: Splitting a string by a string (tokenize vs .split)

I know its only a small post and I don't go into detail, more of an outline... it really did bug me was how there are no expressions for tokenize.
I spent a bit of time trying to split a string (ie "L_clavicle_bind_jnt") by with the string "_bind_".
What I found with using tokenize was that it will split the string by the characters instead of the entire string, which to me, was a pain in the backside as I wanted {"L_clavicle","jnt"} but what i'd get with tokenize was {"L,"clav","cle","j","t"}. Now this wouldn't do, and I could find any out of the box way of doing this (I wanted to replace "_bind_" with "_IK_", etc to search), so I ended up turning to python (yet again).
It couldn't be simplier.
"L_clavicle_bind_jnt".split("_bind_")
Which translated as -
python("'"+$child+"'.split('_"+$namespace+"_')") ;
Thinking about it now, im sure there is a command to do this in mel, I just cant find it...