Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Pridať príkazu Declare na hornej časti modulu , aby volanie funkcie Windows API pre písanie ini súbory : .
Private Declare Function Ansi 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
Pridať funkciu Declare v hornej časti modulu, aby volanie funkcie Windows API pre čítanie ini hodnota súboru : .
Private Declare Function ANSI GetPrivateProfileString _
Lib " kernel32.dll " Alias " GetPrivateProfileStringA " _
( byVal lpApplicationName As String , _ byVal
lpKeyName As String , byVal lpDefault As String , _
byVal lpReturnedString As String , _ byVal
nVeľkosť As Integer , byVal lpFileName As String ) _
As Integer
3
Vytvoriť alebo upraviť súbor INI volaním funkcie WritePrivateProfileString , poskytuje hodnoty pre kľúče , aplikácie a názov súboru . Podľa konvencie , INI súbory použiť . Ini príponu . Parameter aplikácie zodpovedá časti v ini súbore. Ak sa niektorý z uvedených parametrov neexistujú , budú vytvorené . To zahŕňa súbor samotný , ak zadaný adresár už existuje . Funkcie WritePrivateProfile String prepíše už existujúce hodnoty .
WritePrivateProfileString ( " sekcie " , " kľúč " , " hodnota " , " . /Data.In " )
4
vyprázdnenie vyrovnávacej pamäte , keď ste dokončili úpravy súborov INI , čo znižuje riziko straty dát v prípade neštandardnej ukončenia programu . Heslo nulovej hodnoty na funkciu WritePrivateProfileString pre všetky parametre okrem názvu súboru INI . Tento pokyn Windows zapísať zmeny na disk :
WritePrivateProfileString ( 0 , 0 , 0 , " /data.In . " )
5
prideliť vyrovnávacia pamäť dostatočne držať maximum veľkosť hodnoty uložené v súbore INI . Buffer 256 znakov je obvykle dostačujúca . Vytvorenie číslo dostávať aktuálne veľkosti hodnoty , ktorá bola načítaná zo súboru INI . Použitie Dim deklarovať premenné a funkcie Space prideliť pamäť pre reťazec :
Dim strValue As String Dim
intLen As Integer
strValue = Space ( 256 )
Praha 6
načítať hodnoty uložené v súbore INI volaním GetPrivateProfileString pomocou premennej spolu s kľúčmi , časti a hodnoty súboru názov používaný pri zápise do súboru INI . Zadajte veľkosť vyrovnávacej pamäte, ktorá sa poskytuje a hodnoty majú byť vrátené , pokiaľ nie je nájdená určená hodnota :
intLen = GetPrivateProfileString ( " sekcie " , " kľúč " , " nebol nájdený " , strValue , 256 , " filename " )
Copyright © počítačové znalosti Všetky práva vyhradené