解決SQL Server裡sp_helptext輸出格式錯行問題

use Mastergoif object_id('SP_SQL') is not nulldrop proc SP_SQLgo/******************************************************************************************************************************************************整理人：中國風(Roy)日期:2008.01.01******************************************************************************************************************************************************/create proc [dbo].[SP_SQL](@ObjectName sysname)asset nocount on ;declare @Print nvarchar(max)----@Print用nvarcharif exists(select 1 from syscomments  where ID=object_id(@ObjectName) and encrypted=1)begin Print N'對象已加密!' returnendif coalesce(object_id(@ObjectName,N'P'),object_id(@ObjectName,N'FN'),object_id(@ObjectName,N'IF'),object_id(@ObjectName,N'TF'),object_id(@ObjectName,N'TR'),object_id(@ObjectName,N'V')) is  nullbeginPrint N'對象只針對函數、存儲過程、觸發器、視圖!'return endprint 'Use '+db_Name()print 'Go'print 'if object_ID('+quotename(case when charindex(']',@ObjectName)=0 then '['+replace(rtrim(@ObjectName),'.','].[')+']' else @ObjectName end ,'''')+') is not null'print char(9)+'Drop '+casewhen object_id(@ObjectName,N'P') is not null then 'Procedure ' when Coalesce(object_id(@ObjectName,N'FN'),object_id(@ObjectName,N'IF'),object_id(@ObjectName,N'TF')) is not null then 'Function ' when object_id(@ObjectName,N'TR') is not null then 'Trigger ' else 'View 'end +case when charindex(']',@ObjectName)=0 then '['+replace(rtrim(@ObjectName),'.','].[')+']' else @ObjectName endPrint 'Go'declare @T table(Col nvarchar(max))insert @T select object_definition(object_id(@ObjectName)) +char(13)+char(10) while (select max(Col) from @T)>''beginselect top 1 @Print=left(Col,charindex(char(13)+char(10),Col)-1) from @Tprint @Printupdate @T set Col=stuff(Col,1,charindex(char(13)+char(10),Col)+1,'')endprint 'Go'go調用方法:use test--指定所屬數據庫exec sp_sql 'sp_sql'--指定對象