Копирование написанного кода в текстовый файл

@lera6664 · Регистрация: 13.11.2013

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

Здравствуйте! Подскажите пожалуйста как реализовать следующую задачу:
Есть код, например сложение 2х чисел, я хочу функцию, при вызове которой весь написанный код будет записываться в текстовый файл, т.е. примерно так:

'Здесь вызывается функция

'Здесь пишется код, и он параллельно записывается в текстовый файл.
z = x+y
MsgBox(z)

В результате получаю код в VBS и то же самое в текстовом файле.
Ну и здорово было бы если при внесении изменений в текстовый файл тоже вносились изменения.

Помогите пожалуйста!

Dragokas · 13.11.2013, 22:59

Т.е. при вызове функции, исходный код этого файла должен дублироваться в другой файл?

@lera6664 · 14.11.2013, 06:53 **[ТС]**

Вопрос даже скорей по инструменту QTP, изначально я думала как записывать весь написанный код в текстовый файл. Потом пришла к выводу, что лучше создать одну функцию для двух других. но пока что имею некоторые сложности с реализацией своей задумки. Т.е. суть есть 2 функции работы с тестовыми данными. Reporter.ReportEvent И Reporter.ReportNote, хотелось бы их превратить в fReport(EventStatus, ReportName, Details), чтобы при вызове данной функции и параметров, отрабатывали Reporter.ReportEvent EventStatus (ReportName, Details) и Reporter.ReportNote ("
"). Возможно ли такое реализовать?

Добавлено через 1 минуту
Dragokas, но вообщем то да: "при вызове функции, исходный код этого файла должен дублироваться в другой файл" Так наверное будет лучше.

@Eva Rosalene · 14.11.2013, 12:37

Visual Basic

1	CreateObject("Wscript.Shell").Run "copy """ & Wscript.Scriptfullname & """ file.txt", 0

Самый простой способ.

@lera6664 · 14.11.2013, 13:25 **[ТС]**

Спасибо!)

@lera6664 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 3
		1
	Копирование написанного кода в текстовый файл 13.11.2013, 07:58. Показов 687. Ответов 4 Метки нет (Все метки) Здравствуйте! Подскажите пожалуйста как реализовать следующую задачу: Есть код, например сложение 2х чисел, я хочу функцию, при вызове которой весь написанный код будет записываться в текстовый файл, т.е. примерно так: 'Здесь вызывается функция 'Здесь пишется код, и он параллельно записывается в текстовый файл. z = x+y MsgBox(z) В результате получаю код в VBS и то же самое в текстовом файле. Ну и здорово было бы если при внесении изменений в текстовый файл тоже вносились изменения. Помогите пожалуйста! 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	13.11.2013, 22:59	2
	Т.е. при вызове функции, исходный код этого файла должен дублироваться в другой файл? 0

@lera6664 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 3
	14.11.2013, 06:53 [ТС]	3
	Вопрос даже скорей по инструменту QTP, изначально я думала как записывать весь написанный код в текстовый файл. Потом пришла к выводу, что лучше создать одну функцию для двух других. но пока что имею некоторые сложности с реализацией своей задумки. Т.е. суть есть 2 функции работы с тестовыми данными. Reporter.ReportEvent И Reporter.ReportNote, хотелось бы их превратить в fReport(EventStatus, ReportName, Details), чтобы при вызове данной функции и параметров, отрабатывали Reporter.ReportEvent EventStatus (ReportName, Details) и Reporter.ReportNote (" "). Возможно ли такое реализовать? Добавлено через 1 минуту Dragokas, но вообщем то да: "при вызове функции, исходный код этого файла должен дублироваться в другой файл" Так наверное будет лучше. 0

@lera6664 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 3
	14.11.2013, 13:25 [ТС]	5
	Спасибо!) 0