Como cargar un array desde un archivo ini

[J. Ernesto]

Eso es, llenar un array bidmensional con datos desde un archivo de configuración *.ini

Gracias

[FranciscoA]

Ernesto,
Mira si este post te ayuda en algo. Aqui hacen lo que expones.
https://forums.fivetechsupport.com/view ... ni#p167751

[FranciscoA]

Aquí un ejemplo que encontré en el baúl. No recuerdo de donde lo bajé.
Edito: Lo compartió nuestro amigo Ukoenig,

Code: Select all

//--------------------------------------------//EJEMPLO PARA LEER UNA SECCION DEL INI
STATIC Function ReadIniSection(cIniF,cSection)
Local aData := {}, n, nEntries
local   nEntryNamePos, nEntryValuePos, cEntryName, cEntryValue
Local cEntry := StrTran(GetPVProfString(cSection, , ,cIniF), Chr(0), CRLF)

If Empty( cEntry )
   aadd( aData, {" "," "} )
Else
   nEntries := MlCount(cEntry)
   FOR n := 1 TO nEntries
       nEntryNamePos  := AT( "=", Alltrim(cEntry) )
       nEntryValuePos := LEN( Alltrim(cEntry) ) - nEntryNamePos
       cEntryName     := Trim(Memoline(cEntry, 254, n ))
       cEntryValue    :=GetPvProfString(cSection,cEntryName,"",cIniF)
       aadd( aData, { PADR( cEntryName, 15, " "),  PADR( cEntryValue, 15, " ") } )
   NEXT
Endif

MyXBROWSE(aData,Str(nEntries,3)+" ENTRADAS EN SECCION "+cSection,{"Variables de Entradas","Valores de Entradas"})

RETURN aData
 

Saludos.

[J. Ernesto]

Francisco muy amable, gracias. lo adaptare a mis necesidades.

[nageswaragunupudi]

First convert any multi-dim array into string

Code: Select all

cString := FW_ValToExp( aArray )
 

and save to INI file or to any text file or to a memo field.

After you read back from the INI file or other file as cText, convert into array again like this

Code: Select all

cText := <read from ini file, or other file>

aArray := &cText