Brug af .ini filer?

INI-filer er netop tekstfiler, som bruges til at gemme indstillinger. Så du behandler en INI fil præcis som du ville behandle en tekstfil.

Men at gemme værdier og hente dem igen i tekst (=ini) filer er da ret simpelt; Dú kan bare lave en funktion, der henter alle indstillingensværdierne ind i nogle variable ved opstart; og så har du alle indstillingerne klar til videre brug i programmet.

Brug API-kald.

Til egne .ini filer anvendes:
GetPrivateProfileString
WritePrivateProfileString
...
Til Win.ini anvendes:
GetProfileString
WriteProfileString
...

Du kan også gemme værdierne i en cfg fil, som regel også et rent ASCII format

... kom nu med et eks.

GetPrivateProfileString = ???

Jeg ville læse en ini-fil med open file:
Dim data(30)
dim a as integer

a=0
open app.path & \"minfil.ini\" for input as #1
  do while eof(1)=false 
    line input #1, data(a)
    a=a+1
  loop
close #1

M.v.h.  Jørn  15-09-2000  16:08 

findes der ikke en smartere metode?

hvorfor hedder det så .ini, det kan der også hede .skod???

.ini filer følger dette mønster:

[Section]
key=string

GetPrivateProfileString henter den string der står udfor nøglen man specificerer i kaldet.

lValue = GetPrivateProfileString(txtSection, txtKey, sDefault, sReturn, lsize, txtPath)

hvor
txtSection er ovennævnte sektion,
txtkey er nøgle
sDefault er standardværdi der returneres hvis der ingen værdi står udfor nøglen
sReturn er værdien der står ud for nøglen
lsize er max længden på stringen og
txtpath er stien til ini filen.

Med dette kan der laves .ini filer så store man ønsker det, delt op i logiske sektioner, og det er væsentligt hurtigere end at skulle køre det hele igennem med en do-while løkke.

WritePrivateProfileString skriver så til .ini filen i stedet....

API-Kaldet:
Declare Function GetPrivateProfileString Lib \"Kernel32\" Alias \"GetPrivateProfileStringA\" (ByVal sSection As String, ByVal sKey As String, ByVal sDefault As String, ByVal sReturn As String, ByVal lReturnSize As Long, ByVal sFilename As string) As Long

og

Declare Function WritePrivateProfileString Lib \"Kernel32\" Alias \"WritePrivateProfileStringA\" (ByVal sSection As String, ByVal sKey As String, ByVal sSetting As String, ByVal sFilename As String) As Long

God fornøjelse

Kaffe er gud ;)

thx... hold da kæft en god forklaring ;)

se det var lige det jeg havde brug for ....