Высокие статистические технологии

Форум сайта семьи Орловых

Текущее время: Чт мар 28, 2024 11:23 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 11 ] 
Автор Сообщение
 Заголовок сообщения: помогите сохранить...
СообщениеДобавлено: Пн окт 30, 2006 3:12 pm 
Не в сети

Зарегистрирован: Вс окт 29, 2006 11:06 pm
Сообщений: 18
Откуда: Рссия
Возможно ли в VBA сохранять информацию в реестр с последующей ее загрузкой обратно в программу?:roll:
Если да то как? приведите пожалуйта пример потому что не возможно записать такрй макрос и посмотреть его текст,а в Help-e очень мало такой информации если она вообще есть..
Зарание благодарю, (очень поможете)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн окт 30, 2006 4:51 pm 
Не в сети

Зарегистрирован: Ср окт 04, 2006 6:18 pm
Сообщений: 7
То что Вас интересует описано в книге Уокенбах Джон.
"Профессиональное программирование на VBA в Excel 2002".
Сам я лично пока это не использовал, но на "заметку" взял.
В Инет "ходил" электронный ватиант книги *.pdf
(размер около 155Mb)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 31, 2006 1:24 am 
Не в сети

Зарегистрирован: Вс окт 29, 2006 11:06 pm
Сообщений: 18
Откуда: Рссия
155 Mетров- это не реально но спасибо и за это ... :arrow:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 31, 2006 2:38 am 
Не в сети

Зарегистрирован: Пн дек 19, 2005 10:45 am
Сообщений: 19
А я уверен, что за нужной информацией далеко ходить не нужно, ибо она наличествует в справке :P И дабы не быть голословным, процитирую всю справку касательно :

Инструкция SaveSetting

Сохраняет или создает раздел или запись в разделе приложения в реестре Windows.

Синтаксис

SaveSetting appname, section, key, setting

Синтаксис инструкции SaveSetting содержит следующие именованные аргументы:

Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, которому соответствует раздел.
section - Обязательный. Строковое выражение, содержащее имя раздела, в котором сохраняется значение.
key - Обязательный. Строковое выражение, содержащее имя сохраняемой записи.
setting - Обязательный. Выражение, содержащее значение записи, указанной в аргументе key.

Дополнительные сведения

Если значение по какой-либо причине сохранить не удается, возвращается ошибка.

Пример использования инструкции SaveSetting

Код:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения MyApp, а затем инструкция DeleteSetting вызывается для их удаления.

' Заполнение реестра.
SaveSetting appname := "MyApp", section := "Startup", _
            key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Удаляем из реестра раздел приложения со всем содержимым.
DeleteSetting "MyApp", "Startup"


Функция GetSetting

Возвращает значение записи из раздела, соответствующего приложению в реестре Windows.

Синтаксис

GetSetting(appname, section, key[, default])

Синтаксис функции GetSetting содержит следующие именованные аргументы:

Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, для которого определяются записи.
section - Обязательный. Строковое выражение, содержащее имя раздела, в котором находится запись.
key - Обязательный. Строковое выражение, содержащее имя возвращаемой записи.
default - Необязательный. Выражение, содержащее значение, возвращаемое в том случае, если значение записи не задано. Если аргумент default не определен, то подразумевается пустая строка ("").

Дополнительные сведения

Если в любом из аргументов указано несуществующее значение, функция GetSetting возвращает значение аргумента default.

Пример использования функции GetSetting

Код:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения, указанного в аргументе appname, а затем одна из записей выводится с помощью функции GetSetting. Поскольку аргумент default определен, обязательно будет возвращено некоторое значение. Следует отметить, что имена разделов, указанные в аргументе section, не могут быть возвращены с помощью GetSetting. И наконец, функция DeleteSetting удаляет элементы, относящиеся к приложению.

' Переменная типа Variant, в которую будет записан двумерный
' массив, возвращаемый функцией GetSetting.
Dim MySettings As Variant
' Заполнение реестра.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
                       key := "Left", default := "25")

DeleteSetting "MyApp", "Startup"


Функция GetAllSettings

Возвращает список записей и их значений (созданных с помощью функции SaveSetting) из раздела, соответствующего приложению, в реестре Windows.

Синтаксис

GetAllSettings(appname, section)

Синтаксис функции GetAllSettings содержит следующие именованные аргументы:

Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, для которого определяются записи.
section - Обязательный. Строковое выражение, содержащее имя раздела, для которого определяются записи. Функция GetAllSettings возвращает значение типа Variant, содержащее двумерный массив, содержащее двумерный строковый массив с именами всех записей в указанном разделе и их значений.

Дополнительные сведения

