'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