PROCEDURE Main( cName )
LOCAL aIni, aSect
LOCAL cSection
LOCAL cKey
LOCAL nRow := 1
set color to w+/b
CLEAR SCREEN
@nRow++,20 SAY "H A R B O U R - .ini file parser test"
@nRow++,5 SAY "Call from command line using a .ini filename as the only parameter"
nRow++
IF Empty( cName )
cName := "parseini.ini"
@nRow++, 5 SAY "Using default parseini.ini file"
ENDIF
aIni := hb_IniRead( cName )
@nRow, 0
? "Content of " + cName
IF Empty( aIni )
? "Not a valid .ini file!"
ELSE
FOR EACH cSection IN aIni:Keys
?
? "Section [" + cSection + "]"
aSect := aIni[ cSection ]
FOR EACH cKey IN aSect:Keys
? cKey + " = " + aSect[ cKey ]
NEXT
NEXT
ENDIF
?
? "Adding section 'Added', with key NEW = new"
aIni[ "Added" ] := hb_Hash()
aIni[ "Added" ][ "NEW" ] := "new"
? "Writing output to parseini_out.ini"
IF hb_IniWrite( "parseini_out.ini", aIni, "#Generated file; don't touch", "#End of file")
? "File written"
ELSE
? "Can't write file"
ENDIF
?
? "Press any key to next text."
Inkey(0)
?
? "REPEATING TESTS WITHOUT AUTOMATIC MAIN SECTION"
aIni := hb_IniRead( cName, , , .F. )
@nRow, 0
? "Content of " + cName
IF Empty( aIni )
? "Not a valid .ini file!"
ELSE
FOR EACH cSection IN aIni:Keys
aSect := aIni[ cSection ]
IF HB_IsHash( aSect )
?
? "Section [" + cSection + "]"
FOR EACH cKey IN aSect:Keys
? cKey + " = " + aSect[ cKey ]
NEXT
ELSE
? "TOPLEVEL option:", cSection + " = " + aSect
ENDIF
NEXT
ENDIF
?
? "Adding section 'Added', with key NEW = new"
aIni[ "Added" ] := hb_Hash()
aIni[ "Added" ][ "NEW" ] := "new"
? "Writing output to parseini_out1.ini"
IF hb_IniWrite( "parseini_out1.ini", aIni,;
"#Generated file without main auto section; don't touch", "#End of file",;
.F. )
? "File written"
ELSE
? "Can't write file"
ENDIF
?
? "Press any key to next text."
Inkey(0)
RETURN