Функция GetAllSettings возвращает неинициализированное значение типа Variant, если хотя бы в одном из аргументов appname или section указано несуществующее значение.

Пример использования функции GetAllSettings

Код:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения, указанного в аргументе appname, а затем значения записей выводятся с помощью функции GetAllSettings. Отметим, что функция GetAllSettings не возвращает имена приложений и имена разделов, указанных в аргументе section . И наконец, функция DeleteSetting удаляет элементы, относящиеся к приложению.

' Описываем переменную типа Variant, в которую будет записан двумерный
' массив, возвращаемый функцией GetAllSettings.
' Описываем счетчик с типом Integer.
Dim MySettings As Variant, intSettings As Integer
' Заполнение реестра.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Возвращает записи.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")

For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)


DeleteSetting "MyApp", "Startup"


Инструкция DeleteSetting

Удаляет раздел или запись из раздела приложения в реестре Windows.

Синтаксис

DeleteSetting appname, section[, key]

Синтаксис инструкции DeleteSetting содержит следующие именованные аргументы:

Элемент - Описание
appname - Обязательный. Строковое выражение, содержащее имя приложения или проекта, к которому относится раздел или запись.
section - Обязательный. Строковое выражение, содержащее имя раздела, в котором удаляется запись. Если определены только аргументы appname и section, указанный раздел удаляется полностью со всеми записями.
key - Необязательный. Строковое выражение, содержащее имя удаляемой записи.

Дополнительные сведения

Если определены все аргументы, удаляется только указанная запись. Если указанный раздел или запись не существует, инструкция DeleteSetting не имеет последствий.

Пример использования инструкции DeleteSetting

Код:
В данном примере сначала с помощью инструкции SaveSetting заполняются элементы реестра Windows (или файла .INI на 16-разрядных платформах Windows) для приложения MyApp, а затем инструкция DeleteSetting вызывается для их удаления. Поскольку аргумент key не определен, удаляется весь раздел, в том числе имя раздела и все содержащиеся в нем записи.

' Заполнение реестра.
SaveSetting appname := "MyApp", section := "Startup", _
            key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Удаление из реестра раздела со всем содержимым.
DeleteSetting "MyApp", "Startup"


Copyright(c) 1996 Microsoft Corporation.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: помогите сохранить...
СообщениеДобавлено: Вт окт 31, 2006 9:28 am 
Не в сети
Site Admin

Зарегистрирован: Пн сен 27, 2004 10:26 pm
Сообщений: 114
Аlex писал(а):
Возможно ли в VBA сохранять информацию в реестр с последующей ее загрузкой обратно в программу?:roll:
Если да то как? приведите пожалуйта пример потому что не возможно записать такрй макрос и посмотреть его текст,а в Help-e очень мало такой информации если она вообще есть..
Зарание благодарю, (очень поможете)


Да, можно. Пример такой программы - макрос SaveIn с этого сайта, код открытый - посмотрите.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 31, 2006 10:28 am 
Не в сети

Зарегистрирован: Ср окт 04, 2006 6:18 pm
Сообщений: 7
Вопрос к pashulka.
Вы цитируете Справку. Это Ваш перевод? Или сущеутвует справка по VBA на русском?
Если "Да", то нельзя ли ей поделиться?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 31, 2006 11:02 am 
Не в сети

Зарегистрирован: Пн дек 19, 2005 10:45 am
Сообщений: 19
mart313, Это выдержки из справки, которая доступна всем обладателям MS Office 97 Rus.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср ноя 01, 2006 1:28 pm 
Не в сети

Зарегистрирован: Вс окт 29, 2006 11:06 pm
Сообщений: 18
Откуда: Рссия
8) pashulka, очень благодарен! :D (за перевод в частности :!: ) теперь то-справку 97 ого мало где найти можно :wink:

спасибо :!: , выручили! :mrgreen:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср ноя 01, 2006 2:40 pm 
Не в сети
Site Admin

Зарегистрирован: Пн сен 27, 2004 10:26 pm
Сообщений: 114
Могу выложить на сайте русскую справку по VBA из Word 97.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср ноя 01, 2006 9:20 pm 
Не в сети

Зарегистрирован: Вс окт 29, 2006 11:06 pm
Сообщений: 18
Откуда: Рссия
admin писал(а):
Могу выложить на сайте русскую справку по VBA из Word 97.
было бы не плохо...
а сколько она весит? :?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт ноя 03, 2006 1:07 am 
Не в сети
Site Admin

Зарегистрирован: Пн сен 27, 2004 10:26 pm
Сообщений: 114
Справка по VBA из Office 97:

http://orlovs.pp.ru/other/vba97.zip

Часть ее переведена на русский язык.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 11 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 37


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB