BrainModular

Save Array to text file ; read array from text file.

2011-03-11T00:21:46+02:00

Really nice Bsork ! I 'll take a look asap.

Hope you had fun writing it !

Thanks you very much.

Statistics: Posted by moody33 — 10 Mar 2011, 23:21

Save Array to text file ; read array from text file.

2011-03-10T23:50:54+02:00

Here is a combined script for reading and writing arrays in text files. No fancy stuff, the only check being a FileExists before reading. Hopefully useful.

CODE:

VAR pArrayIn    : TParameter;VAR pArrayOut   : TParameter;VAR pFileName   : TParameter;VAR pWrite      : TParameter;VAR pRead       : TParameter;PROCEDURE Init;BEGIN   pArrayIn := CreateParam('array in', ptArray); SetIsOutput(pArrayIn, FALSE);   SetMin(pArrayIn, -1000000); SetMax(pArrayIn, 1000000);   pArrayOut := CreateParam('array out', ptArray); SetIsInput(pArrayOut, FALSE);   SetMin(pArrayOut, -1000000); SetMax(pArrayOut, 1000000);   pFileName := CreateParam('file name', ptTextField); SetIsOutput(pFilename, FALSE);   pWrite := CreateParam('write', ptButton); SetIsOutput(pWrite, FALSE);   pRead := CreateParam('read', ptButton); SetIsOutput(pRead, FALSE);END;PROCEDURE Callback(n : Integer);   VAR i : Integer;   VAR list : TStringList;BEGIN   CASE n OF      pWrite : BEGIN                  list := TStringList.Create;                  FOR i := 0 TO (GetLength(pArrayIn) - 1) DO                     list.Add(FloatToStr(GetDataArrayValue(pArrayIn, i)));                  list.SaveToFile(GetStringValue(pFileName));                  list.Free;               END;     pRead   : IF (FileExists(GetStringValue(pFileName))) THEN BEGIN                  list := TStringList.Create;                  list.LoadFromFile(GetStringValue(pFileName));                  SetLength(pArrayOut, list.Count);                  FOR i := 0 TO (list.Count - 1) DO                     SetDataArrayValue(pArrayOut, i, StrToFloat(list[i]));                  list.Free;               END               ELSE                  WriteLn('Couldn''t open file: ' + GetStringValue(pFileName));   END;END; // Callback

Statistics: Posted by bsork — 10 Mar 2011, 22:50

Save Array to text file ; read array from text file.

2011-03-10T08:52:55+02:00

Sorry to be late, but I've sidetracked myself with testing various script-stuff to improve file error handling and string manipulations. I will upload usable scripts without the extra touches tonight.

I haven't actually decided exactly what the extra touches would be either, so new add-ons will have to wait.

Statistics: Posted by bsork — 10 Mar 2011, 07:52

Save Array to text file ; read array from text file.

2011-03-10T00:16:03+02:00

Up...( and down ! )

Statistics: Posted by moody33 — 09 Mar 2011, 23:16

Save Array to text file ; read array from text file.

2011-03-03T09:35:32+02:00

I'll see what I can do during the weekend. I'm not at all surprised that the old script gives errors, as a lot has happened to Usine and the scripting engine since it was made.

Statistics: Posted by bsork — 03 Mar 2011, 08:35

Save Array to text file ; read array from text file.

2011-03-03T02:15:23+02:00

@senso
i've already take a look at the script, but it doesn't seems to correspond to my need since there is no inputs and no ouputs, I don't really understand how to use it.

@Bsork
If you have the time, I'll be happy if you make another one of course. I've already take a look to your former text to data and it seems to content errors ( show in the console ). And it only ouput one value at a time. So , I will wait for another one if possible.

Statistics: Posted by moody33 — 03 Mar 2011, 01:15

Save Array to text file ; read array from text file.

2011-03-03T01:04:07+02:00

As I can remember there is a script in the /modules/scripts which does the job (inspired from the bsork script)

Statistics: Posted by senso — 03 Mar 2011, 00:04

Save Array to text file ; read array from text file.

2011-03-03T00:25:49+02:00

I made a couple of scripts years ago that partly do what you want, you find them in the add-ons/data tools: data2textfile and textfile2data. These are however using the old scripting engine, so I think it's about time I revised them, I guess...

Anyone feel free to update them, I wont have time to do anything with them before the weekend.

