BrainModular

[script] stripping quotes, preferred method?

2010-01-20T09:58:33+02:00

well, I kludged a workaround. Still not sure how you send a switch output from the callback loop.... you need to send a 1 and then a 0 sometime later. What is a working method for this??

Well, I ended up putting in an 'open' input that resets the value of close whenever the combo is open. Not so elegant, but it works.

I will post this to addons once V5 is out....

Statistics: Posted by woodslanding — 20 Jan 2010, 08:58

[script] stripping quotes, preferred method?

2010-01-18T11:19:57+02:00

okay, I redid this with stringlist. WOW< EASY!!!!

I am still having a problem with this script. The automatic closing works fine the first time you use it, but doesn't work after that. So I put a manual close in, but even that has to be clicked twice to work.

It's actually almost a feature. In fact, instead of a close button, I'd like a 'keep open' switch. That makes it easy to browse a number of different selections, and still get quick combobox functionality when you need it.

But I need to figure out how to get data ins and outs working right!

Thanks as always for your AWESOME HELP!!!

I will post this in addons when I get it working right. It's a really nice alternative combobox setup for the touchscreen....

CODE:

/// mondoCombo by emoon///////// mondo combo is designed to turn a bank of switches into a combo box./// it breaks the elements into banks of buttons, and allows paging thru them//////const buttonCount = 32;  // 32const itemMax = 256;     // 256var namesOUT    : array of Tparameter;var triggersIN  : array of Tparameter;var cTextIN     : Tparameter;var nextPg      : Tparameter;var prevPg      : Tparameter;var pageOUT     : Tparameter;var valueOUT    : Tparameter;var stringOUT   : Tparameter;var close       : Tparameter;var stringlist: TStringList;var commatext  : String;var page       : integer;var selection  : integer;var itemCount  : integer;var pageMax    : integer;// destroy  --do we need to worry about destroying the stringlist??  It lasts the life of the prog, so maybe not??// initialisation : create parametersprocedure init;var digit  : string;var i  : integer; begin        cTextIN   := CreateParam('comma text',ptTextField);    SetIsOutput(cTextIN,false);    nextPg   := CreateParam('next page',ptButton);    SetIsOutput(nextPg,false);    prevPg   := CreateParam('prev page',ptButton);    SetIsOutput(prevPg,false);    stringOUT := CreateParam('text out',ptTextField);    SetIsInput(stringOUT,false);         valueOUT := CreateParam('value',ptDataField);    SetIsInput(valueOUT,false);     close := CreateParam('close',ptButton);    SetIsInput(close,false);         setArrayLength(namesOUT, buttonCount);      setArrayLength(triggersIN, buttonCount);      for i := 0 to (buttonCount - 1) do begin        digit := IntToStr(i + 1);        namesOUT[i] := CreateParam('name' + digit,ptTextField);        SetIsInput(namesOUT[i],false);                triggersIN[i] := CreateParam('button' + digit,ptButton);        SetIsOutput(triggersIN[i],false);    end;    pageOUT := CreateParam('page num',ptDataField);    SetIsInput(pageOUT,false);        stringlist := TStringList.create;    page      :=  0;    selection := -1;    itemCount :=  0;    pageMax   :=  0;end;procedure updateButtons;var i : integer;begin    setValue(pageOUT, page + 1);    for i := 0 to (buttonCount - 1) do begin        if ((page * buttonCount) + i) >= itemCount then begin            setStringValue(namesOUT[i], '---');           end else begin                setStringValue(namesOUT[i], stringlist.strings[(page * buttonCount) + i]);        end;    end;end;procedure Callback(n:integer);var charCount : integer;var i : integer;var item : string;var commastring: string;var pos: integer;begin    setValue(close, 0);    // if the user has pressed a button then set the value and close the window    for i:= 0 to buttonCount - 1 do begin        if (n = triggersIn[i]) then begin            if (page * buttonCount) + i < itemCount then begin                setValue(valueOut, i + (page * buttonCount));                setStringValue(stringOUT, stringlist.strings[i + (page * buttonCount)]);                setValue(close, 1);            end;        end;    end;    // if the commaText has changed, reparse the text, and layout the buttons    if (n = cTextIN) then begin        page := 0;  // reset the page number        // split the commaText        commastring := getStringValue(cTextIN); //strace( commastring );        stringlist.CommaText := commastring ;        itemCount := stringlist.Count - 1;                for i := 0 to itemCount do begin            item := stringlist.Strings[i];//strace( item );        end;        pageMax := trunc(itemCount/buttonCount);        updateButtons;            end;    //  if the user has paged, relayout the buttons    if (n = nextPg) and (page < pageMax) then begin         page := page + 1;        updateButtons;    end else if (n = prevPg) and (page > 0) then begin        page := page - 1;        updateButtons;    end;       end;// no process bloc

