Criando um Array através de uma String e vice e versa.

Se em algum momento você sentiu a necessidade de jogar os valores de uma string para um array ou de um array para uma string, ai vai a dica do meu amigo Paulo Devidé(http://twitter.com/pdevide) :

Para criar um array a partir de uma String utilize a função Split:

Function Split(laReturn, lcString, lcDelimitador)
Alines(laReturn, Strtran(lcString,lcDelimitador, Chr(13)))
Return (laReturn)
Endfunc

Ex.:

cDados ="A,B,C"
DIMENSION aDados[1]
=split(@aDados, cDados, ", ")

A função vai te retornar :

aDados[1] = "A"

aDados[2] = "B"

aDados[3] = "C"

Agora para criar uma string a partir de um array, utilize a função UnSplit :

Function UNSPLIT(laReturn, lcDelimitador)
Local lcReturn, i_
Store "" To lcReturn
For i_=1 To Alen(laReturn,1)
lcReturn = lcReturn + Iif(Empty(laReturn[i_]),Space(1),Alltrim(laReturn[i_]))
If i_ < Alen(laReturn,1)
lcReturn = lcReturn + lcDelimitador
Endif
Endfor
Return (lcReturn)
Endfunc

Ex.:

Dimension aDados[3]

aDados[1] = "A"

aDados[2] = "B"

aDados[3] = "C"

cDados=UNSPLIT(aDados, ",")

A função vai retornar :

"A,B,C"