Hola Viejos Clipperos:
Los ARRAYS con Formato 1 y 2 (Ver abajo FORMATOS) funcionan bien en versiones de Clipper 5.x (Los reconoce como equivalentes)

 

El formato 2 dicen que se usaba en versiones anteriores, tal vez algún colega se acuerde de su formato.

 

Se trata de pasar au array del formato 1 al 2.

 

Necesito una función de este tipo:
*=====================================
Function ConvertArray(aArray,cNonFile)
**Que pase cualquier array a texto
**como en el formato 2 y lo
**grabe en archivo.

 

MemoWrit(cNomFile, cArray)

 

Return(NIL)
======================================

 

FORMATOS:

 

Array formato 1:
*=======================================
aSemana  :={"Domingo","Lunes","Martes",;
"Miercóles","Jueves","Viernes","Sábado"}
*=======================================

 

Array formato 2:
*======================
aSemana    :={,,,,,,}
aSemana[1] :="Domingo"
aSemana[2] :="Lunes"
aSemana[3] :="Martes"
aSemana[4] :="Miercóles"
aSemana[5] :="Jueves"
aSemana[6] :="Viernes"
aSemana[7] :="Sábado"
*======================

 

Si alguien me pudiera orientar se lo agraderia.

 

Lucho Miranda