|
|
|
Присвоение переменной строки адреса к файлу
|
|||
|---|---|---|---|
|
#18+
Уважаемые профессионалы и специалисты в Visual Basic! Посоветуйте, как решить такую задачку. В Word использую один макрос. Для его работы некоторой переменной необходимо присвоить адрес к той или иной базе данных. Сейчас я это делаю вручную в редакторе Visual Basic. Естественно, это не совсем удобно, особенно, если адрес необходимо менять несколько раз на дню :( Как запрограммировать следующее: 1). При нажатии некоторой кнопки открывается окно, аналогичное тому, которое отображено ниже. В нем пользователь указывает путь к тому или иному файлу. 2). Адрес присваивается переменной и сохраняется там до тех пор, пока пользователь не укажет новый. Но, главное, хранение этой информации должно быть постоянным (т.е. и при следующем запуске Word программа использует тот адрес, который был указан ранее). Заранее благодарен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2006, 23:25 |
|
||
|
Присвоение переменной строки адреса к файлу
|
|||
|---|---|---|---|
|
#18+
храните в реестре SaveSetting GetSetting  ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2006, 23:29 |
|
||
|
Присвоение переменной строки адреса к файлу
|
|||
|---|---|---|---|
|
#18+
Или внешний файл, в котором лежит инфа про это: ini, xml, mdb и т.д., но лучше реестр конечно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.12.2006, 06:41 |
|
||
|
Присвоение переменной строки адреса к файлу
|
|||
|---|---|---|---|
|
#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 Такое вот хранение даных ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.12.2006, 14:47 |
|
||
|
|
start [/forum/topic.php?desktop=1&fid=60&tid=2164871]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
38ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 330ms |
| 0 / 0 |
