FoxPro/Visual FoxPro - Generar matriz en VFP

public static string generarMatriz(string[] datos)

{

    string matriz = "";

    if (datos != null)

    {

        if (datos.Length == 1)

        {

            matriz = "{" + datos[0] + "}";

        }

        else

        {

            for (int x = 0; x < datos.Length; x++)

            {

                if (x == datos.Length - 1)

                {

                    matriz = matriz + datos[x];

                }

                else

                {

                    matriz = matriz + datos[x] + ",";

                }

            }

            matriz = "{" + matriz + "}";

        }

    }

    else

    {

        matriz = "{}";

    }

    return matriz;

}

string[] datos = new string[] { dato1,dato2,dato3,dato4,dato5, };

string matriz = "";

matriz= generarMatriz(datos);

object[] parametros = new object[] { "A", matriz };

LOCAL lcString,lnLines,i

lcString = Create_Array_String("jueves",21,DATE(),.t.,1230.46,"pase")

DIMENSION laArray(1)

lnLines = Create_array_from_string(m.lcstring,@laArray)

FOR i = 1 TO m.lnLines

	? laArray[i]

ENDFOR

PROCEDURE Create_Array_String

*----------------------------

* Crear un string CSV a partir de una serie de parámetros

* Los parámetros intermedios omitidos se interpretan como el valor Falso (.F.)

* ----------------------------

LPARAMETERS txParam1,txParam2,txParam3,txParam4,txParam5,;

			txParam6,txParam7,txParam8,txParam9,txParam10,;

			txParam11,txParam12,txParam13,txParam14,txParam15,;

			txParam16,txParam17,txParam18,txParam19,txParam20,;

			txParam21,txParam22,txParam23,txParam24,txParam25,;

			txParam26

#DEFINE _TRUE_ 		".T."

#DEFINE _FALSE_		".F."	

LOCAL lnCount,lcString,i,lxParam_Value,lcType

lnCount = PCOUNT()

lcString = ""

FOR i = 1 TO m.lnCount

	lxParam_Value = EVALUATE("txParam"+TRANSFORM(i))

	lcType = VARTYPE(m.lxParam_Value)

	lcString = m.lcString ;

		+ IIF(EMPTY(m.lcString),"",CHR(44));

		+ ICASE(m.lcType $ 'NDT',TRANSFORM(m.lxParam_Value),;

			m.lcType = "L",IIF(m.lxParam_Value,_TRUE_,_FALSE_),;

			TRIM(m.lxParam_value))

ENDFOR

#UNDEF _TRUE_

#UNDEF _FALSE_

RETURN m.lcString

ENDPROC

PROCEDURE Create_Array_From_String

***********************************

* Rellenar un array que se pasa por referencia, a partir de un string pasado como parámetro.

* tcArray_String:	String obtenido con Create_Array_String o similar

* llamada		Dimension laArray(1)

*				Create_Array_From_String(lcArray_String,@laArray)

* ------------------------------------------------------------------

LPARAMETERS tcArray_String , taArray_byreference

LOCAL lnLines,i

IF TYPE("taArray_byReference",1) # "A"

	DIMENSION taArray_byReference(1)

ENDIF

lnLines = ALINES(taArray_byReference,m.tcArray_string,1,CHR(44))

RETURN m.lnLines

ENDPROC

Function generarMatriz(datos)

Dimension matriz(1)

If Empty(datos)

	For x=1 To Getwordcount(datos,',')

		Dimension matriz(x)

		matriz(x) = Getwordnum(datos,x,',')

	Next

Endif

Return matriz