BCX Console Demonstration Program S116.bas

 '===========================================
 'Read & Write Ini Files Easily Using BCX
 '===========================================
 DIM Length
 DIM Info$
 DIM MyIni$
 
 MyIni$ = TEMPDIR$ & "\test-ini.ini"
 
 PutIni("Header", "Title", "Value", MyIni$)
 Info$ = GetIni("Header", "Title", MyIni$)
 PRINT Info$
 
 SUB PutIni(Section$, Var$, Value$, File$)
   WritePrivateProfileString(Section$, Var$, Value$, File$)
 END SUB
 
 FUNCTION GetIni$(Section$, Var$, File$)
   DIM Buffer$ * MAX_PATH
   Length = GetPrivateProfileString(Section$, Var$, "", Buffer$, MAX_PATH, File$)
   Buffer$ = LEFT$(Buffer$, Length)
   FUNCTION = Buffer$
 END FUNCTION