;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfArrayToIniFile (strFilename, arrIni) ; Array must be a dim-2 array with at least 3 columns.
If ArrInfo (arrIni, 2) < 3 Then Return 0
intItemLast = ArrInfo (arrIni, 1) - 1
If intItemLast < 0 Then Return 0
For intItem = 0 To intItemLast
   IniWritePvt (arrIni[intItem, 0], arrIni[intItem, 1], arrIni[intItem, 2], strFilename)
Next
Return 1
;..........................................................................................................................................
; This UDF "udfArrayToIniFile" creates an inifile from the content of the first three columns of a dim-2 array.
;
; Parameters:
;
;   strFilename ... The filename of the ini file to be created.
;
;   arrIni      ... The dim-2 array with at least 3 columns.
;                   Column 0 holds the section name.
;                   Column 1 holds the key name.
;                   Column 2 holds the key's value.
;
; Example:
;
;   From dim-2 array ...                      To ini file ...
;
;   +----+----------+-------+-----------+     [COLORS]
;   |    | c0       | c1    | c2        |     CON=128,0,128
;   +----+----------+-------+-----------+     EXT=255,0,255
;   | r0 | COLORS   | CON   | 128,0,128 |
;   | r1 | COLORS   | EXT   | 255,0,255 |     [KEYWORDS]
;   | r2 | KEYWORDS | About | 1         |     About=1
;   | r3 | KEYWORDS | Abs   | 1         |     Abs=1
;   | r4 | KEYWORDS | Acos  | 1         |     Acos=1
;   +----+----------+-------+-----------+
;
;..........................................................................................................................................
; (c)Detlev Dalitz.20110404.
;..........................................................................................................................................
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------


; Test.

strFileTest = FileCreateTemp ("WB")

arrIni = ArrDimension (5, 3)
arrIni[0, 0] = "COLORS"
arrIni[0, 1] = "CON"
arrIni[0, 2] = "128,0,128"
arrIni[1, 0] = "COLORS"
arrIni[1, 1] = "EXT"
arrIni[1, 2] = "255,0,255"
arrIni[2, 0] = "KEYWORDS"
arrIni[2, 1] = "About"
arrIni[2, 2] = "1"
arrIni[3, 0] = "KEYWORDS"
arrIni[3, 1] = "Abs"
arrIni[3, 2] = "1"
arrIni[4, 0] = "KEYWORDS"
arrIni[4, 1] = "Acos"
arrIni[4, 2] = "1"

intResult = udfArrayToIniFile (strFileTest, arrIni)

Run ("notepad.exe", strFileTest)

:CANCEL
FileDelete (strFileTest)
Exit