ArrayArrayArrayArrayArrayArray BrainModular BrainModular Users Forum 2011-03-06T13:38:57+02:00 https://www.brainmodular.com/forums/app.php/feed/topic/2744 2011-03-06T13:38:57+02:00 2011-03-06T13:38:57+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18495#p18495 <![CDATA[[script) Remove element from commatext]]>
Thanks anyway.

Statistics: Posted by ethnix73 — 06 Mar 2011, 12:38

]]> 2011-03-04T14:12:06+02:00 2011-03-04T14:12:06+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18411#p18411 <![CDATA[[script) Remove element from commatext]]> Statistics: Posted by bsork — 04 Mar 2011, 13:12

]]> 2011-03-03T17:39:55+02:00 2011-03-03T17:39:55+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18364#p18364 <![CDATA[[script) Remove element from commatext]]>
I tried delete but i have yet big difficulties with script syntax....

So, here is the good script for "Remove commatext elt":
/////////////////////////////////////////////
// Remove Comma text element
////////////////////////////////////////////

// parameters declaration
var input : Tparameter;
var nth : Tparameter;
var output : Tparameter;
var sl1 : TStringList;


// destroy
procedure Destroy;
begin
sl1.free;

end;

// initialisation : create parameters
procedure init;
begin
SetModuleColor($808080+302060);
Input := CreateParam('in',ptTextField);
SetIsOutPut(Input,false);
nth := CreateParam('num',ptdataField);
SetIsOutPut(nth,false);
SetMin(nth,0);
SetMax(nth,MAXINT);
SetFormat(nth,'%.0f');
output := CreateParam('out',ptTextField);
SetIsInPut(Output,false);
Sl1 := TStringList.Create;

end;


procedure Callback(n:integer);
var idx : integer;
var result : string;
begin
Sl1.CommaText := GetStringValue(Input);
idx := round(GetValue(nth));
if (idx>=0)
and (idx<SL1.count)
then Sl1.Delete(idx);
SetStringValue(Output, Sl1.CommaText);
// strace(GetStringValue(outPut));
end;

// no process bloc

Statistics: Posted by ethnix73 — 03 Mar 2011, 16:39

]]> 2011-03-03T16:46:12+02:00 2011-03-03T16:46:12+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18361#p18361 <![CDATA[[script) Remove element from commatext]]>

CODE: 

Sl1.Delete&#40;idx&#41;;SetStringValue&#40;Output, Sl1.CommaText&#41;;

Statistics: Posted by bsork — 03 Mar 2011, 15:46

]]> 2011-03-03T16:31:31+02:00 2011-03-03T16:31:31+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18360#p18360 <![CDATA[[script) Remove element from commatext]]>
/////////////////////////////////////////////
// Get Comma text element
////////////////////////////////////////////

// parameters declaration
var input : Tparameter;
var nth : Tparameter;
var output : Tparameter;
var sl1 : TStringList;


// destroy
procedure Destroy;
begin
sl1.free;

end;

// initialisation : create parameters
procedure init;
begin
SetModuleColor($808080+302060);
Input := CreateParam('in',ptTextField);
SetIsOutPut(Input,false);
nth := CreateParam('num',ptdataField);
SetIsOutPut(nth,false);
SetMin(nth,0);
SetMax(nth,MAXINT);
SetFormat(nth,'%.0f');
output := CreateParam('out',ptTextField);
SetIsInPut(Output,false);
Sl1 := TStringList.Create;

end;


procedure Callback(n:integer);
var idx : integer;
var result : string;
begin
Sl1.CommaText := GetStringValue(Input);
idx := round(GetValue(nth));
if (idx>=0)
and (idx<SL1.count)
then result := SL1.Strings[idx]
else result := '';
SetStringValue(Output,result);
// strace(GetStringValue(outPut));
end;

// no process bloc

Statistics: Posted by ethnix73 — 03 Mar 2011, 15:31

]]> 2011-03-03T16:26:34+02:00 2011-03-03T16:26:34+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18359#p18359 <![CDATA[[script) Remove element from commatext]]>
I just want to get an element from a commatext, and remove it. The goal is to get the commatext from a list box, and being able to remove the selected element from the list.....

Any script guru who could help me?

