SourceSafe Keyword Expansion Template

CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

We use Visual SourceSafe’s keyword expansion. Each of our project’s
source files has (or should if we remember) the following header when
we add it to source control.

// TEST.CPP : implementation file

//

/* $Log: /TEST/TEST.CPP $

*/

This macro inserts the template into .H and .CPP files.

Sub AddSSHeader()

‘DESCRIPTION: Insert the source safe keyword expansion comments at the top of source file

 strName = UCase(ActiveDocument.Name)

 pos = Instr(strName, “.”)
 if (pos < 1) then
  Exit Sub
 end if

 strExt = Mid(strName, pos)

 if (strExt = ".CPP") then
  strDesc = "implementation file"
 else
  if (strExt = ".H") then
   strDesc = "header file"
  else
   exit sub
  end if
 end if

 ActiveDocument.Selection.StartOfDocument

 ' Check for existing keyword expansion
 for i = 1 to 20
  ActiveDocument.Selection.SelectLine

 if Instr(ActiveDocument.Selection, "/* $Log:") > 0 then

  MsgBox “File already has keyword expansion.”

  exit sub

 end if
  ActiveDocument.Selection.LineDown

 next
 strFullName = ActiveDocument.FullName

 pos = Instr(strFullName, “:”)
 if (pos > 0) then

  strFullName = Mid(strFullName, pos + 1)

 end if
 ActiveDocument.Selection.StartOfDocument

 ActiveDocument.Selection = “// ” + strName + ” : ” + strDesc + vbCrLf

 ActiveDocument.Selection = “//” + vbCrLf

 ActiveDocument.Selection = “/* $Log: ” + UCase(Replace(strFullName,

 “”, “/”)) + ” $” + vbCrLf

 ActiveDocument.Selection = “*/” + vbCrLf + vbCrLf
end sub

Date Last Updated: February 3, 1999