[转载]通过FxCop来验证.NET编码规范

<?xml version="1.0" encoding="utf-8"?>
<Rules FriendlyName="自定义规则">

  <Rule TypeName="FunctionParametersCheck" Category="参数命名规范" CheckId="C10001">
    <Name>参数命名请采用Camel命名规范</Name>
    <Description>
      参数命名请采用Camel命名规范，格式为：对象类型＋对象描述。
    </Description>
    <Url>www.cnblogs.com/zhuqil</Url>
    <Resolution>
      函数{0}的参数{1}命名不符合Camel命名规范，格式为：对象类型＋对象描述。
      Integer   int intQuantity
      String    str strFname
    </Resolution>
    <Email>zhuqi0@126.com</Email>
    <MessageLevel Certainty="80">Warning</MessageLevel>
    <FixCategories>NonBreaking</FixCategories>
    <Owner>skylin</Owner>
  </Rule>
</Rules>

'功能： 参数命名请采用Camel命名规范
'创建人：  朱祁林
'创建时间：2010-12-07
'修改人：  朱祁林
'修改时间：2010-12-07

Imports Microsoft.FxCop.Sdk
Imports System
Namespace MySoftRules
    Public Class FunctionParametersCheck
        Inherits BaseIntrospectionRule
        ' Methods
        Public Sub New()
            MyBase.New("FunctionParametersCheck", "CustomRules.CustomXMLRules", GetType(FunctionParametersCheck).Assembly)
        End Sub

        Public Overrides Function Check(ByVal member As Member) As ProblemCollection
            Dim method As Method = TryCast(member, Method)
            If ((Not method Is Nothing) AndAlso (method.DeclaringMember Is Nothing)) Then
                Dim i As Integer
                For i = 0 To method.Parameters.Count - 1
                    'true:找到不符合规范的参数，false表示没有找到不符合规范的参数
                    Dim blnFoundAddString As Boolean = False
                    Dim strFullType As String = method.Parameters.Item(i).Type.FullName
                    Dim strType As String = strFullType.Substring((strFullType.LastIndexOf(".") + 1), ((strFullType.Length - strFullType.LastIndexOf(".")) - 1))
                    Dim strName As String = method.Parameters.Item(i).Name.Name
                    If strType.ToLower() = "string" Then
                        blnFoundAddString = CheckField(strName, "str")
                    ElseIf strType.ToLower() = "int32" Then
                        blnFoundAddString = CheckField(strName, "int")
                    End If
                    If blnFoundAddString Then
                        Dim resolu As Resolution = MyBase.GetResolution(method.ToString, strName)
                        MyBase.Problems.Add(New Problem(resolu))
                    End If
                Next i
            End If
            Return MyBase.Problems
        End Function
        '检查命名规范
        Private Function CheckField(ByVal strName As String, ByVal strAbbreviation As String) As Boolean
            Dim intLength As Integer = strAbbreviation.Length
            Try
                If (strName.Substring(0, intLength) <> strAbbreviation) Then
                    Return True
                End If
                If Char.IsLower(strName.Chars(strAbbreviation.Length)) Then
                    Return True
                End If
            Catch obj1 As Exception
                Return True
            End Try
            Return False
        End Function

    End Class
End Namespace