Ja nevēlaties izmantot API funkcijas, varat izmantot objektu bibliotēku Words, lai lasītu un rakstītu privātā profila virknes.
Words System.PrivateProfileString var lasīt un rakstīt gan no INI failiem, gan no reģistra.
Citās lietojumprogrammās, izņemot Word, ir jāpievieno atsauce uz objektu bibliotēku Words.
Jūs varat pievienot atsauci, atverot Visual Basic Editor (VBE) un aktivizējot savu VB projektu. Pēc tam atlasiet Rīki, Atsauces… un atzīmējiet opciju Microsoft Word x.x Object Library.
Ierakstiet informāciju INI failos
Izmantojot zemāk esošo makro, informāciju var saglabāt teksta failā:
Funkcija SetIniSetting (faila nosaukums kā virkne, sadaļa kā virkne, _ atslēga kā virkne, atslēgas vērtība) kā Būla Dim wd kā Word.Application SetIniSetting = False Set wd = New Word.Application 'izveido Word lietojumprogrammas objektu Kļūda Atsākt nākamo wd.System. PrivateProfileString (faila nosaukums, sadaļa, atslēga) = CStr (atslēgas vērtība) Ieslēgta kļūda GoTo 0 Set wd = Nekas 'neiznīcina Word lietojumprogrammas objektu SetIniSetting = Patiesā beigu funkcija
Izmantojiet šādu makro, lai sadaļā 100 saglabātu vērtību 100: C: \ FolderName \ FileName.ini
MySectionName atslēgai TestValue:
MyBooleanVar = SetIniSetting ("C: \ FolderName \ FileName.ini", "MySectionName", "TestValue", 100)
Teksta fails izskatīsies šādi:
[MySectionName]
TestValue = 100
Lasiet informāciju no INI failiem
Izmantojot zemāk esošo makro, varat lasīt informāciju no teksta faila:
Funkcija GetIniSetting (faila nosaukums kā virkne, sadaļa kā virkne, _ atslēga kā virkne) Kā virkne Dim wd kā Word.Application GetIniSetting = "" Set wd = New Word.Application "izveidojiet Word lietojumprogrammas objektu Kļūda Atsākt nākamo GetIniSetting = wd.System .PrivateProfileString (faila nosaukums, sadaļa, atslēga) Ieslēgta kļūda GoTo 0 Set wd = Nothing 'iznīcināt Word lietojumprogrammas objektu Beigu funkcija
Izmantojiet šādu makro, lai atgrieztu atslēgas TestValue vērtību sadaļā MySectionName
no faila C: \ FolderName \ FileName.ini:
MyStringVar = GetIniSetting ("C: FolderName \ FileName.ini", _ "MySectionName", "TestValue")
Ierakstiet informāciju reģistrā
Izmantojot zemāk esošo makro, jūs varat saglabāt informāciju reģistrā:
Funkcija SetRegistrySetting (Sadaļa kā virkne, _ atslēga kā virkne, KeyValue) Kā Būla Dim wd Kā Word.Application SetRegistrySetting = False Set wd = New Word.Application 'izveidojiet Word lietojumprogrammas objektu Kļūda Atsākt nākamo wd.System.PrivateProfileString ("" , Sadaļa, Atslēga) = CStr (KeyValue) Ieslēgta kļūda GoTo 0 Set wd = Nekas 'neiznīcina Word lietojumprogrammas objektu SetRegistrySetting = Patiesā beigu funkcija
Izmantojiet šādu makro, lai saglabātu jaunu vērtību mapē HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft
Excel atslēgai DefaultPath:
MyStringVar = "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 8.0 \ Excel \ Microsoft Excel" MyBooleanVar = SetRegistrySetting (MyStringVar, _ "DefaultPath", "C: \ FolderName")
Informācijas lasīšana no reģistra Izmantojot zemāk esošo makro, varat lasīt informāciju no reģistra:
Funkcija GetRegistrySetting (sadaļa kā virkne, atslēga kā virkne) Kā virkne Dim wd kā Word.Application GetRegistrySetting = "" Set wd = New Word.Application 'izveidojiet Word lietojumprogrammas objektu uz kļūdu Resume Next GetRegistrySetting = wd.System.PrivateProfileString ("" , Sadaļa, atslēga) Ieslēgta kļūda GoTo 0 Set wd = Nothing 'iznīcināt Word lietojumprogrammas objektu End Function
Izmantojiet šādu makro, lai nolasītu vērtību no atslēgas DefaultPath
no 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")