Click here to Skip to main content
11,927,378 members (51,666 online)
Click here to Skip to main content
Add your own
alternative version


25 bookmarked

An Automatic Build Incrementer for VC6

, 11 Jul 2000
Rate this:
Please Sign up or sign in to vote.
An article on how to add an automatic build incrementer to VC6
<!-- Download Links -->
  • Download source files - 2 Kb
  • <!-- Main HTML starts here -->


    Several weeks ago, I started trying to find a way to automatically increment build numbers on each compile. I found several articles on the subject and some source code but none of it did exactly what I wanted it to do, so I decided to write my own incrementer.

    Add the code to an existing macro file or, if you don't have an existing macro file, create one and add one dummy macro so you can access the code snippet. Application_BeforeBuildStart() is a Visual Studio defined event handler and although the code is in a macro file, when you select the Tools|Macro menu item, you won't see it, so you need at least a dummy macro in the file to access the source code.

    Note that these code snippets have been subjected to limited testing and that you use them at your own risk. They work correctly in the test environment, but you assume all risk for their use. I will not assume any liability whatsoever for their failure to work correctly in your environment.

    Please e-mail any comments, suggestions for improvement, problems, etc. to me.

    Sub Application_BeforeBuildStart()
       ' written 7/11/00 by Curt Blackmon
       ' e-mail any comments, corrections, etc. to
       ' updated versions will be at on the Code Snippets page
       ' invoked automatically before build starts
       ' will open the project's *.rc file as text
       ' will search for the version info
       ' and will increment the build number
       dim oDoc
       dim sBuild
       dim sRCFile
       dim sOne
       dim sTwo
       dim iSelect
       dim lLineNbr
       dim bFound
       'get the name of the active project's .rc file
       sRCFile = application.activeproject & ".rc"
       'open *.rc file as text
       set oDoc = Documents.Open(sRCFile, "Text")
       'position to the correct section of the file
       oDoc.Selection.FindText " FILEVERSION", dsMatchCase
       'save the line number for the next search
       lLineNbr = oDoc.Selection.CurrentLine
       'use a regular expression search string for the first version search
       sOne = "[0-9]+,[0-9]+,[0-9]+,"
       'find the first string
       oDoc.Selection.FindText sOne, dsMatchRegExp
       if oDoc.Selection.CurrentLine = lLineNbr then
          'convert the regular expression to an absolute search string
          sOne = oDoc.Selection
          'build an absolute search string for the strings with embedded spaces
          sTwo = Replace(sOne, ",", ", ")
          'move to the build number
          'select the build number
          oDoc.Selection.WordRight dsExtend
          'increment the build number
          sBuild = oDoc.Selection + 1
          'replace the old build number with the new one
          oDoc.Selection = sBuild
       else 'something went wrong
          msgbox "Version number 1 not found. Closing without changes."
          oDoc.Close dsSaveChangesNo
          set oDoc = nothing
          exit sub
       end if
       'now change the other 3 occurences of the build number
       for iSelect = 2 to 4
          if iSelect = 2 then
             bFound = oDoc.Selection.FindText(sOne)
             bFound = oDoc.Selection.FindText(sTwo)
          end if
          oDoc.Selection.WordRight dsExtend
          oDoc.Selection = sBuild
          if bFound = False then
             msgbox "Version number " & iSelect & " not found. Closing without changes."
             oDoc.Close dsSaveChangesNo
             set oDoc = nothing
             exit sub
          end if
       'close and save *.rc
       oDoc.Close dsSaveChangesYes
       set oDoc = nothing
    End Sub


    This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

    A list of licenses authors might use can be found here


    About the Author

    Curt Blackmon
    Web Developer
    United States United States
    No Biography provided

    You may also be interested in...

    Comments and Discussions

    Generalanother improvement Pin
    gok16-Apr-04 13:10
    membergok16-Apr-04 13:10 
    GeneralA small problem Pin
    Charles Sicotte25-Dec-00 12:13
    memberCharles Sicotte25-Dec-00 12:13 
    GeneralNice macro, but... Pin
    Steve18-Jul-00 4:32
    sussSteve18-Jul-00 4:32 
    GeneralRe: Nice macro, but... Pin
    ArchieSEB18-Jul-00 5:09
    sussArchieSEB18-Jul-00 5:09 
    GeneralRe: Nice macro, but... Pin
    Rubke16-Jul-01 3:08
    memberRubke16-Jul-01 3:08 
    GeneralAdditional Instructions for VS macro newbies Pin
    Ricky Faulstich17-Jul-00 16:10
    sussRicky Faulstich17-Jul-00 16:10 
    GeneralWorks fine, I tried some of the others , this one seems easiest Pin
    JCardinal17-Jul-00 12:23
    sussJCardinal17-Jul-00 12:23 
    GeneralDebug build Pin
    Jens Kreiensiek16-Jul-00 22:06
    sussJens Kreiensiek16-Jul-00 22:06 
    GeneralRe: Debug build Pin
    Edgar Rocha1-Oct-03 16:07
    memberEdgar Rocha1-Oct-03 16:07 
    GeneralRe: Debug build Pin
    Edgar Rocha1-Oct-03 18:03
    memberEdgar Rocha1-Oct-03 18:03 
    GeneralBug and fix! Pin
    Fredrik Tonn13-Jul-00 8:33
    sussFredrik Tonn13-Jul-00 8:33 
    GeneralRe: Bug and fix! Pin
    Curt Blackmon13-Jul-00 12:51
    sussCurt Blackmon13-Jul-00 12:51 
    GeneralRe: Bug and fix! Pin
    James27-Oct-00 2:44
    sussJames27-Oct-00 2:44 
    GeneralRe: Bug and fix! Pin
    flo027-Jan-03 23:25
    sussflo027-Jan-03 23:25 

    General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

    Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

    | Advertise | Privacy | Terms of Use | Mobile
    Web04 | 2.8.151126.1 | Last Updated 12 Jul 2000
    Article Copyright 2000 by Curt Blackmon
    Everything else Copyright © CodeProject, 1999-2015
    Layout: fixed | fluid