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

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

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