VS.NET 2003中添加函数头和文件头的宏

王朝c#·作者佚名  2006-05-27
窄屏简体版  字體: |||超大  

Imports EnvDTE

Imports System.Diagnostics

Public Module InterPreter

REM 提取函数名称

Function GetFuncName(szStr as String)

Dim szTmp, szFunc

Dim ulPos, ulLen

Dim szTmpStr

szTmpStr = Trim(szStr)

szFunc = 0

If Trim(szTmpStr) <> "" Then

ulPos = InStr(Trim(szTmpStr), "(")

szTmp = Trim(Left(szTmpStr, ulPos - 1))

ulLen = Len(szTmp)

ulPos = InStrRev(szTmp, " ")

szFunc = Right(szTmp, ulLen - ulPos)

Else

szFunc = ""

End If

GetFuncName = szFunc

End Function

REM 输出函数头

Sub FunctionHeader()

Dim szTmp, szStr

szTmp = DTE.ActiveDocument.Selection.Text

szStr = "" _

& "/******************************************************************************* " & vbCrLf & "" _

& "* Function name : " & GetFuncName(szTmp) & vbCrLf & "" _

& "* Description : " & vbCrLf & "" _

& "* Arguments : " & vbCrLf & "" _

& "* Return value : " & vbCrLf & "" _

& "* Author : HCJ " & vbCrLf & "" _

& "* Date: " & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & vbCrLf & "" _

& "*******************************************************************************/ " & vbCrLf

DTE.ActiveDocument.Selection.StartOfLine()

DTE.ActiveDocument.Selection.Text = szStr

End Sub

REM 输出文件头

Sub FileHeader()

DTE.ActiveDocument.Selection.StartOfDocument()

DTE.ActiveDocument.Selection.Text = "" _

& "/********************************************************************************** " & vbCrLf & "" _

& "* File name : " & DTE.ActiveDocument.Name & vbCrLf & "" _

& "* Description : " & vbCrLf & "" _

& "* Author : HCJ " & vbCrLf & "" _

& "* Copyright (c) 2005-" & Year(Now) & vbCrLf & "" _

& "* Version : 0.1 " & vbCrLf & "" _

& "* Date : " & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & vbCrLf & "" _

& "**********************************************************************************/ " & vbCrLf

End Sub

REM 输出类头

Sub ClassHeader()

DTE.ActiveDocument.Selection.Text = "" _

& "/******************************************************************************* " & vbCrLf & "" _

& "* Class name : " & vbCrLf & "" _

& "* Description : " & vbCrLf & "" _

& "* Interface : " & vbCrLf & "" _

& "* Call : " & vbCrLf & "" _

& "* Author : HCJ " & vbCrLf & "" _

& "********************************************************************************/ " & vbCrLf

End Sub

End Module

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航