 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
运行环境: Visual Studio .NET 介绍 我们每一个从原有的开发环境转移到VS.NET下的用户,都遭碰到不少的阻碍.我所遇到的一个障碍就是:我原有的那些macro无法继承工作了. 现在的这个编译序列号自动增长工具是从很多人的代码片断组合而成的,虽然它并不完善,而且缺乏一些特性,但它至少为进一步开发提供了一个坚实的基础. 目标 这里是自动编译序列号的需求: 1. 在每一次release编译的时候,自动增加保存在一个单独文件中的编译序列号,这个文件将被加入到我的项目中. 2. 自动记录编译的日期和序列号. 代码分析 我的第一个任务是找到一个能够替代VS 6中.Application_BeforeBuildStart()的事件,VS.NET的设计者为我们提供了异常轻易使用的编译事件: OnBuildBegin OnBuildDone OnBuildProjConfigBegin OnBuildProjConfigDone 这些事件句柄的命名规则有一点误导.我们不希望使用OnBuildBegin,因为即使我们同时针对多种配置(release, debug等等)进行编译,它也只会被执行一次.这使得难以只在编译release版本的时候增加编译序列号.OnBuildProjConfigBegin就能够在针对每一种配置编译的时候被执行,并且还提供一个名为ProjectConfig的字符串参数来描述当前所进行的编译使用的是哪一种配置. 大部分的任务是在OnBuildProjConfigBegin事件处理函数中完成的, 它还使用了两个辅助macro: WriteToLogFile WriteToOutputBuildPane 这两个宏都可以被写入到OnBuildProjConfigBegin事件处理函数中,或者在不用时删除. 代码 \\\' ------------------------------------ \\\' OnBuildProjConfigBegin event handler \\\' ------------------------------------ Private Sub BuildEvents_OnBuildProjConfigBegin( ByVal Project As String, ByVal ProjectConfig As String, ByVal Platform As String, ByVal SolutionConfig As String) Handles BuildEvents.OnBuildProjConfigBegin \\\' abort if build type is debug If InStr(1, ProjectConfig, "Debug", 1) Then Exit Sub \\\' get ver filename Dim res_filename As String res_filename = DTE.Solution.FullName res_filename = Path.ChangeExtension(res_filename, ".ver") \\\' open VERSION FILE and increment build number Dim msg_text As String If File.Exists(res_filename) Then Dim line As String Try Dim sr As StreamReader = New StreamReader(res_filename) line = sr.ReadLine() sr.Close() Catch ex As Exception Module1.WriteToOutputBuildPane(vbCrLf & _ "Version file read failed : " & ex.Message & vbCrLf) End Try line = Right(line, line.Length - 18) Try Dim sw As StreamWriter = File.CreateText(res_filename) sw.WriteLine("#define BUILD_NUM {0}", line + 1) sw.Close() Catch ex As Exception Module1.WriteToOutputBuildPane(vbCrLf & _ "Version file write failed : " & ex.Message & vbCrLf) End Try msg_text = "Build number : " & line + 1 & ", " & Now Module1.WriteToOutputBuildPane(vbCrLf & msg_text & vbCrLf) Module1.WriteToLogFile(msg_text) Else Try Dim sw As StreamWriter = File.CreateText(res_filename) sw.WriteLine("#define BUILD_NUM 1") sw.Close() Catch ex As Exception Module1.WriteToOutputBuildPane(vbCrLf & _ "Version file write failed : " & ex.Message & vbCrLf) End Try msg_text = "Build number : 1, " & Now Module1.WriteToOutputBuildPane(vbCrLf & msg_text & vbCrLf) Module1.WriteToLogFile(msg_text) End If End Sub \\\' ---------------------------------- \\\' write text message to a log file \\\' ---------------------------------- Sub WriteToLogFile(ByVal msg_text As String) Dim log_filename As String log_filename = DTE.Solution.FullName log_filename = Path.ChangeExtension(log_filename, ".log.txt") Try Dim sw As StreamWriter = File.AppendText(log_filename) sw.WriteLine(msg_text) sw.Close() Catch ex As Exception MsgBox("Log file write failed : " & ex.Message) End Try End Sub \\\' ---------------------------------------------------------------- \\\' write a text message to the build pane of the output tool window \\\' ---------------------------------------------------------------- Sub WriteToOutputBuildPane(ByVal msg_text As String) \\\' Create a tool window handle for the Output window. Dim win As Window = DTE.Windows.Item(EnvDTE.Constants. _ qvsWindowKindOutput) \\\' Create handles to the Output window and its build pane. Dim OW As OutputWindow = win.Object Dim OWp As OutputWindowPane OWp = OW.OutputWindowPanes.Item("Build") \\\' Add a line of text to the output pane. OWp.OutputString(msg_text & vbCrLf) End Sub 集成 注重! 假如你还没有一个Macro Project,那么先要创建一个.你需要打开一个Macro Project并显示在VS Macros IDE. (译者注:你可以通过快捷键Alt + F8,或者点击View -> Other Windows -> Macro Explorer打开宏浏览窗口.双击其中一个宏,进行编辑.) 1. 每一个宏工程拥有一个名为EnvironmentEvents的页面,双击打开它. 2. 从类名称下拉列表中选择BuildEvents. 3. 从方式名下拉列表中选择OnBuildProjConfigBegin. 4. 增加两个引用申明(import). 非常类的申明需要引用System名称空间. 文件的操作类申明需要引用System.IO. 5. 在OnBuildProjConfigBegin方式中添加. 6. 双击打开Module1页面. Module1是IDE使用的一个默认页面名称.假如你使用了不同的名称, 那么一定要修改OnBuildProjConfigBegin中的对应名字空间. 添加两个辅助方式. 添加对 .System和.SystemIO.的引用申明. 运行 保存编辑结果,然后编译检查是否有错误.编译成功后,就可以直接使用了.使用很简朴,这段代码会在每次编译时被执行. 返回类别: 教程 上一教程: COM与.NET的互操作（初级） 下一教程: .NET之ASP Web Form迅速入门(3) 您可以阅读与".NET的自动序列号工具"相关的教程: · 在.NET下获取硬盘序列号的问题 · 漫谈.Net中的自动垃圾收集(Garbage Collection)机制(转) · .net下软件的自动升级--上传 · Asp.net编写的PING工具 · 异常了不起的工具iNET--帮你实现.NET项目跨平台运行. |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
