Källkoden för /anders.enges/vb/vbtips11.asp

---

<!--#include file="../inc/navstuff.asp" -->
För att kunna hantera INI filer för lagring kan man använda s.k. API anrop. <br>
<br>
Detta görs genom att deklarera följande funktioner (I en Modul i VB och Access, i början av modulen i Excel):<br>
<br>
OBS! Declare satserna skall skrivas på EN rad:<br><br>
<div class=code>
Declare Function GetPrivateProfileInt Lib "Kernel32" Alias <br />GetPrivateProfileIntA (ByVal lpApplicationName As String, <br />ByVal lpKeyName As String, <br />ByVal nDefault As Integer, <br />ByVal lpFileName As String) As Integer<br><br>

Declare Function GetPrivateProfileString Lib "Kernel32" Alias <br />GetPrivateProfileStringA (ByVal lpApplicationName As String, <br />ByVal lpKeyName As Any, <br />ByVal lpDefault As String, <br />ByVal lpReturnedString As String, <br />ByVal nSize As Integer, <br />ByVal lpFileName As String) As Integer<br><br>

Declare Function GetProfileInt Lib "Kernel32" Alias <br />GetProfileIntA (ByVal lpAppName As String, <br />ByVal lpKeyName As String, <br />ByVal nDefault As Integer) As Integer<br><br>

Declare Function GetProfileString Lib "Kernel32" Alias <br />GetProfileStringA (ByVal lpAppName As String, <br />ByVal lpKeyName As Any, <br />ByVal lpDefault As String, <br />ByVal lpReturnedString As String, <br />ByVal nSize As Integer) As Integer<br><br>

Declare Function WritePrivateProfileString Lib "Kernel32" <br />Alias WritePrivateProfileStringA (ByVal lpApplicationName As String, <br />ByVal lpKeyName As Any, <br />ByVal lpString As Any, <br />ByVal lplFileName As String) As Integer<br><br>

Declare Function WriteProfileString Lib "Kernel32" Alias <br />WriteProfileStringA (ByVal lpApplicationName As String, <br />ByVal lpKeyName As Any, <br />ByVal lpString As Any) As Integer<br><br>
</div>
Exempel:

<div class=code>
<Font size=2 face="Courier" COLOR=#800000>
Sub EnProcedur()<br />
<Font COLOR=#008000> ' kolla landskoden i WIN.INI</FONT><br />
   Dim sIniString As String<br />
   Dim iLandskod As Integer<br />
   Dim dummy As Long<br />
   sIniString = Space(255)<br />
<Font COLOR=#008000> ' parametrar : sektion, nyckel, default, <br />
   ' sträng för returvärde, längd på denna<br />
   ' dvs.<br />
   ' [intl]<br />
   ' sLanguage=fin<br />
   ' raden kollas...</FONT><br />
   dummy = GetProfileString("intl","sLanguage","fin",sIniString,Len(sIniString))<br />
   MsgBox "Land = " & sIniString<br />
   <Font COLOR=#008000> ' kolla landnummern i WIN.INI</FONT><br />
   iLandskod = GetProfileInt("intl", "iLanguage", 358)<br />
   MsgBox "Landskod = " & iLandskod<br />
   <Font COLOR=#008000> ' ändra landskoden till sve</FONT><br />
   dummy = WriteProfileString("intl", "sLanguage", "sve")<br />
   <Font COLOR=#008000> ' skriv till filen TEST.INI <br />
   ' kolla sedan om filen har skapats i windows katalogen<br />
   ' den skapas om den inte finns</FONT><br />
   dummy = WritePrivateProfileString("testar", "första", "KUL", "TEST.INI")<br />
   dummy = WritePrivateProfileString("testar", "andra", "KUL", "TEST.INI")<br />
   <Font COLOR=#008000> ' läser från filen</FONT><br />
   dummy = GetPrivateProfileString("testar", "andra", "KUL",sIniString, _<br />
      Len(sIniString), "TEST.INI")<br />
   <Font COLOR=#008000> ' tar bort nyckeln första<br />
   ' 0& = C:s nul</FONT><br />
   dummy = WritePrivateProfileString("testar", "första", 0& , "TEST.INI")<br />
   <Font COLOR=#008000> ' INI filer Cachas för att snabba upp hanteringen<br />
   ' följande rad ser till att INI filen skrivs till disken</FONT><br />
   dummy = WritePrivateProfileString(0&, 0&, 0& , "TEST.INI")<br />
   <Font COLOR=#008000> ' Följande rad skulle ta bort hela testar sektionen om den inte var <br />
   ' bortkommenterad<br />
   ' dummy = WritePrivateProfileString("testar", 0&, 0& , "TEST.INI")</FONT><br />
End Sub</Font></div>
<!--#include file="../inc/footer.asp" -->