BrainModular

[script] splitting comma text

2010-03-09T01:03:53+02:00

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!

Statistics: Posted by 23fx23 — 09 Mar 2010, 00:03

[script] splitting comma text

2010-01-06T11:55:28+02:00

nice script, thanks!

Statistics: Posted by amiga909 — 06 Jan 2010, 10:55

[script] splitting comma text

2010-01-06T11:31:01+02:00

I will check that ,cool thanks for sharing.

Statistics: Posted by 23fx23 — 06 Jan 2010, 10:31

[script] splitting comma text

2010-01-06T10:55:50+02:00

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

CODE:

/// 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 parametersprocedure 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

Statistics: Posted by woodslanding — 06 Jan 2010, 09:55

[script] splitting comma text

2010-01-05T11:34:41+02:00

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:

Statistics: Posted by 23fx23 — 05 Jan 2010, 10:34

[script] splitting comma text

2010-01-05T11:04:35+02:00

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

Statistics: Posted by woodslanding — 05 Jan 2010, 10:04

[script] splitting comma text

2010-03-09T01:03:53+02:00

Statistics: Posted by 23fx23 — 09 Mar 2010, 00:03

[script] splitting comma text

2010-01-06T11:55:28+02:00

nice script, thanks!

Statistics: Posted by amiga909 — 06 Jan 2010, 10:55

[script] splitting comma text

2010-01-06T11:31:01+02:00

I will check that ,cool thanks for sharing.

Statistics: Posted by 23fx23 — 06 Jan 2010, 10:31

[script] splitting comma text

2010-01-06T10:55:50+02:00

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

CODE:

/// 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 parametersprocedure 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

Statistics: Posted by woodslanding — 06 Jan 2010, 09:55

[script] splitting comma text

2010-01-05T11:34:41+02:00

Statistics: Posted by 23fx23 — 05 Jan 2010, 10:34

[script] splitting comma text

2010-01-05T11:04:35+02:00

Statistics: Posted by woodslanding — 05 Jan 2010, 10:04