Lave en txt fil der skal indeholde diverse instillinger

Hej

Hvordan laver jeg en tekstfil der skal indeholde diverse program instillinger. f.eks. formens højde, brede, top position og venstre position.

Med Venlig Hilsen
Søren Pedersen

Så vidt jeg husker indeholder Visual Basic funktioner til at arbejde med .ini filer på en nem måde .ini filer er ren tekst i en speciel struktur. Meget velegnede til forskellige settings

M.V.H.
Loke Dupont aka colde

Nu er det desværre efterhånden en del år siden jeg har leget med VB, men! fandt denne lille artikel om brugen af .ini filer til vb, håber det kan bruges

http://freespace.virgin.net/s.cowan/vbhowto/how_to/file_handling/ini_files.htm

Med venlig hilsen
Ken Christensen

Det her er den bedste jeg har fundet. Bruger den også selv.


Tilføj denne kode til et modul.

' DLL declarations
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'// Functions
Function GetFromINI(sSection As String, sKey As String, sDefault As String, sIniFile As String)
    Dim sBuffer As String, lRet As Long
    ' Fill String with 255 spaces
    sBuffer = String$(255, 0)
    ' Call DLL
    lRet = GetPrivateProfileString(sSection, sKey, "", sBuffer, Len(sBuffer), sIniFile)
    If lRet = 0 Then
        ' DLL failed, save default
        If sDefault <> "" Then AddToINI sSection, sKey, sDefault, sIniFile
        GetFromINI = sDefault
    Else
        ' DLL successful
        ' return string
        GetFromINI = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1)
    End If
End Function

'// Returns True if successful. If section does not
'// exist it creates it.
Function AddToINI(sSection As String, sKey As String, sValue As String, sIniFile As String) As Boolean
    Dim lRet As Long
    ' Call DLL
    lRet = WritePrivateProfileString(sSection, sKey, sValue, sIniFile)
    AddToINI = (lRet)
End Function

Brug følgende kommandoer til at hente/gemme...

Hente:

lblInfo.Caption = GetFromINI("Sektion","Nøgle","Standard Værdi", INIFil

Gemme:

lblInfo.Caption = AddToINI("Sektion","Nøgle","Værdi", INIFil

Med Venlig Hilsen
Morten Torndahl Pedersen

[Redigeret d. 13/02-06 13:25:50 af Morten Torndahl Pedersen]

Nu er det desværre efterhånden en del år siden jeg har leget med VB, men! fandt denne lille artikel om brugen af .ini filer til vb, håber det kan bruges

http://freespace.virgin.net/s.cowan/vbhowto/how_to/file_handling/ini_files.htm

Med venlig hilsen
Ken Christensen

Kenny, din lille godte!

M.V.H.
Loke Dupont aka colde