Kui te ei soovi API funktsioone kasutada, saate privaatprofiili stringide lugemiseks ja kirjutamiseks kasutada objektide raamatukogu Words.
Words System.PrivateProfileString saab lugeda ja kirjutada nii INI-failidest kui ka registrist.
Teistes rakendustes peale Wordi peate lisama viite objektide teekile Words.
Viite saate lisada, avades Visual Basic Editori (VBE) ja aktiveerides oma VB -projekti. Seejärel valige Tools, References… ja märkige valik Microsoft Word x.x Object Library.
Kirjutage teave INI-failidesse
Alloleva makro abil saate teabe salvestada tekstifaili:
Funktsioon SetIniSetting (failinimi stringina, jaotis stringina, _ võti stringina, võtmeväärtus) Boolean Dim wd kui Word.Application SetIniSetting = False Set wd = Uus sõna. Rakendus 'loob Wordi rakenduse objekti vea korral Jätka järgmist wd.System. PrivateProfileString (failinimi, sektsioon, võti) = CStr (võtmeväärtus) On Error GoTo 0 Set wd = Nothing 'hävitab Wordi rakenduse objekti SetIniSetting = Tõeline lõpp
Kasutage sellist makro, et salvestada jaotisesse väärtus 100: C: \ FolderName \ FileName.ini
MySectionName võtme TestValue jaoks:
MyBooleanVar = SetIniSetting ("C: \ FolderName \ FileName.ini", "MySectionName", "TestValue", 100)
Tekstifail näeb välja selline:
[MinuSektsiooniNimi]
TestValue = 100
Lugege teavet INI-failidest
Alloleva makro abil saate lugeda teavet tekstifailist:
Funktsioon GetIniSetting (failinimi stringina, jaotis stringina, _ võti stringina) stringina Dim wd kui Word.Application GetIniSetting = "" Set wd = New Word.Application 'loo Wordi rakenduse objekt vea korral Jätka järgmisel GetIniSetting = wd.System .PrivateProfileString (failinimi, sektsioon, võti) On Error GoTo 0 Set wd = Nothing 'hävitab Wordi rakenduse objekti End Function
Kasutage sellist makro, et tagastada jaotises MySectionName võtme TestValue väärtus
failist C: \ FolderName \ FileName.ini:
MyStringVar = GetIniSetting ("C: \ FolderName \ FileName.ini", _ "MySectionName", "TestValue")
Kirjutage teave registrisse
Alloleva makro abil saate registrisse teavet salvestada:
Funktsioon SetRegistrySetting (jaotis stringina, _ võti stringina, võtmeväärtus) Boolean Dim wd kui Word.Application SetRegistrySetting = False Set wd = New Word.Application 'loo Wordi rakenduse objekt On Error Resume Next wd.System.PrivateProfileString ("" , Sektsioon, võti) = CStr (KeyValue) On Error GoTo 0 Set wd = Nothing 'hävitab Wordi rakenduse objekti SetRegistrySetting = Tõeline lõppfunktsioon
Kasutage sellist makro, et salvestada uus väärtus kaustas HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft
Excel võtme DefaultPath jaoks:
MyStringVar = "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel" MyBooleanVar = SetRegistrySetting (MyStringVar, _ "DefaultPath", "C: \ FolderName")
Registrist teabe lugemine Alloleva makro abil saate lugeda registrist pärinevat teavet:
Funktsioon GetRegistrySetting (jaotis stringina, võti stringina) Stringina Dim wd kui Word.Application GetRegistrySetting = "" Set wd = New Word.Application 'loo Wordi rakenduse objekt On Error Resume Next GetRegistrySetting = wd.System.PrivateProfileString ("" , Jaotis, võti) On Error GoTo 0 Set wd = Nothing 'hävitab Wordi rakenduse objekti End Function
Kasutage sellist makro, et lugeda väärtus klahvilt DefaultPath
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")