Низови приватног профила често се користе за складиштење специфичних података корисника изван апликације/документа за каснију употребу.
Можете, на пример, да сачувате информације о најновијем садржају у дијалогу/корисничком обрасцу,
колико је пута отворена радна свеска или последњи коришћени број рачуна за предложак фактуре.
Подаци се могу сачувати у ИНИ датотеци, било на локалном чврстом диску или у заједничкој мрежној фасцикли.
ИНИ-датотека је обична текстуална датотека и садржај би могао изгледати отприлике овако:
[ЛИЧНИ]
Презиме = Срна
Име = Јован
Датум рођења = 1.1.1960
Јединствени број = 123456
Низови приватног профила за сваког корисника могу се такође складиштити у регистру.
Екцел нема уграђену функцију за читање и писање у ИНИ датотеке, као што Ворд има (Систем.ПриватеПрофилеСтринг),
па вам је потребно неколико АПИ функција да бисте то учинили на једноставан начин.
Ево примера макроа за писање и читање из ИНИ датотеке која садржи низове приватног профила.
Цонст ИниФилеНаме Ас Стринг = "Ц: \ Име фасцикле \ УсерИнфо.ини"
'путања и назив датотеке до датотеке која садржи информације које желите да прочитате/запишете
Приватна декларирајућа функција ГетПриватеПрофилеСтрингА Либ _ "Кернел32" (БиВал стрСецтион Ас Стринг, _ БиВал стрКеи Ас Стринг, БиВал стрДефаулт Ас Стринг, _ БиВал стрРетурнедСтринг Ас Стринг, _ БиВал лнгСизе Ас Лонг, БиВал стрФилеПраНаРефРесец) _ "Кернел32" (БиВал стрСецтион Ас Стринг, _ БиВал стрКеи Ас Стринг, БиВал стрСтринг Ас Стринг, _ БиВал стрФилеНамеНаме Ас Стринг) Као дуга приватна функција БиВал стрВалуе Као низ , _ БиВал стрСецтион Ас Стринг, БиВал стрКеи Ас Стринг, _ Опционално стрДефаулт) Ас Стринг Дим стрРетурнСтри нг Ас Стринг, лнгСизе Ас Лонг, лнгВалид Ас Лонг Он Грешка Настави даље Ако недостаје (стрДефаулт) Затим стрДефаулт = "" стрРетурнСтринг = Размак (1024) лнгСизе = Лен (стрРетурнСтринг) лнгВалид = ГетПриватеПрофилеСтрингАре, стре, стре, стре, стре, стре, стре, стреРецтион, стре, стреРецтион, стре, стреРецтион, стре, лнгСизе, стрФилеНаме) ГетПриватеПрофилеСтринг32 = Лево (стрРетурнСтринг, лнгВалид) Он Еррор ГоТо 0 Енд Фунцтион 'доњи примери претпостављају да опсег Б3: Б5 у активном листу садржи' информације о презимену, имену и датуму рођења Суб ВритеУсерИнфо () ' датотека ИниФилеНаме Ако није ВритеПриватеПрофилеСтринг32 (ИниФилеНаме, "ПЕРСОНАЛ", _ "Презиме", Опсег ("Б3"). Вредност) Затим МсгБок "Није могуће сачувати податке о кориснику у" & ИниФилеНаме, _ вбЕкцламатион, "Мапа не постоји! " Затворите под -крај ако ВритеПриватеПрофилеСтринг32 ИниФилеНаме, "ПЕРСОНАЛ", _ "Презиме", Опсег ("Б3"). Вредност ВритеПриватеПрофилеСтринг32 ИниФилеНаме, "ПЕРСОНАЛ", _ "Име", Опсег ("Б4"). , _ "Датум рођења", Опсег ("Б5"). Вредност Крај Суб Суб РеадУсерИнфо () 'чита информације из датотеке ИниФилеНаме Иф Дир (ИниФилеНаме) = "" Затим изађите из подопсега ("Б3"). Формула = ГетПриватеПрофилеСтринг32 (ИниФилеНаме , _ "ПЕРСОНАЛ", "Ластнаме") Распон ("Б4"). Формула = ГетПриватеПрофилеСтринг32 (ИниФилеНаме, _ "ПЕРСОНАЛ", "Фирстнаме") Распон ("Б5"). Формула = ГетПриватеПрофилеСтринг32 (ИниФилеНаме, _ "П "Датум рођења") Енд Суб 'доњи пример претпоставља да опсег Д4 у активном листу садржи' информације о јединственом броју Суб ГетНевУникуеНумбер () Дим УникуеНумбер Ас Лонг Иф Дир (ИниФилеНаме) = "" Затим изађите из Суб УникуеНумбер = 0 Он Еррор Настави даље УникуеНумбер = ЦЛнг (ГетПриватеПрофилеСтринг32 (ИниФилеНаме, _ "ПЕРСОНАЛ", "УникуеНумбер")) Грешка Иди на 0 Опсег ("Д4"). Формула = УникуеНумбер + 1 Ако није ВритеПриватеПрофилеСтринг32 (ИниФилеНаме, "ПЕРСОНАЛ", _ "УникуеНумбер", Ранге ("Д4"). Вредност) Онда МсгБок "Није могуће сачувати податке о корисницима у" & ИниФилеНаме , _ вбЕкцламатион, "Мапа не постоји!" Екит Суб Енд Иф Енд Суб