Hej!..
Jeg sidder og skal gemme noget i en .ini fil.
f.eks.
strDrik1 = Cola
strDrik2 = Fanta
strDrik3 = Sprite
disse skal ligge under sektionen [Drikke] så det kommer til at se sådan ud efter jeg har gemt det:
[Drikke]
Drik1 = Cola
Drik2 = Fanta
Drik3 = Sprite
Det skal laves sådan at det er muligt at ændre Variablerne uden at slette .ini filen og oprette en ny, og det skal kunne gøres fra programmet af.
skriv flg.kode i toppen af en modul eller formen
<pre>
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
Private Sub WriteSetting(File As String, Section As String, KeyName As String, Value As String)
WritePrivateProfileString Section, KeyName, Value, File
End Sub
Private Function ReadSetting(File As String, Section As String, KeyName As String)
Dim Ret As String, NC As Long
Ret = String(255, 0)
NC = GetPrivateProfileString(Section, KeyName, "Default", Ret, 255, File)
If NC <> 0 Then Ret = Left$(Ret, NC)
If Ret = "Default" Then
Ret = ""
End If
ReadSetting = Ret
End Function
</pre>
så kan du skrive til inifilen på flg. måde
<pre>
WriteSetting filsti,gruppe ,felt, værdi
WriteSetting filsti,Drikke,Drik1, Cola
</pre>
og læse på flg. måde
<pre>
indvariable = ReadSetting(filsti, gruppe, felt)
indvariable = ReadSetting(filsti, Drikke,drik1) 'vil gi cola
</pre>
mvh.
Thomas Christensen
håber du kan bruge det til noget.
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41[Redigeret d. 04/02-04 14:35:08 af Thomas Christensen]