VSTS Links - 12/10/2007

Team System News — Mon, 10 Dec 2007 15:14:46 GMT

The NWCandence blog on Branching Strategies. MRod on tfs workspaces and reinstalling the OS or Team Explorer....

re: DataDude Annoyance #13: Project variables omitted from output script.

Patrick Neborg — Fri, 07 Mar 2008 10:29:53 GMT

When I tried this approach under TFSBuild, it locked up on me. Probably because that directory structures are completely under a TFSBuild scenario compared to IDE Build. So I adapted this solution slighty. I removed using a post build event to execute the vbs script. And in the TFSBuild.Proj file I added an after compile copy & exec task. Excerpt of the edit to TFSBuild.Proj shown here (not my solution is under \database\CMS\CMS below TFS build's solution root):

....

</Target>

</Project>

re: DataDude Annoyance #13: Project variables omitted from output script.

Patrick Neborg — Fri, 07 Mar 2008 10:32:36 GMT

I also rewrote the vbs script for better performance. This version does not concatenate the .sql file into a string variable. Instead it temporarily renames the .sql file and creates a new empty .sql file. As it read line by line it also writes to the newly created empty .sql. At the correct spot it writes in the variable lines. And then finishes writing the remainder of the file. In the end it cleans up the .tmp file.

On Error Resume Next

Dim fso, ts, line, x, y, script, variables, filepath

Const ForReading = 1, ForWriting = 2, ForAppending = 8

' NOTE: This name must match the DataDude "Build Output File Name"

' in project properties.

filepath = "CMS.(local).CMS.sql"

filepath_Orig = filepath + ".tmp"

' Append your additional variables here, one per line.

' Include blank lines as desired for spacing.

variables = Array( _

"" _

,"-- Additional variables added by Post_Build.vbs" _

,":setvar STR_DB ""STR""")

Set fso = CreateObject("Scripting.FileSystemObject")

'rename file with .tmp

if fso.FileExists(filepath_Orig) then

fso.DeleteFile filepath_Orig,True

end if

if fso.FileExists(filepath) then

fso.MoveFile filepath , filepath_Orig

fso.CreateTextFile filepath,true

'read one file and write to the other file

Set ts = fso.OpenTextFile(filepath_Orig, ForReading)

Set ts2 = fso.OpenTextFile(filepath, ForWriting)

x = 0

Do Until ts.AtEndOfStream

line = ts.ReadLine

ts2.writeline(line)

x = x + 1

If x = 7 Then ' Right after the last existing :setvar.

' Append variable definitions.

For Each line In variables

ts2.writeline(line & vbCrLf)

End If

'script = script & line & vbCrLf

Loop

ts.Close

ts2.Close

'Set ts = fso.OpenTextFile(filepath, ForWriting)

'ts.Write(script)

'ts.Close

Set ts = Nothing

Set ts2 = Nothing

fso.DeleteFile filepath_Orig

else

fso.CreateTextFile "post_build_output.text"

Set ts2 = fso.OpenTextFile("post_build_output.text", ForWriting)

ts2.writeline ("Could not find " + filepath)

end if

Set fso = Nothing