OpenOffice.info

Code: Alles auswählen

...
 Dim sFile9 as String
 sFile9="D:\tpl98.ini"
 
 tmp8 = readini(sFile9,"User","User0","")
 Msgbox tmp8, 0, "tmp8"
 
End Sub


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
...

Code: Alles auswählen

tmp8 = readini("D:\tpl98.ini","User","User0","")

Code: Alles auswählen

tmp8 = readini(sFile9,"User","User0","")

Code: Alles auswählen

tmp8 = readini(sFile3,"User","User0","")
Msgbox tmp8, 0, "tmp8"