FiveTech Software tech support forums

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