[script] splitting comma text

[woodslanding]

I'd like to take a comma text input and split it out to seperate outputs. The opposite of concatenate. (I have to name 20 effect returns (20 times!) so I can mix them all together, and it's a huge number of usine objects to name. Like to autoname them from a script.)

Has this been done? I couldn't find an example. Does comma-text have quotes on each element that have to be stripped out? Commas?

I think I can figure it out, but not tonight--too late. But any tips welcome.

Wouldn't be necessary at all if usine mixed busses same as other objects

but this is "not how it's done".

Thanks!
-e

[23fx23]

bsork did a great script for that callled "comma text to separate elements" should be in addons.

or to make it in patch, I usually cascade several list box with same comma in, to each next I add 1 to input.
so that first list ouputs text 1, second text 2 ect, but from same comma in that will update all if changed.

In my square add on I made a system like this:
every bus name is linked to the text output of a list box. all list box receive same comma text from a bus "comma text"
then bus 1 list box is set on 1, bus 2 on 2 ect, update master list will update all as well.
hope it helps.

look like this:

[woodslanding]

here's the answer in case it helps somebody else someday:

Code: Select all

/// commastring splitter by emoon//////

const stringCount = 6;  // if this is too small, it doesn't like it.....

var outputs    : array of Tparameter;
var input      : Tparameter;
var strings    : array of String;
var commatext  : String;

// destroy

// initialisation : create parameters
procedure init;

var digit  : string;
var i  : integer; 

begin
    input := CreateParam('commaText',ptTextField);
    SetIsOutput(input,false);
    
    setArrayLength(strings, stringCount);
    setArrayLength(outputs, stringCount); 
    
    for i := 0 to (stringCount - 1) do begin
        digit := IntToStr(i + 1);
        outputs[i] := CreateParam('String ' + digit,ptTextField);
        SetIsInPut(Outputs[i],false);
    end;
end;



procedure Callback(n:integer);
var charCount : integer;
var i : integer;
var ch: string;
var pos: integer;


begin
     commatext := ' ' + getStringValue(Input) + ',';

     i := 0;
     charCount := 0;
     for pos := 1 to length(commatext) do
     begin
        ch := copy(commatext,pos,1);       
        if (ch = ',') then 
        begin
            strings[i] := copy(commatext,pos - charCount + 1, charCount - 1);
            SetStringValue(Outputs[i],strings[i]);
            strace('in loop ' + strings[i]);
            // a little bounds checking
            if (i = length(strings)) then break; 
            i := i + 1;
            charCount := 0;           
        end;
        charCount := charCount + 1; 
          
     end;       
end;

// no process bloc

[23fx23]

I will check that ,cool thanks for sharing.

[amiga909]

nice script, thanks!

[23fx23]

hey woodslanding, i use a lot your script, i was wondering if you hadn't a reverse version maybe?, from severals text in create a comma text? i make my patch version but it would be more efficient with script i suppose , arf, i reaaly need to dive into!