Et eksempel til en indstillings fil

Private Declare Function GetPrivateProfileString Lib "kernel32.dll" 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.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long



læs fil

lRet = GetPrivateProfileString("Allgemein", "LetzterUser", "", sUser, Len(sUser), InitFileName)

skriv til fil:
lRet = WritePrivateProfileString("Allgemein", "LetzterUser", sUser, InitFileName)

Instillingsfil ? er det en ini fil.....

Så er det sådan her:

'Read option setup from .ini file

strFileName = App.Path & "\setup.ini"
lngResult = GetPrivateProfileString("Sort", _
"Software", strFileName, strResult, Len(strResult), _
strFileName)

'If value = 0 reports an error

If lngResult = 0 Then
Call MsgBox("An error has occurred", _
vbExclamation)
Else

Din kode

End If

'Writes new setting to .ini file
   
    strFileName = App.Path & "\Setup.ini"
    lngResult = WritePrivateProfileString("Sort", _
    "Game", "2", strFileName)

    'If value = 0 reports an error
   
    If lngResult = 0 Then
    Call MsgBox("An error has occurred", _
    vbExclamation)
    End If

/Tubber

hov glemte lige noget
sUser = Space(100)

' get the last user that used the the program
lRet = GetPrivateProfileString("Allgemein", "LetzterUser", "", sUser, Len(sUser), InitFileName)

sUser = Left(sUser, lRet)

Tak lokespas, men...
Hvordan finder jeg ud af hvad "Validate" er i:
GetPrivateProfileString("TestPrg", "Validate", "", "Hejsa", 5, "C:\Test.txt")

... hva'?
På forhånd tak,
Mathias.

Dim sReturn as string

sReturn = Space(100)

GetPrivateProfileString("TestPrg", "Validate", "", sReturn , len(sReturn) , C:\Test.txt")

sReturn  = Left(sReturn  , lRet)

Dim sReturn as string
fejl

sReturn = Space(100)

lret = GetPrivateProfileString("TestPrg", "Validate", "", sReturn , len(sReturn) , C:\Test.txt")

sReturn  = Left(sReturn  , lRet)

er det det du mener??

Tak for det.
Jeg har nu lavet følgende function:

Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32.dll" 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.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Dim lret As Long

Function GetSetting(KeyName As String) As String
Dim sReturn As String
sReturn = Space(100)
lret = GetPrivateProfileString("TestPrg", KeyName, "", sReturn, Len(sReturn), "C:\Test.txt")
sReturn = Left(sReturn, lret)
GetSetting = sReturn
End Function

Tak for det lokespas, tak tubber.