Skrive og læse til og fra en ini fil?

søg på planetsourcecode.com

Fedt svar blazer..

Er der noget i følgende svar du ikke forstår kan du kontakte mig på ICQ: 83297796 hvor jeg tilbyder gratis hjælp :)



<<< Indsæt i modul >>>
  #If Win16 Then
  Private Declare Function WritePrivateProfileString Lib \"Kernel\" (ByVal AppName As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String) As Integer
  Private Declare Function GetPrivateProfileString Lib \"Kernel\" Alias \"GetPrivateProfilestring\" (ByVal AppName As String, ByVal KeyName As String, ByVal default As String, ByVal ReturnedString As String, ByVal MAXSIZE As Integer, ByVal FileName As String) As Integer
  #Else
  Private Declare Function GetPrivateProfileString Lib \"kernel32\" Alias \"GetPrivateProfileStringA\" (ByVal lpApplicationName As String, ByVal lpKeyName As String, 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 String, ByVal lpString As String, ByVal lpFileName As String) As Long
  #End If






Personligt har jeg så defineret en variable med navnet \"ConfigFilePath As String\"

Brug GetValueFromFile(\"Generelt\",\"MitNavn\",\"c:\\spooky.ini\")
- Til at åbne en fil (c:\\spooky.ini\")
Samme med WriteDataToFile
- WriteDataToFile(\"Generelt\",\"MitNavn\",\"Bob\",\"c:\\spooky.ini\")

For at slippe for at skrive filnavn hver gang, har jeg selv lavet 2 funktioner.

/* Læse */
Msgbox GetValue(\"Generelt\",\"MitNavn\")

/* Skrive */
WriteData \"Generelt,\"MitNavn\",\"Bob\"




Public Function GetValueFromFile(Section, KeyName, FileName As String) As String
      Dim sRet As String: sRet = String(255, Chr(0))
      GetValueFromFile = Left(sRet, GetPrivateProfileString(Section, KeyName, \"\", sRet, Len(sRet), FileName))
End Function

Public Sub WriteDataToFile(sSection, sKeyName, sNewString, FileName As String)
WritePrivateProfileString sSection, sKeyName, sNewString, FileName
End Sub

Public Function GetValue(Section, KeyName) As String
      Dim sRet As String: sRet = String(255, Chr(0))
      GetValue = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName, \"\", sRet, Len(sRet), ConfigFilePath))
End Function

Public Function GetLan(Form, KeyName) As String
Dim sRet As String: sRet = String(255, Chr(0))
GetLan = Left(sRet, GetPrivateProfileString(Form, ByVal KeyName, \"\", sRet, Len(sRet), LanguageFile))
End Function

Public Sub WriteData(sSection, sKeyName, sNewString)
WritePrivateProfileString sSection, sKeyName, sNewString, ConfigFilePath
End Sub

PS.    F.eks.  \"Dim sRet as String: sRet = String(255, Chr(0))\"  SKAL være med.

Hej Mast.

Er du helt ny på Eksperten?  For bare 10 dage siden var samme spørgsmål oppe, og det har været det ofte.  Se http://www.eksperten.dk/spm/49417

M.v.h.  Jørn