Insertar una cadena como registros en una tabla.

Sólo con esto y con la ayuda de la tabla num que siempre tengo implementada en cualquier base de datos con la que trabaje se puede hacer que la cadena ".ax154.as458.az4521." se inserte en una tabla como registros separados, es decir:

ax154
as458
az4521

Se podría hacer un cursor, que resulta lo más fácil, pero puedo decir que hacer un cursor con esto es hacer una buena chapuza. Lo que muestro a continuación está basado en las enseñanzas de una presentación que Itzik Ben-Gan nos hizo en MURCIA.

Para que funcione debemos tener a mano la tabla num:

if NOT exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[num]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
BEGIN
CREATE TABLE [dbo].[num] ( [num] [int] NOT NULL ) ON [PRIMARY]
CREATE UNIQUE CLUSTERED INDEX [PK_num] ON [dbo].[num]([num]) ON
[PRIMARY]
END
GO
IF NOT exists(SELECT * FROM num)
BEGIN
INSERT num values(1)
WHILE (SELECT TOP 1 isnull(num,0) FROM num ORDER by num
desc)<1001
INSERT num
SELECT TOP 1 ISNULL(num,0)+1 FROM num ORDER by num desc
END
GO


Como podéis ver lo único que hace la instrucción anterior es crearnos una tabla con 1000 números secuenciales con una diferencia de 1. Apoyándonos en esta tabla podremos separar la cadena en registros de una forma muy fácil:

DECLARE @Cadena_Farm AS VARCHAR(8000)
SET @Cadena_Farm='.ax154.as458.az4521.'
SELECT (CASE WHEN SUBSTRING(@Cadena_Farm,num,1)='.'
THEN
SUBSTRING(@Cadena_Farm,num+1,CHARINDEX('.',SUBSTRING
(@Cadena_Farm,num+1,8000))-1)
ELSE '' END) AS Cadena
INTO TablaQueNecesito
FROM Num
WHERE num<LEN(@Cadena_Farm) AND SUBSTRING(@Cadena_Farm,num,1)='.'
GO