Statistics: Posted by woodslanding — 18 Jan 2010, 10:19

[script] stripping quotes, preferred method?

2010-01-18T10:50:05+02:00

Wow, great, thanks guys!

on to my next problem!

Statistics: Posted by woodslanding — 18 Jan 2010, 09:50

[script] stripping quotes, preferred method?

2010-01-18T09:33:51+02:00

Thanks for reminding me of TStringList, Martin! I think I can improve some old scripts of mine with that one.

Statistics: Posted by bsork — 18 Jan 2010, 08:33

[script] stripping quotes, preferred method?

2010-01-18T01:48:55+02:00

ok,

i did some research and found the TStringList is what you need

here we go with a simple example

CODE:

//////////////////////////// TStringList example/////////////////////////// parameters declarationvar cTextIN     : Tparameter;var stringlist: TStringList;// initialisation : create parametersprocedure init;begin      cTextIN   := CreateParam('comma text',ptTextField);    SetIsOutput(cTextIN,false);    stringlist := TStringList.create;end;// Global variables// Callbackprocedure Callback(n:integer);var commastring : string;var item : string;var i : integer;begin    if (n = cTextIN) then begin        commastring := getStringValue(cTextIN);         strace( commastring );        stringlist.CommaText := commastring ;        for i := 0 to stringlist.Count-1 do begin            item := stringlist.Strings[i];            strace( item );        end;    end;end;

as you see, it will make your life easier

Statistics: Posted by martignasse — 18 Jan 2010, 00:48

[script] stripping quotes, preferred method?

2010-01-18T00:03:45+02:00

hi woodlanding,

did you try with that ?

CODE:

AdjustLineBreaks(const S: string);

For the doc, if you speak about the new fast script engine, did you see this page ?

and as usine script is nearly direct delphi transcription, a google search with delphi + yourkeyword does a good job.

Hope it help

Statistics: Posted by martignasse — 17 Jan 2010, 23:03

[script] stripping quotes, preferred method?

2010-01-17T23:45:13+02:00

okay, I've figured out that the problem actually comes from an extra return at the end of the textfield I use as input. Then the code works fine.

I tried using trim(getStringValue(commatextIN)) but that does not help. Any clues how to strip a linefeed from the end of a comma text input???

Thanks,
-e

Statistics: Posted by woodslanding — 17 Jan 2010, 22:45

[script] stripping quotes, preferred method?

2010-01-17T23:23:18+02:00

I have been working on an alt-combobox script. Basically, it takes the commatext from a combo or textfield and creates labels for a set of buttons. Then you put it in a popup, and use it as a combo. But you can lay out the buttons however you like, and it has paging buttons so you never have to scroll. When I get it working, I'll post it.

It's working great, except for the code that strips off the quotes. This is (with the most recent version) freezing usine. Any ideas about how better to do this (Bsork??)
The code that is trouble (commenting it out makes the script work fine) is:

CODE:

 if (item[1] = '"') then begin                                        strings[i] := copy(commatext, pos - charCount + 2, charCount - 3);                end else begin                    strings[i] := item;                end;

This worked fine with earlier versions, but the newest usine complains. I know it's not a great solution, but it used to work! There's just not much doc on characters!!

Thanks,
eric

CODE:

