topic-43401

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

SECTIONS READING
Posted: Fri Jun 30, 2023 07:56 AM

I must read the sections of a ini file
I not understtod why it not load the sections

I made

 local cIniFilter  := triM(cFilePath( GetModuleFileName( GetInstance() ) )  + "test" +".ini")
   local aFilters    := GETPVPROFSECTIONS( cIniFilter )

STATIC FUNCTION GETPVPROFSECTIONS( cIni )
        LOCAL cBuf := SPACE( 65536 )
        LOCAL aSec := {}
        GETPRIVATEPROFILESECTIONNAMES( cBuf, 65536, cIni )
        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


 DLL STATIC FUNCTION GETPRIVATEPROFILESECTIONNAMES( cRetBuf AS LPSTR, nSize AS LONG, cFileName AS LPSTR ) AS DWORD;
        PASCAL FROM "GetPrivateProfileSectionNamesA" LIB "kernel32.dll"

refer.
https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getprivateprofilesectionnames
Not run on Windows 7/10 ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Detlef

Posts: 218

Joined: Mon Feb 07, 2022 09:54 PM

Re: SECTIONS READING
Posted: Tue Jul 04, 2023 08:32 PM

Hi Silvio,
try this to get all section names of an ini file

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "xbrowse.ch"

FUNCTION Main()
local cFile := CurDrive() + ":\" + curdir() + "\test.ini"
local aSections  := {}
local cLine
local oText
local n, nLines


   if File( cFile )
      oText  := TTxtFile():New( cFile )
      nLines := oText:RecCount()

      for n := 1 to nLines
          cLine := ltrim( oText:ReadLine() )

          if left( cLine, 1 ) == "["
            aadd( aSections, cLine )
          endif

          oText:Skip()
      NEXT n

      oText:Close()
   endif

   if len( aSections ) > 0
      xBrowser aSections
   endif
RETURN nil

Regards
Detlef

Detlef

Posts: 218

Joined: Mon Feb 07, 2022 09:54 PM

Re: SECTIONS READING
Posted: Tue Jul 04, 2023 08:34 PM

To find all entries of each section you may look at this function from Enrico.
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42450&p=255272&hilit=ini+section&sid=3b8eac4dbf8d08dab52fc2a1896770aa&sid=3b8eac4dbf8d08dab52fc2a1896770aa#p255239

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: SECTIONS READING
Posted: Wed Jul 05, 2023 07:50 AM

Detlef wrote:To find all entries of each section you may look at this function from Enrico.
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42450&p=255272&hilit=ini+section&sid=3b8eac4dbf8d08dab52fc2a1896770aa&sid=a126fddb37dbaca4e220526698b03046#p255239

I used that function's Emg

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion