BrainModular

path for writing to file script

2016-12-15T12:01:03+02:00

Yes,

To be clear, before I disappear down this rabbit hole, is there no way to store string data per preset using the existing usine preset system?

I tried with the basic text widgets, but their text data is not stored with the preset.

textfield do save and recall their text with presets actually, man just have to check 'saved in preset' on module properties wich is off by default.

text pannel don't, but alternatively, as text is array, adding an array display or set out of any text element will be saved/recall in preset

Statistics: Posted by 23fx23 — 15 Dec 2016, 11:01

path for writing to file script

2016-12-14T23:47:00+02:00

Okay, so not a rabbit hole. In fact, I'll be storing a ton of data this way, I think, unless there is some big cpu penalty or something.....

Here's a more useful script than the default, which will try to write to a folder you probably don't have permission for, which makes it a poor example!

thanks all!!

CODE:

//////////////////////////// write text File, eric moon remix/////////////////////////// declarationconst filenameDefault = 'writeFileText.txt';  var filenameIN,folderIN,textIN : Tparameter; var st   : TStringList;  var filename : string;                        // initialisation : create parametersprocedure init;var i : integer;begin                                                    textIN := CreateParam('text',ptTextField);  SetIsOutPut(textIN,false);     folderIN := CreateParam('folder',ptTextField);  SetIsOutPut(folderIN,false);   filenameIN := CreateParam('file name',ptTextField);  SetStringValue(filenameIN,getApplicationPath + filenameDefault);  SetIsOutPut(filenameIN,false);                   end;  // save procedure SaveToTextFile;begin  st.create;    st.add(GetStringValue(textIN));      st.SaveToFile(filename);  st.free;     end;                 // Callbackprocedure callBack(n:integer);begin   if ((n = filenameIN) or (n = folderIN)) then begin        filename := getApplicationPath() + 'config'         + getStringValue(folderIN) + ''        + GetStringValue(filenameIN) + '.txt';      end  else if (n = textIN) then begin      SaveToTextFile;   end;end;

Statistics: Posted by woodslanding — 14 Dec 2016, 22:47

path for writing to file script

2016-12-14T23:13:31+02:00

Yes, that's what I started with. But it uses a hard coded file path, which is not helpful at all.

To be clear, before I disappear down this rabbit hole, is there no way to store string data per preset using the existing usine preset system?

I tried with the basic text widgets, but their text data is not stored with the preset.

Hmmm, maybe a list where the preset recalls the line associated with that preset.....??

might end up being more complicated than scripting, with a number of different text elements.....

Statistics: Posted by woodslanding — 14 Dec 2016, 22:13

path for writing to file script

2016-12-14T14:00:13+02:00

there's a script example that tackle this :

//////////////////////////
// write text File
/////////////////////////
// declaration

const filenameDefault = 'c:speak.txt';
var fname,input : Tparameter;
var st : TStringList;

// save
procedure SaveToTextFile;
begin
st.create;
st.add(GetStringValue(input));
st.SaveToFile(GetStringValue(fname));
st.free;
end;

// Callback
procedure callBack(n:integer);
begin
SaveToTextFile;
end;

// initialisation : create parameters
procedure init;
var i : integer;
begin

Input := CreateParam('in',ptTextField);
SetIsOutPut(Input,false);
fname := CreateParam('file name',ptTextField);
SetStringValue(fname,filenameDefault);
SetIsOutPut(fname,false);
end;

Statistics: Posted by oli_lab — 14 Dec 2016, 13:00

path for writing to file script

2016-12-14T11:47:23+02:00

your right 23fx23,

I've also run into that same problem.
I've had other oddities besides file writing putting Usine in my program files folders too.
Since then I've always ran direct desktop, at the root in a folder, or on an external drive.

Another side-note is that if you raise the administrative privileges you run into drag and drop problems between applications.

-s

Statistics: Posted by sephult — 14 Dec 2016, 10:47

path for writing to file script

2016-12-14T09:44:13+02:00

ive notice while back sometimes on windows had to run usine as admin also to get authorisations to write in some special folders, to usine subs shouldn't be a problem

Statistics: Posted by 23fx23 — 14 Dec 2016, 08:44

path for writing to file script

2016-12-14T02:21:07+02:00

function GetApplicationPath:string; //give the absolute path of the current Usine's folder

It's in the wiki under declarations and references. There is a file section.
You could just concat the remaining CONFIG to the directory.

Statistics: Posted by sephult — 14 Dec 2016, 01:21

path for writing to file script

2016-12-14T01:44:59+02:00

I'm using the write to file script, and it's insisting on writing to the root of G: Which it can't find, although I do have a g drive at the moment. but it's nowhere I want to write the file.....

Is there a way to point it to the home directory of HH, rather than using an absolute path?

Like to read and write to/from the HH directory somewhere, preferably within CONFIG.....

Statistics: Posted by woodslanding — 14 Dec 2016, 00:44

path for writing to file script

2016-12-15T12:01:03+02:00

Yes,

To be clear, before I disappear down this rabbit hole, is there no way to store string data per preset using the existing usine preset system?

I tried with the basic text widgets, but their text data is not stored with the preset.

Statistics: Posted by 23fx23 — 15 Dec 2016, 11:01

path for writing to file script

2016-12-14T23:47:00+02:00

CODE:

//////////////////////////// write text File, eric moon remix/////////////////////////// declarationconst filenameDefault = 'writeFileText.txt';  var filenameIN,folderIN,textIN : Tparameter; var st   : TStringList;  var filename : string;                        // initialisation : create parametersprocedure init;var i : integer;begin                                                    textIN := CreateParam('text',ptTextField);  SetIsOutPut(textIN,false);     folderIN := CreateParam('folder',ptTextField);  SetIsOutPut(folderIN,false);   filenameIN := CreateParam('file name',ptTextField);  SetStringValue(filenameIN,getApplicationPath + filenameDefault);  SetIsOutPut(filenameIN,false);                   end;  // save procedure SaveToTextFile;begin  st.create;    st.add(GetStringValue(textIN));      st.SaveToFile(filename);  st.free;     end;                 // Callbackprocedure callBack(n:integer);begin   if ((n = filenameIN) or (n = folderIN)) then begin        filename := getApplicationPath() + 'config'         + getStringValue(folderIN) + ''        + GetStringValue(filenameIN) + '.txt';      end  else if (n = textIN) then begin      SaveToTextFile;   end;end;

Statistics: Posted by woodslanding — 14 Dec 2016, 22:47

path for writing to file script

2016-12-14T23:13:31+02:00

Statistics: Posted by woodslanding — 14 Dec 2016, 22:13

path for writing to file script

2016-12-14T14:00:13+02:00

Statistics: Posted by oli_lab — 14 Dec 2016, 13:00

path for writing to file script

2016-12-14T11:47:23+02:00

Statistics: Posted by sephult — 14 Dec 2016, 10:47

path for writing to file script

2016-12-14T09:44:13+02:00

ive notice while back sometimes on windows had to run usine as admin also to get authorisations to write in some special folders, to usine subs shouldn't be a problem

Statistics: Posted by 23fx23 — 14 Dec 2016, 08:44

path for writing to file script

2016-12-14T02:21:07+02:00

Statistics: Posted by sephult — 14 Dec 2016, 01:21

path for writing to file script

2016-12-14T01:44:59+02:00

Statistics: Posted by woodslanding — 14 Dec 2016, 00:44