获取含中文的真实字节长度

 

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[LenN]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[LenN]
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

--select dbo.lenN('adf')
--drop function lenN
create function LenN(@str varchar(4000)) 
returns  int
as
begin
 --declare @str varchar(4000)
 declare
 @sTmp varchar(8000),@i int,@itmp int,@itmp2 int ,@stmp2 varchar(2),@len int
 --select @str='中国ren'
 select @sTmp='',@len=0
 select @i=1
 while @i<=len(@str)
  begin
     select @len=@len+1
     select @itmp=convert(int,substring(convert(varbinary,substring(@str ,@i,1)),1,1)) --截取一个字节
     if @itmp>127  
     begin
       --大于127检查后面一个字节
       select @itmp2=convert(int,substring(convert(varbinary,substring(@str ,@i,1)),2,1))
       if @itmp2>127
       begin
  select @len=@len+1
         select @stmp2=char(@itmp)+char(@itmp2)   --是一个完整的汉字 
      end 
      
   end
 select @i=@i+1
 end  
       return @len
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO