code:

---

 Break ON
color w+/n
cls
?"Enter patch to first ini file: "
gets $Ini1
"Enter patch to second ini file: "
gets $Ini2

cls
"Evalutating Files..."


fnCompareIni($Ini1,$Ini2)

Function fnCompareIni($sIni1,$sIni2)
   Dim $iPhase
   Dim $sFile1,$sFile2
   Dim $sSection,$sEntry
   Dim $sValue1,$sValue2

   For $iPhase=0 To 1
      If $iPhase
         $sFile1=$sIni1
         $sFile2=$sIni2
      Else
         $sFile1=$sIni2
         $sFile2=$sIni1
      EndIf
      For Each $sSection In Split(ReadProfileString($sFile1,"",""),Chr(10))
         If $sSection <> ""
            If ReadProfileString($sFile2,$sSection,"")=""
               ?color y+/n "File:      " color w+/n "$sFile2" 
	       ?color y+/n "Section:   " color w+/n "$sSection"
	       ?color y+/n "Complaint: " color w+/n "Blank or Missing"
	       ?color w+/n
            Else
               For Each $sEntry In Split(ReadProfileString($sFile1,$sSection,""),Chr(10))
                  If $sEntry <> ""
                     $sValue1=ReadProfileString($sFile1,$sSection,$sEntry)
                     $sValue2=ReadProfileString($sFile2,$sSection,$sEntry)
                     If $sValue1<>$sValue2
                        If $sValue2=""
                            ?color y+/n "File:      " color w+/n "$sFile2"
			    ?color y+/n "Section:   " color w+/n "$sSection"
	      		    ?color y+/n "Entry:     " color w+/n "$sEntry"
      			    ?color y+/n "Complaint: " color w+/n "Blank or Missing"
		            ?color w+/n
                        Else
                           If $iPhase
                             ?color y+/n "Section:   " color w+/n "$sSection"
			     ?color y+/n "Entry:     " color w+/n "$sEntry"
		             ?color y+/n "Complaint: " color w+/n "Mismatch"
			     ?color w+/n
                           EndIf
                        EndIf
                     EndIf
                  EndIf
               Next
            EndIf
         EndIf
      Next
   Next
EndFunction

 

---