Page 1 of 1

Como cargar un array desde un archivo ini

Posted: Tue May 19, 2020 12:36 am
by J. Ernesto
Eso es, llenar un array bidmensional con datos desde un archivo de configuración *.ini

Gracias

Re: Como cargar un array desde un archivo ini

Posted: Tue May 19, 2020 9:48 pm
by FranciscoA
Ernesto,
Mira si este post te ayuda en algo. Aqui hacen lo que expones.
https://forums.fivetechsupport.com/view ... ni#p167751

Re: Como cargar un array desde un archivo ini

Posted: Tue May 19, 2020 9:50 pm
by 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.

Re: Como cargar un array desde un archivo ini

Posted: Thu May 21, 2020 4:25 pm
by J. Ernesto
Francisco muy amable, gracias. lo adaptare a mis necesidades.

Re: Como cargar un array desde un archivo ini

Posted: Sun May 24, 2020 2:19 pm
by 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