;===============================================================
Call "MyFunctions.kix"
$aryGroups = GroupArray()
$strIniFile = "c:\kixwork\mappings.ini"
For Each $ae in $aryGroups
GroupMap($strIniFile,$ae)
Next
;===============================================================
Myfunction.kix
;===============================================================
Function GroupArray()
;===============================================================
Dim $i
Dim $strGrpLst
Dim $gName
$i = 0
$strGrpLst = ""
Do
$gName = EnumGroup($i)
$i = $i + 1
If Len($gName) > 0
If Len($strGrpLst) > 0
$strGrpLst = $strGrpLst + ","
EndIf
$strGrpLst = $strGrpLst + $gName
EndIf
Until Len($gName) = 0
$ary = Split($strGrpLst,",",-1)
;? "Before return array size is:" + Ubound($ary)
$GroupArray = $ary
EndFunction
;===============================================================
;===============================================================
Function GroupMap($inFile,$inSec)
;===============================================================
Dim $tmpDrv
$Sec = ReadProfileString($inFile,$inSec,"")
$aMaps = Split($Sec,Chr(10),-1)
For Each $a in $aMaps
$tmpDrv = ReadProfileString($inFile,$inSec,$a)
$aParms = Split($tmpDrv,",")
$act = UBound($aParms)
Use $aParms[0] + ":" $aParms[1]
Next
$GroupMap = 1
EndFunction
;===============================================================