SourceSafe Keyword Expansion Template

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

More by Author

Must Read