----- Original Message ----- From: "Gall" <gall@tu.tusur.ru> To: <kaev@yandex.ru> Sent: Thursday, July 04, 2002 6:05 PM Subject: my project build number Здравствуйте, Артём! Вопрос по IDE, никто мне на него ответить не смог до сих пор :(... ВОПРОС: какие настройки IDE нужны, чтобы при каждом построении программы номер её билда автоматически увеличивался?
Таких настроек в IDE я не знаю (но чем черт не шутит, может есть), а пока вопрос решается с пользованием макросов. Один из примеров приведен в шаге "Шаг 239 - Использование макросов IDE". Сначала создадим макрос, который просто все сохраняет и запускает сборку проекта.
Sub Test() Documents.SaveAll True ExecuteCommand "BuildToggleBuild" End Sub
Теперь нам нужно добраться до ресурсов, сначала узнать имя rc файла.
Sub Test() DIM resourceName Documents.SaveAll True resourceName = application.activeproject & ".rc" msgbox resourceName Documents.SaveAll True ExecuteCommand "BuildToggleBuild" End Sub
А вот результат, вроде все нормально:
Теперь нужно этот файл отрыть, сразу и закром с сохранением.
Sub Test() DIM resourceName DIM resourceFile Documents.SaveAll True resourceName = application.activeproject & ".rc" set resourceFile = Documents.Open(resourceName, "Text") resourceFile.Close dsSaveChangesYes Documents.SaveAll True ExecuteCommand "BuildToggleBuild" End Sub
Найдем теперь строку с версией файла. Которая по факту есть в ресурсах (AppWizard создает).
Будем искать по слову FileVersion
Sub Test() DIM resourceName DIM resourceFile DIM buldNumber Documents.SaveAll True resourceName = application.activeproject & ".rc" set resourceFile = Documents.Open(resourceName, "Text") resourceFile.Selection.FindText "FILEVERSION", dsMatchCase buldNumber = resourceFile.Selection msgbox buldNumber resourceFile.Close dsSaveChangesYes Documents.SaveAll True ExecuteCommand "BuildToggleBuild" End Sub
Вот находим: