$=open(1,mytext.ini)
$=open(2,mytext_fixed.ini,5)
do
 if "[]"=$line ;if line has nothing more than [] in it, it must be the break point, fix it.
  $line="[_bad_]"
 endif
 $=writeline(2,$line+@crlf)
 $line=readline(1)
until @error

$yourIni = 'c:\blah.ini'
$sections =''
$ = open(1,$yourIni)
$line = trim(readline(1))
while @error = 0
   if left($line,1) = '[' and len($line)>2
      $sections = $sections + ',' + substr($line,2,len($line)-2)
   endif
   $line = trim(readline(1))
loop

$sections = substr($sections,2)
for each $section in split($sections,',')
   ? $section
next

$=SetOption("Explicit","ON")
 
Dim $sIniFile,$asIniCollection,$asIniItem
 
$sIniFile="\path\to\myinifile.ini"
 
$asIniCollection=EnumIni($sIniFile)
For Each $asIniItem in $asIniCollection
	?
	"Section: '" $asIniItem[0] "'" ?
	"Key    : '" $asIniItem[1] "'" ?
	"Value  : '" $asIniItem[2] "'" ?
Next
 
Function EnumIni($sIniFile)
	Dim $fd,$sLine
	Dim $aEntry[3]
	$fd=FreeFileHandle()
	If @ERROR Exit @ERROR EndIf
	If Open($fd,$sIniFile) Exit @ERROR EndIf
	$sLine=ReadLine($fd)
	While Not @ERROR
		$sLine=LTrim($sLine)
		If $sLine<>"" AND Left($sLine,1)<>";"
			$aEntry[1]=""
			$aEntry[2]=""
			If Left($sLine,1)="["
				$aEntry[0]=SubStr($sLine,2,InStr($sLine+"]","]")-2)
			Else
				$aEntry[1]=Left($sLine,InStr($sLine+"=","=")-1)
				$aEntry[2]=SubStr($sLine,Len($aEntry[1])+2)
				Redim Preserve $EnumIni[UBound($EnumIni)+1]
				$EnumIni[UBound($Enumini)]=$aEntry
			EndIf
		EndIf
		$sLine=ReadLine($fd)
	Loop
EndFunction