Eso es, llenar un array bidmensional con datos desde un archivo de configuración *.ini
Gracias
J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com
Board index FiveWin para Harbour/xHarbour Como cargar un array desde un archivo ini
Ernesto,
Mira si este post te ayuda en algo. Aqui hacen lo que expones.
viewtopic.php?f=3t=29673hilit=read+ini#p167751
&&
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Aquí un ejemplo que encontré en el baúl. No recuerdo de donde lo bajé.
Edito: Lo compartió nuestro amigo Ukoenig,
Saludos.
Edito: Lo compartió nuestro amigo Ukoenig,
//--------------------------------------------//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 aDataSaludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco muy amable, gracias. lo adaptare a mis necesidades.
J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com
First convert any multi-dim array into string
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
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
cText := <read from ini file, or other file>
aArray := &cTextRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India