| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.34 WriteIni
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 |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009