. En ini-fil är en strukturerad textfil som lagrar inställningar för konfigurerbara programfunktioner . Till exempel är en INI fil en mekanism för att komma ihåg att en användare vill texten som ska visas på ett annat språk än engelska . Den ursprungliga Windows Application Programmer Interface ( API ) som stöds funktioner som underlättar läsning och skrivning INI-filer . Microsoft har föråldrat INI-filer till förmån för Windows-registret och nyare XML - baserade filformat . Windows API -funktioner , medan inte direkt stöds , vara tillgänglig för Visual Basic 9 programmerare som stödjer äldre programvara . Instruktioner
1
Lägg ett Declare uttalande till toppen av din modul för att möjliggöra att anropa Windows API-funktionen för att skriva ini-filer : .
Private Declare Ansi Function WritePrivateProfileString _
lib " kernel32.dll " Alias " WritePrivateProfileStringA " _
( ByVal lpApplicationName As String , _
ByVal lpKeyName As String , ByVal lpString As String , _
ByVal lpFileName As String ) As Integer
2
Lägg en Deklarera funktionen längst upp i din modul för att möjliggöra att anropa Windows API-funktionen för att läsa ini-fil värde : .
Private Declare Ansi funktion GetPrivateProfileString _
lib " kernel32.dll " Alias " GetPrivateProfileStringA " _
( ByVal lpApplicationName As String , _
ByVal lpKeyName As String , ByVal lpDefault As String , _
ByVal lpReturnedString As String , _
ByVal nStorlek As Integer , ByVal lpFileName As String ) _
As Integer
3
Skapa eller redigera en INI -fil genom att anropa WritePrivateProfileString funktionen , som ger värden för nyckeln , tillämpning och filnamn . Av konvention INI-filer använder . Ini förlängning . Ansökan parameter som motsvarar en sektion i ini-filen . Om någon av de angivna parametrarna inte finns, kommer de att skapas. Detta inkluderar själva filen så länge den angivna katalogen redan existerar . Den WritePrivateProfile String Funktionen kommer skriva över tidigare befintliga värden .
WritePrivateProfileString ( " avsnitt " , " nyckel " , " value " , " . /Data.ini " )
4
tömma cacheminnet när du har avslutat ini-fil modifieringar , vilket minskar risken för dataförlust i händelse av en onormal program avstängning . Pass nollvärden till WritePrivateProfileString funktion för alla parametrar utom INI filnamnet. Detta instruerar Windows att skriva ändringarna till disken : ( " . /Data.ini " 0 , 0 , 0 , ) katalog
WritePrivateProfileString
5
Tilldela en buffert tillräcklig för att hålla högsta storleken av ett värde som lagras i INI-fil . En buffert av 256 tecken är vanligen tillräcklig. Skapa ett heltal för att få den verkliga storleken på värdet som hämtades från INI -filen . Använd Dim att deklarera variablerna och Space funktion att allokera minne för strängen :
Dim strValue As String
Dim intLen As Integer
strValue = Space ( 256 )
6
hämta värden lagras i INI -filen genom att ringa GetPrivateProfileString hjälp av variabler tillsammans med nyckel , avsnitt , och fil värden namn som används när du skriver INI filen . Ange storleken på den buffert som du tillhandahåller och ett värde som ska returneras när det utsedda värdet inte hittas :
intLen = GetPrivateProfileString ( " avsnitt " , " nyckel " , " not found" , strValue , 256 , " filnamn " ) Addera
