Добрый день всем!
На форме имеется индексированное меню примерно такого типа (данный код взят из топика "Переключатели в меню". написан Naqual, большое ему спасибо) :

Код

Вид(mnuKatalog) ---Автор(mnuKatalog,0) ---Соавтор(mnuKatalog,1) ---Под_Ред(mnuKatalog,2) В скобках указаны Имя и Индекс элементов.  Private Sub mnuKatalog_Click(Index As Integer)    Dim SelectedItem As Integer    Dim sqlName As String    Dim sName(3) As String sName(0) = "(Autor1 & ', ' & Title )" sName(1) = "(SoAutor & ', ' & Title )" sName(2) = "(PodRed & ', ' & Title )"    SelectedItem = Index    Me.mnuKatalog(0).Checked = False    Me.mnuKatalog(1).Checked = False    Me.mnuKatalog(2).Checked = False    Me.mnuViewMode(SelectedItem).Checked = True        Select Case SelectedItem        Case 0 'Автор              sqlName = sName(0)        Case 1 'Соавтор              sqlName = sName(1)        Case 2 'Под_Ред              sqlName = sName(2)    End Select sSqlString = "SELECT "  & sqlName & "Illustrat, ContTitle, Isdanie, InventNumber " & _         "FROM Titles WHERE InventNumber =" & Text2.Text End Sub

Данным запросом формируется выборка, которая загружается в xls-файл.
Все работает, только если нужно изменить sName(I) (при смене ГОСТов), приходится распаковывать прогу, редактировать и т.д.
Так вот вопрос:
Нельзя ли формировать в txt или doc -файле что-то примерно вот так,

Код

строка.1   sName(0) = "(SoAutor & ', ' & Title )"  строка.2   sName(1) = "(Autor1 & ', ' & Title )"  строка.3   sName(2) = "(PodRed & ', ' & Title )"

а при запуске проги их оттуда читать и если надо, то в файле и корректировать, чтобы не трогать прогу.
С уважением

Это сообщение отредактировал(а) Flotskiy - 25.3.2005, 16:35

Код

open "SQL.txt" for input as #1 for i=0 to 2    line input #1,sName(i)    next i close #1

ну и

Цитата(SQL)

(Autor1 & ', ' & Title ) (SoAutor & ', ' & Title ) (PodRed & ', ' & Title )

Akina, благодарю за помощь. Сию буду проверять.
С уважением

Akina, проверил на проге, все отлично. Тебе "+".
С наилучшими всем пожеланиями.

Flotskiy
Теперь забудь. Счас я пьян в дым и не соображаю. В понедельник отпишу как надо правильно.

Теперь как бы я делал.
1) Дефолтные настройки сохранил бы в реестре. Использовал исключительно их и обязательно их.
2) Сделал бы процедуру (вернее форму), позволяющую считать новые строки запросов из файла (или там ввести с клавиатуры) и занести в реестр. Ессссно там же кноп "Restore defaults".

Доррый вечер всем!
Akina, то что ты советуешь, для меня темный лес. Если поможешь в решении данного вопроса, буду благодарен.
С уважением

Это сообщение отредактировал(а) Flotskiy - 28.3.2005, 12:31

См. хелп по GetSetting/SaveSetting