Função Split no SQL - retornando uma tabela. 

   1:  CREATE FUNCTION [dbo].[Split]
   2:  (
   3:         @text varchar(8000), 
   4:         @delimiter varchar(1) = ' '
   5:  )
   6:  RETURNS @Strings TABLE(    
   7:         position int IDENTITY PRIMARY KEY,
   8:         value varchar(8000)   
   9:  )
  10:  AS
  11:  BEGIN
  12:  DECLARE @index int 
  13:  SET @index = -1 
  14:  WHILE (LEN(@text) > 0) 
  15:  BEGIN  
  16:         SET @index = CHARINDEX(@delimiter , @text)  
  17:         IF (@index = 0) AND (LEN(@text) > 0)  
  18:         BEGIN   
  19:             INSERT INTO @Strings VALUES (@text)
  20:             BREAK  
  21:         END  
  22:         IF (@index = 1)  
  23:         BEGIN   
  24:             INSERT INTO @Strings VALUES (LEFT(@text, @index - 1))   
  25:             SET @text = RIGHT(@text, (LEN(@text) - @index))  
  26:         END  
  27:         ELSE 
  28:             SET @text = RIGHT(@text, (LEN(@text) - @index)) 
  29:  END
  30:  RETURN
  31:  END

Comentários

Postar um comentário

Os códigos postados aqui são uma seqüência de instruções de forma ordenada, não compilada para o código de máquina, em uma determinada linguagem de programação.
Ajude a melhorar esses códigos.

Postagens mais visitadas deste blog

Funcão SQL para abreviar nomes

CREATE FUNCTION dbo.Abrevia ( @nome varchar (200) ) RETURNS varchar (25) AS BEGIN declare @aux varchar (120) declare @aux2 varchar (25) declare @fim varchar (25)   --Pegar o primeiro nome set @fim= left (@nome,charindex( ' ' ,@nome)) set @aux=@fim --Inicializa variável set @aux2= '' --Inicializa variável --Enquanto tem nomes do meio while len(@aux)>0 begin --pega primeiro nome set @aux= left (@nome,charindex( ' ' ,@nome)) --remove primeiro nome set @nome=ltrim(replace(@nome,@aux, '' )) --exclui de,da,dos(da silva, dos santos..) if charindex( ' ' ,@nome)>4 begin --Abrevia com . set @aux2=@aux2+ substring (@nome,1,1)+ '. ' end end --concatena tudo(primeiro nome+abreviações+último select @fim=@fim+@aux2+@nome nome) RETURN ( @fim ) END
Leia mais

Função em JavaScript para consulta de CEP com retorno em XML ou Json

Para criar uma biblioteca em JavaScript que consulta um CEP e retorna os dados em XML ou JSON, podemos utilizar uma API pública que realiza essa consulta e retorna a resposta no formato desejado. Nesse exemplo, vamos utilizar a API do ViaCEP, que permite realizar consultas de CEP e retornar os dados em JSON ou XML. O código a seguir mostra uma implementação simples de uma função que consulta um CEP utilizando a API do ViaCEP e retorna os dados em XML ou JSON, dependendo do formato especificado: function consultarCEP(cep, formato, callback) { var url = 'https://viacep.com.br/ws/' + cep + '/' + formato + '/'; var xhr = new XMLHttpRequest(); xhr.open('GET', url, true); xhr.onreadystatechange = function() { if (xhr.readyState == 4 && xhr.status == 200) { var resposta = xhr.responseText; if (formato == 'json') { callback(JSON.parse(resposta)); } else { callback(resposta); } ...
Leia mais

Função SQL que retorna valor (R$) por extenso

Retirado do site.: http://eltonbicalho.blogspot.com/2010/01/escrever-um-valor-por-extenso- sql .html CREATE FUNCTION dbo.Extenso(@VALOR DECIMAL (18, 5)) RETURNS VARCHAR (255) AS BEGIN DECLARE @STR_EXT VARCHAR (255), @FLAG_E INT , @GRUPO DECIMAL (10, 2), @MOEDA VARCHAR (10), @MOEDA_PLURAL VARCHAR (10), @FLAG_CENTAVOS DECIMAL (18, 5) -- Aqui vc podera configurar a descricao da Moeda SET @MOEDA = 'Real' SET @MOEDA_PLURAL = 'Reais' SET @FLAG_CENTAVOS = 1 -- Exibir os centavos [ 0) Nao 1) Sim ] SET @STR_EXT = '' SET @FLAG_E = 0 SET @GRUPO = 0 IF (( CONVERT ( INT , @VALOR) - ( CONVERT ( INT , @VALOR) % 1)) = 0) BEGIN SET @STR_EXT = ' Zero' END ELSE BEGIN DECLARE @TEMPINT BIGINT SET @TEMPINT = .000001*(( CONVERT ( INT , @VALOR) % 1000000000) - ( CONVERT ( INT , @VALOR) % 1000000)) SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT FROM dbo.TrataGrupoExtenso( @TEMPINT, ' Milhão' , ' Milhões' , @FLAG_E, @STR_EXT) SET @TEMPINT = .00...
Leia mais