Ntext欄位拆分處理

2021-08-29 11:36:52 字數 2253 閱讀 5930

if exists (select * from dbo.sysobjects where id = object_id(n'[dbo].[p_split]') and objectproperty(id, n'isprocedure') = 1)

drop procedure [dbo].[p_split]

go/*--ntext欄位拆分處理

按指定的分隔符,將 ntext 欄位拆分成多條記錄

注意:處理過程固定以名為id的int型字段為主鍵

如果不滿足這個條件,則要對應的修改儲存過程

--鄒建 2004.07(引用請保留此資訊)--*/

/*--呼叫示例

--測試資料

create table tb(id int identity(1,1),content ntext)

insert tb select '001,002'

union all select '001,002,003,004,005,006,007,008,009,010'

union all select replicate('001,002,003,004,005,006,007,008,009,010',8000)

--呼叫儲存過程,進行拆分

exec p_split 'tb','content',',','id=3'

drop table tb

--*/

create proc p_split

@tbname sysname,--要處理的表名

@fdname sysname,--text/ntext欄位名

@splitchar nvarchar(10)=',',--拆分的字串分隔符

@where nvarchar(1000)=''--要處理的記錄的條件

asif isnull(@splitchar,'')='' set @splitchar=','

declare @s nvarchar(4000)

set @s='

create table #t(id int identity(1,1),re nvarchar(50))

declare @id int,@ptr varbinary(16)

declare @s nvarchar(4000),@i int,@j int

declare @sp1 varchar(10),@step int

select @sp1=reverse(@splitchar),@step=len(@splitchar)

declare tb cursor local for

select id,s=substring(['+@fdname+'],1,4000)

from ['+@tbname+']

where datalength(['+@fdname+'])>0

'+case isnull(@where,'') when '' then ''

else ' and('+@where+')' end+'

open tb

fetch tb into @id,@s

while @@fetch_status=0

begin

set @i=1

while @s''''

begin

if len(@s)=4000

select @j=4000-charindex(@sp1,reverse(@s))

,@i=@i+@j+@step

,@s=left(@s,@j)

else

select @i=@i+4000,@j=len(@s)

insert #t select substring(@s,id,charindex(@splitchar,@s+@splitchar,id)-id)

from 序數表

where id=@j+@step and charindex(@splitchar,@splitchar+@s,id)-id=0

select @s=substring(['+@fdname+'],@i,4000)

from ['+@tbname+']

where id=@id

endfetch tb into @id,@s

endclose tb

deallocate tb

select * from #t

'exec sp_executesql @s

,n'@splitchar nvarchar(10)'

,@splitchar

gotrackback:

Ntext欄位拆分處理

if exists select from dbo.sysobjects where id object id n dbo p split and objectproperty id,n isprocedure 1 drop procedure dbo p split go ntext欄位拆分處理 ...

Ntext欄位拆分處理

if exists select from dbo.sysobjects where id object id n dbo p split and objectproperty id,n isprocedure 1 drop procedure dbo p split go ntext欄位拆分處理 ...

Ntext欄位拆分處理

if exists select from dbo.sysobjects where id object id n dbo p split and objectproperty id,n isprocedure 1 drop procedure dbo p split go ntext欄位拆分處理 ...