|
Действия ...
|
30.11.2006, 23:29
|
|||
|---|---|---|---|
|
|||
Присвоение переменной строки адреса к файлу |
|||
|
храните в реестре
SaveSetting GetSetting  |
|||
|
|
|
01.12.2006, 06:41
|
|||
|---|---|---|---|
|
|||
Присвоение переменной строки адреса к файлу |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
30.11.2006, 23:25
|
|||
|---|---|---|---|
|
|||
Присвоение переменной строки адреса к файлу |
|||
|
#18+
Уважаемые профессионалы и специалисты в Visual Basic! Посоветуйте, как решить такую задачку. В Word использую один макрос. Для его работы некоторой переменной необходимо присвоить адрес к той или иной базе данных. Сейчас я это делаю вручную в редакторе Visual Basic. Естественно, это не совсем удобно, особенно, если адрес необходимо менять несколько раз на дню :( Как запрограммировать следующее: 1). При нажатии некоторой кнопки открывается окно, аналогичное тому, которое отображено ниже. В нем пользователь указывает путь к тому или иному файлу. 2). Адрес присваивается переменной и сохраняется там до тех пор, пока пользователь не укажет новый. Но, главное, хранение этой информации должно быть постоянным (т.е. и при следующем запуске Word программа использует тот адрес, который был указан ранее). Заранее благодарен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
30.11.2006, 23:29
|
|||
|---|---|---|---|
Присвоение переменной строки адреса к файлу |
|||
|
#18+
храните в реестре SaveSetting GetSetting ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
01.12.2006, 06:41
|
|||
|---|---|---|---|
Присвоение переменной строки адреса к файлу |
|||
|
#18+
Или внешний файл, в котором лежит инфа про это: ini, xml, mdb и т.д., но лучше реестр конечно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.12.2006, 14:47
|
|||
|---|---|---|---|
|
|||
Присвоение переменной строки адреса к файлу |
|||
|
#18+
Что б особо не морочиться, при запоминании номера ел. письма положил на сетевой каталог текстовый файлик 'Об"явил Dim sL_n As String Dim sL_n_new As Integer 'Дескриптор файла nFileHandle = FreeFile 'Открываем файл Open "p:\arms\lc_post\numb_sl.txt" For Binary As #nFileHandle 'Готовим строку из 4 пробелов sL_n = String(4, " ") 'читаем из позиции 2 номер служебки Get #nFileHandle, 2, sL_n 'Закрываемся Close nFileHandle ' Имеем номер новой служебки sL_n_new = Val(sL_n) + 1 ' Ограничил номера до 1000 If sL_n_new = 1000 Then sL_n_new = 1 End If Такое вот хранение даных ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2164871]: |
0ms |
get settings: |
10ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
167ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 235ms |
| total: | 480ms |
| 0 / 0 |
