Array Write/Read Functions (Sebastian Nigro)

/// array_write(variable,char)

/*
    Writes the array as a string with 'char' as a spacer for
    parsing the string back into the program later.
*/

var length = array_length_1d(argument0);
var array = argument0;
var str = "";

str = string(array[@ 0]);

if ( length > 1 )
{
    for(var i = 1; i < length; i ++ )
    {
        str = str+argument1+string(array[@ i]);
    }
}

return str

------------------------------------------------------------------------------------------------------------------------------------------

/// array_read(variable,char)

/*
    Reads the string back into an array.
*/

var str_temp = argument0;
var str1 = "";var str2 = "";
var array = 0;var temp = "";
var index = 0;

for(var i = 1; i <= string_length(str_temp); i ++)
{
    str1 = string_char_at(str_temp,i);
    str2 = str2 + str1;
    if ( str1 == argument1 )
    {
        // This bit allows us to store variables as reals instead of strings where possible to avoid using the real() function later
        temp = string(string_copy(str_temp,i-real(string_length(str2))+1,real(string_length(str2))-1));str2="";
        if ( string_digits(temp) != "" )
        {
            array[index] = real(temp);
            index ++;
        }
        else
        {
            array[index] = temp;
            index ++;
        }
    }
    if ( i == string_length(str_temp) )
    {
        temp = string(string_copy(str_temp,i-real(string_length(str2))+1,real(string_length(str2))));str2="";
        if ( string_digits(temp) != "" )
        {
            array[index] = real(temp);
            index ++;
        }
        else
        {
            array[index] = temp;
            index ++;
        }
    }
}

return array