/// mondoCombo by emoon///////// mondo combo is designed to turn a bank of switches into a combo box.///  For the moment, we will default to pg 1 each time we start up///const buttonCount = 32;  // 32const itemMax = 256;     // 256var namesOUT    : array of Tparameter;var triggersIN  : array of Tparameter;var cTextIN     : Tparameter;var nextPg      : Tparameter;var prevPg      : Tparameter;var pageOUT     : Tparameter;var valueOUT    : Tparameter;var stringOUT   : Tparameter;var close       : Tparameter;var strings    : array of String;var commatext  : String;var page       : integer;var selection  : integer;var itemCount  : integer;var pageMax    : integer;// destroy// initialisation : create parametersprocedure init;var digit  : string;var i  : integer; begin        cTextIN   := CreateParam('comma text',ptTextField);    SetIsOutput(cTextIN,false);    nextPg   := CreateParam('next page',ptButton);    SetIsOutput(nextPg,false);    prevPg   := CreateParam('prev page',ptButton);    SetIsOutput(prevPg,false);    stringOUT := CreateParam('text out',ptTextField);    SetIsInput(stringOUT,false);         valueOUT := CreateParam('value',ptDataField);    SetIsInput(valueOUT,false);     close := CreateParam('close',ptButton);    SetIsInput(close,false);             setArrayLength(strings, itemMax);    setArrayLength(namesOUT, buttonCount);      setArrayLength(triggersIN, buttonCount);      for i := 0 to (buttonCount - 1) do begin        digit := IntToStr(i + 1);        namesOUT[i] := CreateParam('name' + digit,ptTextField);        SetIsInput(namesOUT[i],false);                triggersIN[i] := CreateParam('button' + digit,ptButton);        SetIsOutput(triggersIN[i],false);    end;    pageOUT := CreateParam('page num',ptDataField);    SetIsInput(pageOUT,false);     page      :=  0;    selection := -1;    itemCount :=  0;    pageMax   :=  0;end;procedure updateButtons;var i : integer;begin    setValue(pageOUT, page + 1);    for i := 0 to (buttonCount - 1) do begin        if ((page * buttonCount) + i) >= itemCount then begin            setStringValue(namesOUT[i], '---');           end else begin                setStringValue(namesOUT[i], strings[(page * buttonCount) + i]);        end;    end;end;procedure Callback(n:integer);var charCount : integer;var i : integer;var item : string;var ch: string;var pos: integer;begin    setValue(close, 0);    // if the user has pressed a button then set the value and close the window    for i:= 0 to buttonCount - 1 do begin        if (n = triggersIn[i]) then begin            if (page * buttonCount) + i < itemCount then begin                setValue(valueOut, i + (page * buttonCount));                setStringValue(stringOUT, strings[i + (page * buttonCount)]);                setValue(close, 1);            end;        end;    end;    // if the commaText has changed, reparse the text, and layout the buttons    if (n = cTextIN) then begin        page := 0;  // reset the page number        // split the commaText        commatext := ' ' + getStringValue(cTextIN) + ',';        i := 0;        charCount := 0;        for pos := 1 to length(commatext) do        begin            ch := copy(commatext,pos,1);                if (ch = ',') then             begin                item := copy(commatext,pos - charCount + 1, charCount - 1);                //if (item[1] = '"') then begin                    // can't handle quotes inside lines of text!!                    //strings[i] := copy(commatext, pos - charCount + 2, charCount - 3);               // end else begin                    strings[i] := item;              //  end;                if (i = length(strings)) then break;                 i := i + 1;                charCount := 0;                       end;            charCount := charCount + 1;                    end;        itemCount := i;        pageMax := trunc(itemCount/buttonCount);        updateButtons;            end;    //  if the user has paged, relayout the buttons    if (n = nextPg) and (page < pageMax) then begin         page := page + 1;        updateButtons;    end else if (n = prevPg) and (page > 0) then begin        page := page - 1;        updateButtons;    end;        end;// no process bloc

Statistics: Posted by woodslanding — 17 Jan 2010, 22:23

[script] stripping quotes, preferred method?

2010-01-20T09:58:33+02:00

Statistics: Posted by woodslanding — 20 Jan 2010, 08:58

[script] stripping quotes, preferred method?

2010-01-18T11:19:57+02:00

CODE:

/// mondoCombo by emoon///////// mondo combo is designed to turn a bank of switches into a combo box./// it breaks the elements into banks of buttons, and allows paging thru them//////const buttonCount = 32;  // 32const itemMax = 256;     // 256var namesOUT    : array of Tparameter;var triggersIN  : array of Tparameter;var cTextIN     : Tparameter;var nextPg      : Tparameter;var prevPg      : Tparameter;var pageOUT     : Tparameter;var valueOUT    : Tparameter;var stringOUT   : Tparameter;var close       : Tparameter;var stringlist: TStringList;var commatext  : String;var page       : integer;var selection  : integer;var itemCount  : integer;var pageMax    : integer;// destroy  --do we need to worry about destroying the stringlist??  It lasts the life of the prog, so maybe not??// initialisation : create parametersprocedure init;var digit  : string;var i  : integer; begin        cTextIN   := CreateParam('comma text',ptTextField);    SetIsOutput(cTextIN,false);    nextPg   := CreateParam('next page',ptButton);    SetIsOutput(nextPg,false);    prevPg   := CreateParam('prev page',ptButton);    SetIsOutput(prevPg,false);    stringOUT := CreateParam('text out',ptTextField);    SetIsInput(stringOUT,false);         valueOUT := CreateParam('value',ptDataField);    SetIsInput(valueOUT,false);     close := CreateParam('close',ptButton);    SetIsInput(close,false);         setArrayLength(namesOUT, buttonCount);      setArrayLength(triggersIN, buttonCount);      for i := 0 to (buttonCount - 1) do begin        digit := IntToStr(i + 1);        namesOUT[i] := CreateParam('name' + digit,ptTextField);        SetIsInput(namesOUT[i],false);                triggersIN[i] := CreateParam('button' + digit,ptButton);        SetIsOutput(triggersIN[i],false);    end;    pageOUT := CreateParam('page num',ptDataField);    SetIsInput(pageOUT,false);        stringlist := TStringList.create;    page      :=  0;    selection := -1;    itemCount :=  0;    pageMax   :=  0;end;procedure updateButtons;var i : integer;begin    setValue(pageOUT, page + 1);    for i := 0 to (buttonCount - 1) do begin        if ((page * buttonCount) + i) >= itemCount then begin            setStringValue(namesOUT[i], '---');           end else begin                setStringValue(namesOUT[i], stringlist.strings[(page * buttonCount) + i]);        end;    end;end;procedure Callback(n:integer);var charCount : integer;var i : integer;var item : string;var commastring: string;var pos: integer;begin    setValue(close, 0);    // if the user has pressed a button then set the value and close the window    for i:= 0 to buttonCount - 1 do begin        if (n = triggersIn[i]) then begin            if (page * buttonCount) + i < itemCount then begin                setValue(valueOut, i + (page * buttonCount));                setStringValue(stringOUT, stringlist.strings[i + (page * buttonCount)]);                setValue(close, 1);            end;        end;    end;    // if the commaText has changed, reparse the text, and layout the buttons    if (n = cTextIN) then begin        page := 0;  // reset the page number        // split the commaText        commastring := getStringValue(cTextIN); //strace( commastring );        stringlist.CommaText := commastring ;        itemCount := stringlist.Count - 1;                for i := 0 to itemCount do begin            item := stringlist.Strings[i];//strace( item );        end;        pageMax := trunc(itemCount/buttonCount);        updateButtons;            end;    //  if the user has paged, relayout the buttons    if (n = nextPg) and (page < pageMax) then begin         page := page + 1;        updateButtons;    end else if (n = prevPg) and (page > 0) then begin        page := page - 1;        updateButtons;    end;       end;// no process bloc

Statistics: Posted by woodslanding — 18 Jan 2010, 10:19

[script] stripping quotes, preferred method?

2010-01-18T10:50:05+02:00

Wow, great, thanks guys!

on to my next problem!

Statistics: Posted by woodslanding — 18 Jan 2010, 09:50

[script] stripping quotes, preferred method?

2010-01-18T09:33:51+02:00

Thanks for reminding me of TStringList, Martin! I think I can improve some old scripts of mine with that one.

Statistics: Posted by bsork — 18 Jan 2010, 08:33

[script] stripping quotes, preferred method?

2010-01-18T01:48:55+02:00

ok,

i did some research and found the TStringList is what you need

here we go with a simple example

CODE:

//////////////////////////// TStringList example/////////////////////////// parameters declarationvar cTextIN     : Tparameter;var stringlist: TStringList;// initialisation : create parametersprocedure init;begin      cTextIN   := CreateParam('comma text',ptTextField);    SetIsOutput(cTextIN,false);    stringlist := TStringList.create;end;// Global variables// Callbackprocedure Callback(n:integer);var commastring : string;var item : string;var i : integer;begin    if (n = cTextIN) then begin        commastring := getStringValue(cTextIN);         strace( commastring );        stringlist.CommaText := commastring ;        for i := 0 to stringlist.Count-1 do begin            item := stringlist.Strings[i];            strace( item );        end;    end;end;

as you see, it will make your life easier

Statistics: Posted by martignasse — 18 Jan 2010, 00:48

[script] stripping quotes, preferred method?

2010-01-18T00:03:45+02:00

hi woodlanding,

did you try with that ?

CODE:

AdjustLineBreaks(const S: string);

Statistics: Posted by martignasse — 17 Jan 2010, 23:03

[script] stripping quotes, preferred method?

2010-01-17T23:45:13+02:00

Statistics: Posted by woodslanding — 17 Jan 2010, 22:45