Statistics: Posted by bsork — 02 Mar 2011, 23:25

Save Array to text file ; read array from text file.

2011-03-02T23:07:54+02:00

Hi again !

I need a script that could save an array to a text file, and another one that could perform the same process in reverse. So , the second one should open a txt file containing an array and extract those array to an array output. Both scripts have to read/write a large amount of array ( near 40 000 elements values) . The second one have to extract the array in one bloc size, ( should not extracts elements by an index).

Since senso have build a cool OpenDialog module, this script should be useful for everyone, and especially for me !
So, if there is any candidate ( follow my eyes ), I 'll be very happy !

Bisette.

Statistics: Posted by moody33 — 02 Mar 2011, 22:07

Save Array to text file ; read array from text file.

2011-03-11T00:21:46+02:00

Really nice Bsork ! I 'll take a look asap.

Hope you had fun writing it !

Thanks you very much.

Statistics: Posted by moody33 — 10 Mar 2011, 23:21

Save Array to text file ; read array from text file.

2011-03-10T23:50:54+02:00

Here is a combined script for reading and writing arrays in text files. No fancy stuff, the only check being a FileExists before reading. Hopefully useful.

CODE:

VAR pArrayIn    : TParameter;VAR pArrayOut   : TParameter;VAR pFileName   : TParameter;VAR pWrite      : TParameter;VAR pRead       : TParameter;PROCEDURE Init;BEGIN   pArrayIn := CreateParam('array in', ptArray); SetIsOutput(pArrayIn, FALSE);   SetMin(pArrayIn, -1000000); SetMax(pArrayIn, 1000000);   pArrayOut := CreateParam('array out', ptArray); SetIsInput(pArrayOut, FALSE);   SetMin(pArrayOut, -1000000); SetMax(pArrayOut, 1000000);   pFileName := CreateParam('file name', ptTextField); SetIsOutput(pFilename, FALSE);   pWrite := CreateParam('write', ptButton); SetIsOutput(pWrite, FALSE);   pRead := CreateParam('read', ptButton); SetIsOutput(pRead, FALSE);END;PROCEDURE Callback(n : Integer);   VAR i : Integer;   VAR list : TStringList;BEGIN   CASE n OF      pWrite : BEGIN                  list := TStringList.Create;                  FOR i := 0 TO (GetLength(pArrayIn) - 1) DO                     list.Add(FloatToStr(GetDataArrayValue(pArrayIn, i)));                  list.SaveToFile(GetStringValue(pFileName));                  list.Free;               END;     pRead   : IF (FileExists(GetStringValue(pFileName))) THEN BEGIN                  list := TStringList.Create;                  list.LoadFromFile(GetStringValue(pFileName));                  SetLength(pArrayOut, list.Count);                  FOR i := 0 TO (list.Count - 1) DO                     SetDataArrayValue(pArrayOut, i, StrToFloat(list[i]));                  list.Free;               END               ELSE                  WriteLn('Couldn''t open file: ' + GetStringValue(pFileName));   END;END; // Callback

Statistics: Posted by bsork — 10 Mar 2011, 22:50

Save Array to text file ; read array from text file.

2011-03-10T08:52:55+02:00

Statistics: Posted by bsork — 10 Mar 2011, 07:52

Save Array to text file ; read array from text file.

2011-03-10T00:16:03+02:00

Up...( and down ! )

Statistics: Posted by moody33 — 09 Mar 2011, 23:16

Save Array to text file ; read array from text file.

2011-03-03T09:35:32+02:00

I'll see what I can do during the weekend. I'm not at all surprised that the old script gives errors, as a lot has happened to Usine and the scripting engine since it was made.

Statistics: Posted by bsork — 03 Mar 2011, 08:35

Save Array to text file ; read array from text file.

2011-03-03T02:15:23+02:00

Statistics: Posted by moody33 — 03 Mar 2011, 01:15

Save Array to text file ; read array from text file.

2011-03-03T01:04:07+02:00

As I can remember there is a script in the /modules/scripts which does the job (inspired from the bsork script)

Statistics: Posted by senso — 03 Mar 2011, 00:04

Save Array to text file ; read array from text file.

2011-03-03T00:25:49+02:00

Statistics: Posted by bsork — 02 Mar 2011, 23:25

Save Array to text file ; read array from text file.

2011-03-02T23:07:54+02:00

Statistics: Posted by moody33 — 02 Mar 2011, 22:07