myScripts/renind.mel at master · bafly/myScripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
global proc string doRenIdxAtPos(string $sel, int $idx, int $pos){

    $bname = `match "[^|]+$" $sel`;
    $spl_chld = `stringToStringArray $bname "_"`;
    $spl_chld[$pos] = `match "[^0-9]+" $spl_chld[$pos]` + $idx;
    $nn = stringArrayToString($spl_chld, "_");
    // print $spl_chld;
    // print "\n";
    string $ren = `rename $sel $nn`;
    return $ren;
}
global proc string[] renidx(int $idx, int $pos){

    string $items[];
    int $i;
    string $lssl[] = `ls -sl`;
    //$sel = $lssl[0];
    for ($sel in $lssl){
        $spl = `stringToStringArray $sel "_"`;
        // get pos
        int $cur_idx;
        if ($pos < 0){
            for ($s=0; $s<size($spl); $s++){
                $sp = $spl[$s];
                $cur_idx = `match "[0-9]+" $sp`;
                if ($cur_idx){
                    $pos = $s;
                    break;
                }
            }
            if ($pos<0)
                $pos = size($spl)-1;
        }
        // get idx
        if (!$idx){
            if (!$cur_idx)
                $cur_idx = `match "[0-9]+" $spl[$pos]`;
            $idx = $cur_idx ? $cur_idx : $cur_idx + 1;

        }

        $chlds = `ls -dag -tr $sel`;
        for ($c=size($chlds)-1; $c>0; $c--){
            $chld = $chlds[$c];
            $items[$i++] = doRenIdxAtPos($chld, $idx, $pos);
        }
    }
    return $items;
}