Como cargar un array desde un archivo ini
Posted: Tue May 19, 2020 12:36 am
Eso es, llenar un array bidmensional con datos desde un archivo de configuración *.ini
Gracias
Gracias
www.FiveTechSoft.com
https://forums.fivetechsoft.com/
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
Code: Select all
cString := FW_ValToExp( aArray )
Code: Select all
cText := <read from ini file, or other file>
aArray := &cText