И все-таки исполнение команды из текстового файла

@orange3100 · Регистрация: 16.10.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток уважаемые форумчане! Знаю что похожий вопрос задавал, но поскольку было предложено альтернативное решение отказался от него. А некоторые задачи все-таки хотелось бы решить именно благодаря такой методике...
Имеется текстовый файл с инструкцией vba, как можно все-таки обратиться к этому текстовому файлу и запустить эту инструкцию в приложении?
Спасибо!

@Вячеслав Я · 27.07.2016, 23:19

Сообщение от orange3100

Имеется текстовый файл с инструкцией vba, как можно все-таки обратиться к этому текстовому файлу и запустить эту инструкцию в приложении?

В смысле инструкция просто набрана (например в ВОРДе) и ее при необходимости нужно открыть и прочитать? Можно сделать поле с Гиперссылкой, если так. Или поясните на примере.

mobile · 27.07.2016, 23:40

Добавить текстовый файл в проект как модуль пойдет?

Visual Basic

DoCmd.RunCommand acCmdNewObjectModule   'создать новый модуль
DoCmd.Close acModule, "ИмяМодуля", acSaveYes  'сохранить с новым именем
DoCmd.OpenModule "ИмяМодуля"            'открыть модуль
Set mdl = Modules("ИмяМодуля")
mdl.AddFromFile "путь\ИмяФайла"         'записать в модуль содержание текстового файла
DoCmd.Close acModule, "ИмяМодуля", acSaveYes
Call ПроцедураИзИмпортированногоФайла() 'выполнить процедуру
 
'Если нужно, то после выполнения модуль сразу уничтожается
DoCmd.DeleteObject acModule, "ИмяМодуля"

Еще вариант - считать текстовый файл выделить из него нужную процедуру и пользуясь методом AddFromString, записать ее в имеющийся (или новый) модуль и выполнить.

@alvk · 28.07.2016, 05:57

Вот и первый вирус для Акцесса.

@orange3100 · 28.07.2016, 12:12 **[ТС]**

Сообщение от mobile

Еще вариант - считать текстовый файл выделить из него нужную процедуру

а вот этот примерчик можно

mobile · 28.07.2016, 12:29

Желательно иметь примерчик bas-файла. Вариантов считывания и выполнения множество, делать на все случаи не хочется. Вложите bas-файл, укажите процедуру или строку, которую надо выполнить. Тогда можно будет попробовать соорудить работающий вариант.

@amd48 · 29.07.2016, 11:22

как-то так

VB.NET

Sub AddVBACode()
Open "c:\temp\1.bas" For Input As #1
While Not EOF(1)
    Input #1, strLine
    strCode = strCode & vbCrLf & strLine
Wend
Close #1
Set VBComp = Access.Application.VBE.VBProjects(1).VBComponents("module1")
With VBComp.CodeModule
    .InsertLines .CountOfLines + 1, strCode
End With
Set VBComp = Nothing
End Sub

научил плохому

Добавлено через 7 минут
Вот только это работает, как добавка содержимого файла в модуль. Если процедура с таким именем уже существует, то весь проект перестанет работать из-за ошибки компиляции. Если такую инъекцию необходимо делать регулярно для выполнения каких-нибудь обновлений базы, то это надо городить специальный модуль для таких задач, а потом удалять из проекта

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
		1
	И все-таки исполнение команды из текстового файла 27.07.2016, 22:16. Показов 1405. Ответов 6 Метки нет (Все метки) Доброго времени суток уважаемые форумчане! Знаю что похожий вопрос задавал, но поскольку было предложено альтернативное решение отказался от него. А некоторые задачи все-таки хотелось бы решить именно благодаря такой методике... Имеется текстовый файл с инструкцией vba, как можно все-таки обратиться к этому текстовому файлу и запустить эту инструкцию в приложении? Спасибо! 0

@Вячеслав Я 2833 / 1375 / 215 Регистрация: 13.05.2011 Сообщений: 4,217
	27.07.2016, 23:19	2
	Сообщение от orange3100 Имеется текстовый файл с инструкцией vba, как можно все-таки обратиться к этому текстовому файлу и запустить эту инструкцию в приложении? В смысле инструкция просто набрана (например в ВОРДе) и ее при необходимости нужно открыть и прочитать? Можно сделать поле с Гиперссылкой, если так. Или поясните на примере. 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	28.07.2016, 05:57	4
	Вот и первый вирус для Акцесса. 1

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
	28.07.2016, 12:12 [ТС]	5
	Сообщение от mobile Еще вариант - считать текстовый файл выделить из него нужную процедуру а вот этот примерчик можно 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	28.07.2016, 12:29	6
	Желательно иметь примерчик bas-файла. Вариантов считывания и выполнения множество, делать на все случаи не хочется. Вложите bas-файл, укажите процедуру или строку, которую надо выполнить. Тогда можно будет попробовать соорудить работающий вариант. 0

	29.07.2016, 11:22

И все-таки исполнение команды из текстового файла

Решение