[script] stripping quotes, preferred method?

2010-01-17T23:23:18+02:00

CODE:

 if (item[1] = '"') then begin                                        strings[i] := copy(commatext, pos - charCount + 2, charCount - 3);                end else begin                    strings[i] := item;                end;

This worked fine with earlier versions, but the newest usine complains. I know it's not a great solution, but it used to work! There's just not much doc on characters!!

Thanks,
eric

CODE:

/// mondoCombo by emoon///////// mondo combo is designed to turn a bank of switches into a combo box.///  For the moment, we will default to pg 1 each time we start up///const buttonCount = 32;  // 32const itemMax = 256;     // 256var namesOUT    : array of Tparameter;var triggersIN  : array of Tparameter;var cTextIN     : Tparameter;var nextPg      : Tparameter;var prevPg      : Tparameter;var pageOUT     : Tparameter;var valueOUT    : Tparameter;var stringOUT   : Tparameter;var close       : Tparameter;var strings    : array of String;var commatext  : String;var page       : integer;var selection  : integer;var itemCount  : integer;var pageMax    : integer;// destroy// initialisation : create parametersprocedure init;var digit  : string;var i  : integer; begin        cTextIN   := CreateParam('comma text',ptTextField);    SetIsOutput(cTextIN,false);    nextPg   := CreateParam('next page',ptButton);    SetIsOutput(nextPg,false);    prevPg   := CreateParam('prev page',ptButton);    SetIsOutput(prevPg,false);    stringOUT := CreateParam('text out',ptTextField);    SetIsInput(stringOUT,false);         valueOUT := CreateParam('value',ptDataField);    SetIsInput(valueOUT,false);     close := CreateParam('close',ptButton);    SetIsInput(close,false);             setArrayLength(strings, itemMax);    setArrayLength(namesOUT, buttonCount);      setArrayLength(triggersIN, buttonCount);      for i := 0 to (buttonCount - 1) do begin        digit := IntToStr(i + 1);        namesOUT[i] := CreateParam('name' + digit,ptTextField);        SetIsInput(namesOUT[i],false);                triggersIN[i] := CreateParam('button' + digit,ptButton);        SetIsOutput(triggersIN[i],false);    end;    pageOUT := CreateParam('page num',ptDataField);    SetIsInput(pageOUT,false);     page      :=  0;    selection := -1;    itemCount :=  0;    pageMax   :=  0;end;procedure updateButtons;var i : integer;begin    setValue(pageOUT, page + 1);    for i := 0 to (buttonCount - 1) do begin        if ((page * buttonCount) + i) >= itemCount then begin            setStringValue(namesOUT[i], '---');           end else begin                setStringValue(namesOUT[i], strings[(page * buttonCount) + i]);        end;    end;end;procedure Callback(n:integer);var charCount : integer;var i : integer;var item : string;var ch: string;var pos: integer;begin    setValue(close, 0);    // if the user has pressed a button then set the value and close the window    for i:= 0 to buttonCount - 1 do begin        if (n = triggersIn[i]) then begin            if (page * buttonCount) + i < itemCount then begin                setValue(valueOut, i + (page * buttonCount));                setStringValue(stringOUT, strings[i + (page * buttonCount)]);                setValue(close, 1);            end;        end;    end;    // if the commaText has changed, reparse the text, and layout the buttons    if (n = cTextIN) then begin        page := 0;  // reset the page number        // split the commaText        commatext := ' ' + getStringValue(cTextIN) + ',';        i := 0;        charCount := 0;        for pos := 1 to length(commatext) do        begin            ch := copy(commatext,pos,1);                if (ch = ',') then             begin                item := copy(commatext,pos - charCount + 1, charCount - 1);                //if (item[1] = '"') then begin                    // can't handle quotes inside lines of text!!                    //strings[i] := copy(commatext, pos - charCount + 2, charCount - 3);               // end else begin                    strings[i] := item;              //  end;                if (i = length(strings)) then break;                 i := i + 1;                charCount := 0;                       end;            charCount := charCount + 1;                    end;        itemCount := i;        pageMax := trunc(itemCount/buttonCount);        updateButtons;            end;    //  if the user has paged, relayout the buttons    if (n = nextPg) and (page < pageMax) then begin         page := page + 1;        updateButtons;    end else if (n = prevPg) and (page > 0) then begin        page := page - 1;        updateButtons;    end;        end;// no process bloc

Statistics: Posted by woodslanding — 17 Jan 2010, 22:23