Jei nenorite naudoti API funkcijų, galite naudoti „Words“ objektų biblioteką, kad skaitytumėte ir rašytumėte privataus profilio eilutes.
„Words System.PrivateProfileString“ gali skaityti ir rašyti tiek INI failus, tiek registrą.
Kitose nei „Word“ programose turite pridėti nuorodą į „Words“ objektų biblioteką.
Nuorodą galite pridėti atidarę „Visual Basic“ redaktorių (VBE) ir suaktyvinę savo VB projektą. Tada pasirinkite Įrankiai, Nuorodos… ir pažymėkite parinktį „Microsoft Word x.x Object Library“.
Įrašykite informaciją į INI failus
Naudodami toliau pateiktą makrokomandą galite išsaugoti informaciją teksto faile:
Funkcija „SetIniSetting“ (failo pavadinimas kaip eilutė, sekcija kaip eilutė, _ raktas kaip eilutė, „KeyValue“) kaip „Boolean Dim wd“ kaip „Word.Application SetIniSetting = False Set wd = New Word.Application“ sukuria „Word“ programos objektą dėl klaidos tęskite kitą „wd.System“. PrivateProfileString (failo pavadinimas, sekcija, raktas) = CStr (KeyValue) On Error GoTo 0 Set wd = Nothing 'sunaikinti Word programos objektą SetIniSetting = True End Function
Naudokite tokią makrokomandą, kad skyriuje esančiame faile C: \ FolderName \ FileName.ini išsaugotumėte 100 reikšmę.
MySectionName raktui TestValue:
MyBooleanVar = SetIniSetting ("C: \ FolderName \ FileName.ini", "MySectionName", "TestValue", 100)
Teksto failas atrodys taip:
[MySectionName]
TestValue = 100
Skaitykite informaciją iš INI failų
Žemiau esančioje makrokomandoje galite perskaityti informaciją iš teksto failo:
Funkcija GetIniSetting (failo pavadinimas kaip eilutė, sekcija kaip eilutė, _ raktas kaip eilutė) Kaip eilutė Dim wd kaip Word.Application GetIniSetting = "" Set wd = New Word.Application "sukurkite„ Word “programos objektą dėl klaidos Tęsti kitą GetIniSetting = wd.System .PrivateProfileString (failo pavadinimas, sekcija, raktas) Įvyko klaida GoTo 0 Nustatyti wd = Nieko “sunaikinti„ Word “programos objektą Pabaigos funkcija
Naudokite tokią makrokomandą, kad grąžintumėte rakto „TestValue“ vertę skiltyje „MySectionName“
iš failo C: \ FolderName \ FileName.ini:
MyStringVar = GetIniSetting ("C: FolderName \ FileName.ini", _ "MySectionName", "TestValue")
Rašykite informaciją registrui
Žemiau esančioje makrokomandoje galite išsaugoti informaciją registre:
Funkcija SetRegistrySetting (sekcija kaip eilutė, _ raktas kaip eilutė, KeyValue) Kaip loginė reikšmė wd kaip Word.Application SetRegistrySetting = False Set wd = New Word.Application 'sukurkite „Word“ programos objektą dėl klaidos tęskite kitą wd.System.PrivateProfileString ("" , Skyrius, raktas) = CStr (KeyValue) On Error GoTo 0 Set wd = Nothing 'sunaikinti Word programos objektą SetRegistrySetting = True End Function
Naudokite tokią makrokomandą, kad išsaugotumėte naują vertę HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft
„Excel“ raktui „DefaultPath“:
MyStringVar = "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel" MyBooleanVar = SetRegistrySetting (MyStringVar, _ "DefaultPath", "C: \ FolderName")
Informacijos skaitymas iš registro Žemiau esančioje makrokomandoje galite perskaityti registro informaciją:
Funkcija GetRegistrySetting (sekcija kaip eilutė, raktas kaip eilutė) Kaip eilutė Dim wd kaip Word.Application GetRegistrySetting = "" Set wd = New Word.Application 'sukurkite „Word“ programos objektą dėl klaidos Tęsti kitą GetRegistrySetting = wd.System.PrivateProfileString ("" , Skyrius, raktas) Įvyko klaida „GoTo 0 Set wd = Nothing“ sunaikinti „Word“ programos objektą Pabaigos funkcija
Naudokite tokią makrokomandą, kad perskaitytumėte reikšmę iš rakto DefaultPath
iš HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel:
MyStringVar = "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel" MyStringVar = SetRegistrySetting (MyStringVar, _ "DefaultPath")