Schreibt einen neuen Wert zu einem Parameter.

sub writeini(inifile as string, bereich as string, param as string, wert as string)

   GlobalScope.BasicLibraries.LoadLibrary("Tools")

   Dim inBereich as boolean

   Dim aFile as String

   Dim aFileTemp as String

   Dim #inumber

   Dim #inumber2

   Dim szeile as String  

   Dim para as String

   Dim Start as String

   Dim Pfad as String

   Pfad=DirectoryNameoutofPath(inifile,"\")

   afiletemp=Pfad+"\temp.ini"

   inBereich=false

   Bereich="["+bereich+"]"

   aFile = inifile

   if FileExists(inifile) then

   #iNumber = Freefile

   Open aFile For Input As #iNumber

   #iNumber2 = Freefile

   Open aFiletemp For Output As #iNumber2

   While not eof(#iNumber)

   Line Input #iNumber, sZeile

   if inBereich then

     ipos=InStr(sZeile,"=")

      if ipos>0 then

        para=mid(szeile,1,ipos-1)

        if para = param then

          szeile=para+"="+wert

        end if

      end if

    end if

    if inBereich then

     start=left(sZeile,1)

     if start="[" then

       inbereich=false

      end if

    end if

    if szeile=bereich then inBereich=true

    Print #inumber2, szeile

    wend

    Close #iNumber

    Close #iNumber2

    kill afile

    Filecopy afiletemp, afile

    kill afiletemp

   end if

end sub