10.3.33 ReadIni
'Liest einen Wert aus einer ini-Datei

function readini( inifile as string, bereich as string, param as string, default as string) as string
   Dim inBereich as boolean
   Dim aFile as String
   Dim #inumber
   Dim szeile as String 
   Dim para as String
   Dim Start as String
 
   inBereich=false
   readini=default
   Bereich="["+bereich+"]"
   #iNumber = Freefile
   aFile = inifile
   on error goto ende
   if FileExists(inifile) then
   Open aFile For Input As #iNumber
   While not eof(#iNumber)
 
   Line Input #iNumber, sZeile
   if szeile=Bereich then inBereich=true
   if inBereich then
     ipos=InStr(sZeile,"=")
      if ipos>0 then
        para=mid(szeile,1,ipos-1)
        if para = param then
          readini=mid(szeile,ipos+1)
          inBereich=false
        end if
      end if
    end if
    if inBereich then
     start=left(sZeile,1)
     if start="[" then inbereich=false
    end if
    if szeile=bereich then inBereich=true
    wend
    Close #iNumber
   end if
  exit function
  ende: 
end function