Click here to Skip to main content
Click here to Skip to main content

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 -->

    Introduction

    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 curtblackmon@home.com
       ' updated versions will be at www.ccbcon.com 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
          oDoc.Selection.CharRight
          '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)
          else
             bFound = oDoc.Selection.FindText(sTwo)
          end if
          oDoc.Selection.CharRight
          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
       next
    
       'close and save *.rc
       oDoc.Close dsSaveChangesYes
       set oDoc = nothing
    End Sub
    


    License

    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

    Share

    About the Author

    Curt Blackmon
    Web Developer
    United States United States
    No Biography provided

    Comments and Discussions

     
    Generalanother improvement Pinmembergok16-Apr-04 13:10 
    GeneralA small problem PinmemberCharles Sicotte25-Dec-00 12:13 
    GeneralNice macro, but... PinsussSteve18-Jul-00 4:32 
    GeneralRe: Nice macro, but... PinsussArchieSEB18-Jul-00 5:09 
    GeneralRe: Nice macro, but... PinmemberRubke16-Jul-01 3:08 
    GeneralAdditional Instructions for VS macro newbies PinsussRicky Faulstich17-Jul-00 16:10 
    GeneralWorks fine, I tried some of the others , this one seems easiest PinsussJCardinal17-Jul-00 12:23 
    GeneralDebug build PinsussJens Kreiensiek16-Jul-00 22:06 
    GeneralRe: Debug build PinmemberEdgar Rocha1-Oct-03 16:07 
    GeneralRe: Debug build PinmemberEdgar Rocha1-Oct-03 18:03 
    GeneralBug and fix! PinsussFredrik Tonn13-Jul-00 8:33 
    GeneralRe: Bug and fix! PinsussCurt Blackmon13-Jul-00 12:51 
    GeneralRe: Bug and fix! PinsussJames27-Oct-00 2:44 
    GeneralRe: Bug and fix! Pinsussflo027-Jan-03 23:25 

    General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    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
    Web01 | 2.8.1411023.1 | Last Updated 12 Jul 2000
    Article Copyright 2000 by Curt Blackmon
    Everything else Copyright © CodeProject, 1999-2014
    Layout: fixed | fluid