FiveTech Software tech support forums

Code: Select all | Expand

 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"
 

Code: Select all | Expand

#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