Updates na sp_showcode e add nova proc utilidades de parse

Author: rrg92

Misc/ParseStringExprVirgula.sql

@@ -0,0 +1,74 @@
+/*#info 
+
+	# Autor 
+		Rodrigo Ribeiro Gomes
+
+	# Descrição 
+		Um simples script (que pode ser transfromado em proc, funcao, etc. para fazer o parse de string no formato:
+			OPCAO1,OPCAO2,OPCAO3,OPCAO\,ESCAPE,OPCAO-BARRA-FIM\\,BARRA\\ESCAPE
+
+		O script quebra uma string nas virgulas. Caso queria incluir uma virgula, escpae com \,. 
+		Se vc quiser incluir um "\," (barra segudo de virgula) escape a barra e a virgula \\ + \,
+		
+		Assim, você tem um pequeno interpreador de expressoes que pode ser usado em procedures.
+		A primeira ideia que vi isso nas procedures do Ola Hallegren, onde vc pode especificar expressoes como %,-sys,-%teste% para filtrar banco.
+		Nunca vi a implementação dele, e resolvi deixar aqui uma versão minha que você pode usar e adaptar onde precisar (procs, funcoes, etc.)
+
+		O script inclui uma pequena validação do resultado esperado Não esquea de remover a validação ao usar.
+*/
+
+
+declare
+	@Expr nvarchar(max) = N'%,Isso é um escape\,e vai continuar aqui!,Barra no fim:\\,Barra no \ meio!,Barra com virgual no fim:\\\,,Unicode❤️Chars,EncerradoComBarra\'
+
+
+
+declare
+	 @i int = 0
+	,@len int = len(@expr)
+	,@CurrentChar nvarchar(1), @NextChar nvarchar(1)
+	,@buff nvarchar(max) = ''
+
+declare @Result table(id int identity not null,expr nvarchar(max))
+
+
+while @i <=	@len 
+begin
+	set @i += 1;
+	set @CurrentChar = substring(@expr+',',@i,1)
+	set @NextChar = substring(@expr,@i+1,1)
+
+	if @CurrentChar = '\' and @NextChar in ('\',',')
+		select @buff += @NextChar, @i += 1;
+	else if @CurrentChar = ',' 
+	begin
+	   insert into @Result(expr) values(@buff)
+	   set @buff = '';
+	end else
+		set @buff += @CurrentChar
+	
+end
+
+
+declare
+	@Esperado table (id int identity not null,expr nvarchar(max))
+
+insert into @Esperado values 
+	(N'%'),(N'Isso é um escape,e vai continuar aqui!')
+	,(N'Barra no fim:\'),(N'Barra no \ meio!')
+	,(N'Barra com virgual no fim:\,')
+	,(N'Unicode❤️Chars')
+	,(N'EncerradoComBarra\')
+	
+
+select
+	*
+	,OK = case 
+			when e.expr = r.expr collate Latin1_General_BIN then 1
+			else 0
+		end
+from
+	@Esperado e
+	full join
+	@Result r
+		on e.id = r.id

Modulos/sp.showcode.sql

@@ -274,6 +274,11 @@ ALTER PROC sp_showcode (
 	,-- include descriptive headers. NOt used when mode is sp_helptext and xml.
 	 @headers bit = 1
 
+	,-- force @text being trated as a literal, with no filter or expression. In another words, you are escaping entire @text param, losing its powers
+	-- With that, proc will behaves almost sp_helptext, finding exact object name
+	-- Remember it is a complete literal. The text must follow rules of parsename function, that is it, [schema].[object]. Literal [ or ]  require use ", for example "[abc]" or ["abc"]  for inverse
+	@literal bit = 0
+
 	-- Enable some messages for debugging.
 	,@Debug bit = 0
 )
@@ -364,25 +369,36 @@ CREATE TABLE #sp_showcode_filters (
 	,FilterObject nvarchar(4000)
 	,FilterColumn nvarchar(4000)
 	,ExprReal nvarchar(max)
-	,IsWild as convert(bit,case when charindex('%',exprreal) > 0 then 1 else 0 end)
+	,IsWild bit
 );
 
-while @i <=	@TextLen 
+
+while @i <=	@TextLen and @literal = 0 
 begin
 	set @i += 1;
 	set @CurrentChar = substring(@text+',',@i,1)
 	set @NextChar = substring(@text,@i+1,1)
 
 	if @CurrentChar = N'\' and @NextChar in (N'\',N',')
 		select @buff += @NextChar, @i += 1;
+	else if @CurrentChar = '\' and @NextChar = '%' -- if found a \%, it is escaped. We handle this separated to avoid set @IsWild = 1
+		select @buff += N'\%', @i += 1
 	else if @CurrentChar = N',' 
 	begin
-	   insert into #sp_showcode_filters(expr) values(@buff)
-	   set @buff = '';
-	end else
+	   insert into #sp_showcode_filters(expr,IsWild) values(@buff,@IsWild)
+	   select @buff = '', @IsWild = 0
+	end else begin
+		
+		if @CurrentChar = '%' --never reaches if \%, because when \ is found, handle in else above.
+			set @IsWild = 1
+
 		set @buff += @CurrentChar
+	end
 end
 
+if @literal = 1
+	insert into #sp_showcode_filters(expr,IsWild) values (@text,0);
+
 
 update f 
 set 
@@ -397,7 +413,7 @@ from
 	cross apply (
 		SELECT 
 			IsNeg = CASE
-						WHEN left(expr,1) = '-' THEN 1
+						WHEN @literal = 0 AND left(expr,1) = '-' THEN 1
 						ELSE 0 
 					END
 			,ExprReal = CASE
@@ -410,18 +426,20 @@ from
 			BF.FilterDb
 			,BF.FilterSchema
 			,FilterObject = CASE 
+								WHEN @literal = 1 THEN FilterObject
 								WHEN ColSepIndex > 0 THEN LEFT(BF.FilterObject,ColSepIndex-1)
 								ELSE BF.FilterObject
 							END
-			,FilterColumn = CASE 
+			,FilterColumn = CASE
+								WHEN @literal = 1 THEN NULL
 								WHEN ColSepIndex > 0 THEN SUBSTRING(BF.FilterObject,ColSepIndex+1,4000)
 								ELSE '%'
 							END
 		FROM (
 		   SELECT 
 				 FilterDb		= isnull(parsename(E.ExprReal,3),db_name())
 				,FilterSchema	= parsename(E.ExprReal,2)
-				,FilterObject	= parsename(E.ExprReal,1)
+				,FilterObject	= isnull(parsename(E.ExprReal,1),@text)
 				,ColSepIndex	= CHARINDEX('/',parsename(E.ExprReal,1))
 		) BF
 		
@@ -431,6 +449,10 @@ WHERE
 
 SET @UserFilterCount = @@ROWCOUNT
 
+set @IsWild = 0
+if exists(select * from #sp_showcode_filters where IsWild = 1)
+	set @IsWild = 1
+
 
 -- if not explicit positive schema filter
 if not exists(select * from #sp_showcode_filters where IsNeg = 0 and FilterSchema is not null) and @IsWild = 1
@@ -444,7 +466,7 @@ end
 -- 
 UPDATE #sp_showcode_filters
 SET
-	FilterSchema = ISNULL(FilterSchema,'%')
+	FilterSchema = ISNULL(FilterSchema,CASE WHEN @literal = 1 THEN SCHEMA_NAME() ELSE '%' END)
 
 
 IF @Debug = 1
@@ -457,7 +479,7 @@ begin
 end
 
  -- If user specified only non wild filter!
-if @UserFilterCount = (select count(*) from #sp_showcode_filters where IsWild = 0 and expr is not null)
+if @UserFilterCount = (select count(*) from #sp_showcode_filters where IsWild = 0 and expr is not null) 
 begin
 	set @all = 1;
 	if @Debug  = 1 raiserror('Changed @all to 1 due user explicit multiple filter.',0,1) with nowait;
@@ -532,6 +554,9 @@ BEGIN
 	return;
 END
 
+
+
+
 DECLARE @DbList TABLE(Seq int, DbName sysname);
 
 INSERT INTO @DbList(Seq,DBName)
@@ -563,6 +588,7 @@ WHERE
 			f.IsNeg = 0
 	)
 
+
 IF @Debug = 1
 	SELECT * FROM @DbList
 
@@ -629,7 +655,7 @@ BEGIN
 		RAISERROR('Searching in db %s',0,1,@DbName) with nowait;
 
 
-	set @sql = '
+	set @sql = N'
 		SELECT '+ISNULL('TOP('+CONVERT(varchar(10),@LeftLimit)+')','')+'
 			 DB_NAME()
 			,O.name 
@@ -705,24 +731,40 @@ BEGIN
 				) I
 			) A
 		WHERE
-			0 = (
+
+			'+CASE WHEN @literal = 1 THEN
+			'
+				EXISTS (
+					SELECT -- literal enabled 
+						*
+					FROM
+						#sp_showcode_filters F
+					WHERE
+						F.FilterObject = O.name COLLATE DATABASE_DEFAULT
+						AND
+						F.FilterSchema = S.name COLLATE DATABASE_DEFAULT
+				)
+			'  
+			ELSE 
+			'0 = (
 				SELECT 
 					max(convert(int,IsNeg))
 				FROM
 					#sp_showcode_filters F
 				WHERE
-					O.name LIKE F.FilterObject COLLATE DATABASE_DEFAULT
+					O.name LIKE F.FilterObject COLLATE DATABASE_DEFAULT ESCAPE ''\''
 					AND
-					S.name LIKE F.FilterSchema COLLATE DATABASE_DEFAULT
+					S.name LIKE F.FilterSchema COLLATE DATABASE_DEFAULT	ESCAPE ''\'' 
 					AND
-					DB_NAME() LIKE F.FilterDb COLLATE DATABASE_DEFAULT
+					DB_NAME() LIKE F.FilterDb COLLATE DATABASE_DEFAULT ESCAPE ''\''
 					AND
-					isnull(O.ColName,'''') LIKE F.FilterColumn COLLATE DATABASE_DEFAULT
+					isnull(O.ColName,'''') LIKE F.FilterColumn COLLATE DATABASE_DEFAULT ESCAPE ''\''
 
 			)
+			'
+			END+
 
-			AND 
-			(
+			'AND (
 				(
 					O.type in (''P'',''FN'',''IF'',''TF'',''V'',''TR'')
 					AND
@@ -754,7 +796,7 @@ BEGIN
 		RAISERROR('	Found: %d objects (total = %d), Top: %d, LeftLimit: %d. StartId: %d',0,1,@FoundCount,@TotalFound,@top,@LeftLimit,@StartId) with nowait;
 
 	-- If user specified just 1 filter, without wildcards, and we found somehting, we assume it searching extactly object name!
-	IF @Seq = 1 AND @IsWild = 0	and @FoundCount > 0 AND @UserFilterCount = 1
+	IF @Seq = 1 AND @IsWild = 0	and @FoundCount = 1 AND @UserFilterCount = 1
 		break;
 
 	-- if top enabled and no more