Statistics: Posted by ethnix73 — 03 Mar 2011, 15:26

]]> BrainModular BrainModular Users Forum 2011-03-06T13:38:57+02:00 https://www.brainmodular.com/forums/app.php/feed/topic/2744 2011-03-06T13:38:57+02:00 2011-03-06T13:38:57+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18495#p18495 <![CDATA[[script) Remove element from commatext]]>
Thanks anyway.

Statistics: Posted by ethnix73 — 06 Mar 2011, 12:38

]]> 2011-03-04T14:12:06+02:00 2011-03-04T14:12:06+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18411#p18411 <![CDATA[[script) Remove element from commatext]]> Statistics: Posted by bsork — 04 Mar 2011, 13:12

]]> 2011-03-03T17:39:55+02:00 2011-03-03T17:39:55+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18364#p18364 <![CDATA[[script) Remove element from commatext]]>
I tried delete but i have yet big difficulties with script syntax....

So, here is the good script for "Remove commatext elt":
/////////////////////////////////////////////
// Remove Comma text element
////////////////////////////////////////////

// parameters declaration
var input : Tparameter;
var nth : Tparameter;
var output : Tparameter;
var sl1 : TStringList;


// destroy
procedure Destroy;
begin
sl1.free;

end;

// initialisation : create parameters
procedure init;
begin
SetModuleColor($808080+302060);
Input := CreateParam('in',ptTextField);
SetIsOutPut(Input,false);
nth := CreateParam('num',ptdataField);
SetIsOutPut(nth,false);
SetMin(nth,0);
SetMax(nth,MAXINT);
SetFormat(nth,'%.0f');
output := CreateParam('out',ptTextField);
SetIsInPut(Output,false);
Sl1 := TStringList.Create;

end;


procedure Callback(n:integer);
var idx : integer;
var result : string;
begin
Sl1.CommaText := GetStringValue(Input);
idx := round(GetValue(nth));
if (idx>=0)
and (idx<SL1.count)
then Sl1.Delete(idx);
SetStringValue(Output, Sl1.CommaText);
// strace(GetStringValue(outPut));
end;

// no process bloc

Statistics: Posted by ethnix73 — 03 Mar 2011, 16:39

]]> 2011-03-03T16:46:12+02:00 2011-03-03T16:46:12+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18361#p18361 <![CDATA[[script) Remove element from commatext]]>

CODE: 

Sl1.Delete&#40;idx&#41;;SetStringValue&#40;Output, Sl1.CommaText&#41;;

Statistics: Posted by bsork — 03 Mar 2011, 15:46

]]> 2011-03-03T16:31:31+02:00 2011-03-03T16:31:31+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18360#p18360 <![CDATA[[script) Remove element from commatext]]>
/////////////////////////////////////////////
// Get Comma text element
////////////////////////////////////////////

// parameters declaration
var input : Tparameter;
var nth : Tparameter;
var output : Tparameter;
var sl1 : TStringList;


// destroy
procedure Destroy;
begin
sl1.free;

end;

// initialisation : create parameters
procedure init;
begin
SetModuleColor($808080+302060);
Input := CreateParam('in',ptTextField);
SetIsOutPut(Input,false);
nth := CreateParam('num',ptdataField);
SetIsOutPut(nth,false);
SetMin(nth,0);
SetMax(nth,MAXINT);
SetFormat(nth,'%.0f');
output := CreateParam('out',ptTextField);
SetIsInPut(Output,false);
Sl1 := TStringList.Create;

end;


procedure Callback(n:integer);
var idx : integer;
var result : string;
begin
Sl1.CommaText := GetStringValue(Input);
idx := round(GetValue(nth));
if (idx>=0)
and (idx<SL1.count)
then result := SL1.Strings[idx]
else result := '';
SetStringValue(Output,result);
// strace(GetStringValue(outPut));
end;

// no process bloc

Statistics: Posted by ethnix73 — 03 Mar 2011, 15:31

]]> 2011-03-03T16:26:34+02:00 2011-03-03T16:26:34+02:00 https://www.brainmodular.com/forums/viewtopic.php?t=2744&p=18359#p18359 <![CDATA[[script) Remove element from commatext]]>
I just want to get an element from a commatext, and remove it. The goal is to get the commatext from a list box, and being able to remove the selected element from the list.....

Any script guru who could help me?

Statistics: Posted by ethnix73 — 03 Mar 2011, 15:26

]]>