. Et INI -fil er en strukturert tekstfil som lagrer innstillingene for bruker - konfigurerbare program funksjoner . For eksempel er en INI -fil en mekanisme for å huske at en bruker vil tekst som skal vises på et annet språk enn engelsk . Den opprinnelige Windows Application Programmer Interface ( API ) støttet funksjoner som forenkler lesing og skriving INI filer. Microsoft har avskrevet INI filer i favør av Windows-registeret og nyere XML - baserte filformater. Windows API-funksjoner , mens ikke direkte støttet , være tilgjengelig for Visual Basic 9 programmerere som støtter eldre programvare . Instruksjoner
en

Legg en Declare uttalelse til toppen av modulen din for å aktivere kalle Windows API-funksjonen for å skrive INI filer: .

Private Declare Ansi Funksjon WritePrivateProfileString _
< p> Lib " KERNEL32.DLL " Alias ​​" WritePrivateProfileStringA " _

( ByVal lpApplicationName As String , _

ByVal lpKeyName As String , ByVal lpString As String , _

ByVal lpFileName As String ) As Integer
2

Legg en Erklærer funksjon på toppen av modulen din til å aktivere ringe Windows API-funksjonen for lesing ini -fil verdi: .

Private Declare Ansi funksjon GetPrivateProfileString _

Lib " KERNEL32.DLL " Alias ​​" GetPrivateProfileStringA " _

( ByVal lpApplicationName As String , _

ByVal lpKeyName As String , ByVal lpDefault As String , _

ByVal lpReturnedString As String , _

ByVal nStørrelse As Integer , ByVal lpFileName As String ) _

As Integer
3

Lag eller redigere en INI -fil ved å ringe WritePrivateProfileString funksjon , som gir verdier for nøkkelen , søknad og filnavnet. Ved konvensjonen , INI -filer bruker . Ini forlengelse. Søknaden parameter tilsvarer en seksjon i ini -fil . Hvis noen av de angitte parameterne ikke eksisterer , vil de bli opprettet. Dette omfatter selve filen så lenge den angitte katalogen allerede eksisterer. Den WritePrivateProfile String funksjonen vil overskrive tidligere eksisterende verdier.

WritePrivateProfileString ( " seksjonen", "key ", " verdi", " . /Data.ini ")
4

Skyll cache når du har fullført INI fil modifikasjoner , redusere risikoen for tap av data i tilfelle en unormal program avslutning. Pass nullverdier til WritePrivateProfileString funksjon for alle parametrene unntatt INI filnavn. Dette instruerer Windows til å skrive endringene til disken : ( " . /Data.ini " 0 , 0 , 0 , )

WritePrivateProfileString
5

Fordele en buffer tilstrekkelig til å holde maksimal størrelsen av en verdi som er lagret i INI-fil . En buffer på 256 tegn er vanligvis tilstrekkelig. Lag et heltall for å få den faktiske størrelsen på verdien som ble hentet fra INI -filen. Bruk Dim å erklære variabler og Space funksjon for å allokere minne for strengen : en

Dim strValue As String

Dim intLen As Integer

strValue = Space ( 256 )

6

Hent verdier lagret i INI -filen ved å ringe GetPrivateProfileString ved hjelp av variablene sammen med nøkkelen , seksjon, og filnavn verdiene som brukes ved skriving av INI -filen. Angi størrelsen på bufferen som du leverer og en verdi som skal returneres når det angitte verdien ikke er funnet:

intLen = GetPrivateProfileString ( " seksjon ", " key" , " ikke funnet" , strValue , 256 , "filnavn" )