查询列出SQL Server存储过程以及每个过程的代码行

Question

我想要一个查询，按名称返回数据库中所有（用户）存储过程的列表，每个存储过程的代码行数。

即

sp_name  lines_of_code 
-------- ------------- 
DoStuff1 120 
DoStuff2 50 
DoStuff3 30 

任何想法如何做到这一点？

Answer 1

select t.sp_name, sum(t.lines_of_code) - 1 as lines_ofcode, t.type_desc 
from 
(
    select o.name as sp_name, 
    (len(c.text) - len(replace(c.text, char(10), ''))) as lines_of_code, 
    case when o.xtype = 'P' then 'Stored Procedure' 
    when o.xtype in ('FN', 'IF', 'TF') then 'Function' 
    end as type_desc 
    from sysobjects o 
    inner join syscomments c 
    on c.id = o.id 
    where o.xtype in ('P', 'FN', 'IF', 'TF') 
    and o.category = 0 
    and o.name not in ('fn_diagramobjects', 'sp_alterdiagram', 'sp_creatediagram', 'sp_dropdiagram', 'sp_helpdiagramdefinition', 'sp_helpdiagrams', 'sp_renamediagram', 'sp_upgraddiagrams', 'sysdiagrams') 
) t 
group by t.sp_name, t.type_desc 
order by 1 

编辑，以便它也应该现在在SQL Server 2000- 2008年工作，并排除数据库图表相关的存储过程和funcs中（这看起来像是用户创建的对象）。

Answer 2

这适用于MS-SQL 2000

SET NOCOUNT ON 

DECLARE @ProcName varchar(100) 
DECLARE @LineCount int 

DECLARE C CURSOR LOCAL FOR 
    SELECT o.name as ProcName FROM sysobjects o WHERE (o.xtype = 'P') ORDER BY o.name 

OPEN C 

CREATE TABLE #ProcLines ([Text] varchar(1000)) 

FETCH NEXT FROM C INTO @ProcName 

WHILE @@FETCH_STATUS = 0 
BEGIN 

    DELETE FROM #ProcLines 
    INSERT INTO #ProcLines EXEC('sp_helptext ' + @ProcName + '') 

    SELECT @LineCount = COUNT(*) FROM #ProcLines 

    PRINT @ProcName + ' Lines: ' + LTRIM(STR(@LineCount)) 

    FETCH NEXT FROM C INTO @ProcName 

END 

CLOSE C 

DEALLOCATE C 

DROP TABLE #ProcLines 

Answer 3

FWIW，这里的另一个问题：

SELECT o.type_desc AS ROUTINE_TYPE 
     ,QUOTENAME(s.[name]) + '.' + QUOTENAME(o.[name]) AS [OBJECT_NAME] 
     ,(LEN(m.definition) - LEN(REPLACE(m.definition, CHAR(10), ''))) AS LINES_OF_CODE 
FROM sys.sql_modules AS m 
INNER JOIN sys.objects AS o 
     ON m.[object_id] = o.[OBJECT_ID] 
INNER JOIN sys.schemas AS s 
     ON s.[schema_id] = o.[schema_id] 

Answer 4

select * from sysobjects where type = 'p'