De nuevo por aqui molestando
![Embarassed :oops:](./images/smilies/icon_redface.gif)
Sabemos como recuperar una entrada especifica de una sección, pero no logramos recuperar todas las entradas de la sección.
De antemano gracias
FUNCTION GETPVPROFSECTION( cSection, cIniFile )
LOCAL cKeys := STRTRAN( GETPVPROFSTRING( cSection, , "", cIniFile ), CHR( 0 ), CRLF )
LOCAL aKeys := {}
LOCAL i
FOR i = 1 TO MLCOUNT( cKeys )
AADD( aKeys, RTRIM( MEMOLINE( cKeys, , i ) ) )
NEXT
RETURN aKeys
FUNCTION GETPVPROFSECTIONNAMES( cIniFile )
LOCAL cBuf := SPACE( 65536 )
LOCAL aSec := {}
GETPRIVATEPROFILESECTIONNAMES( cBuf, 65536, cIniFile )
WHILE LEFT( cBuf, 1 ) != CHR( 0 )
AADD( aSec, LEFT( cBuf, AT( CHR( 0 ), cBuf ) - 1 ) )
cBuf = SUBSTR( cBuf, AT( CHR( 0 ), cBuf ) + 1 )
ENDDO
RETURN aSec
#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
HB_FUNC( GETPRIVATEPROFILESECTIONNAMES )
{
hb_retnl( GetPrivateProfileSectionNames( ( LPTSTR ) hb_parc( 1 ), hb_parnl( 2 ), hb_parc( 3 ) ) );
}
#pragma ENDDUMP
hIni:= hb_ReadIni( "File.Ini" )
hSeccionXX:= hIni["SeccionXX"]
xValorN01:= hSeccionXX["EntradaN01"]
xValorN02:= hSeccionXX["EntradaN02"]
xValorN03:= hSeccionXX["EntradaN03"]
//-------------------------------------------------//
// INI FILE TO ARRAY
//---------------------------------------------//LEER ENTRADAS/VALORES EN UNA SECCION DEL INI
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, 35, " ") } )
NEXT
Endif
XBROWSER aData TITLE "LECTURA SECCION " + cSection + " DE INI " + cIniF ;
SETUP ( oBrw:cHeaders := {"Nombre de Entrada","Valor de Entrada"} )
RETURN aData
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 22 guests