SQL 自动生成拼音代码函数

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

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

--创建取拼音函数 -需调用的基础函数1
CREATE     function     f_ch2py(@chn     nchar(1))   
    returns     char(1)   
    as   
    begin   
    declare     @n     int   
    declare     @c     char(1)   
    set     @n     =     63   
    
    select     @n     =     @n     +1,   
                  @c     =     case     chn     when     @chn     then     char(@n)     else     @c     end   
    from(   
      select     top     27     *     from     (   
              select     chn     =     
    '吖'     union     all     select   
    '八'     union     all     select   
    '嚓'     union     all     select   
    '咑'     union     all     select   
    '妸'     union     all     select   
    '发'     union     all     select   
    '旮'     union     all     select   
    '铪'     union     all     select   
    '丌'     union     all     select       --because     have     no     'i'   
    '丌'     union     all     select   
    '咔'     union     all     select   
    '垃'     union     all     select   
    '嘸'     union     all     select   
    '拏'     union     all     select   
    '噢'     union     all     select   
    '妑'     union     all     select   
    '七'     union     all     select   
    '呥'     union     all     select   
    '仨'     union     all     select   
    '他'     union     all     select   
    '屲'     union     all     select       --no     'u'   
    '屲'     union     all     select       --no     'v'   
    '屲'     union     all     select   
    '夕'     union     all     select   
    '丫'     union     all     select   
    '帀'     union     all     select     @chn)     as     a   
    order     by     chn     COLLATE     Chinese_PRC_CI_AS     
    )     as     b   
    return(@c)   
    end

--使用方法
/*
select     dbo.f_ch2py('中')       --Z   
select     dbo.f_ch2py('国')       --G   
    select     dbo.f_ch2py('人')       --R   
    select     dbo.f_ch2py('镆')       --M  
*/

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

------------------------------------------------------

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

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

--创建取拼音函数 -需调用的基础函数2
CREATE     FUNCTION     F_GetHelpCode     (   
    @cName     VARCHAR(20)     )   
    RETURNS     VARCHAR(12)   
    AS   
    BEGIN   
          DECLARE     @i     SMALLINT,     @L     SMALLINT     ,     @cHelpCode     VARCHAR(12),     @e     VARCHAR(12),     @iAscii     SMALLINT   
          SELECT     @i=1,     @L=0     ,     @cHelpCode=''   
          while     @L<=12     AND     @i<=LEN(@cName)     BEGIN   
                SELECT     @e=LOWER(SUBSTRING(@cname,@i,1))   
                SELECT     @iAscii=ASCII(@e)   
                IF     @iAscii>=48     AND     @iAscii     <=57     OR     @iAscii>=97     AND     @iAscii     <=122     or     @iAscii=95     
                  SELECT     @cHelpCode=@cHelpCode     +@e   
                ELSE   
                IF     @iAscii>=176     AND     @iAscii     <=247   
                            SELECT     @cHelpCode=@cHelpCode       +     dbo.f_ch2py(@e)   
                    ELSE     SELECT     @L=@L-1   
                SELECT     @i=@i+1,     @L=@L+1     END     
            RETURN     @cHelpCode   
    END

--使用方法
/*
SELECT dbo.F_GetHelpCode('大力') IF EXISTS
            (SELECT *
           FROM dbo.sysobjects
           WHERE id = object_id(N'[dbo].[fGetPy]') AND xtype IN (N'FN', N'IF', N'TF'))
        DROP FUNCTION [dbo].[fGetPy]
*/
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

------------------------------------------------------

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

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

--创建取拼音函数   
    CREATE     function     fGetPy(@Str     varchar(500)='')   
    returns     varchar(500)   
    as   
    begin   
    declare     @strlen     int,@return     varchar(500),@ii     int   
    declare     @n     int,@c     char(1),@chn     nchar(1)   
    
    select     @strlen=len(@str),@return='',@ii=0   
    set     @ii=0   
    while     @ii<@strlen   
    begin   
    select     @ii=@ii+1,@n=63,@chn=substring(@str,@ii,1)   
    if     @chn>'z'   
    select     @n     =     @n     +1   
    ,@c     =     case     chn     when     @chn     then     char(@n)     else     @c     end   
    from(   
    select     top     27     *     from     (   
    select     chn     =     '吖'   
    union     all     select     '八'   
    union     all     select     '嚓'   
    union     all     select     '咑'   
    union     all     select     '妸'   
    union     all     select     '发'   
    union     all     select     '旮'   
    union     all     select     '铪'   
    union     all     select     '丌' --because     have     no     'i'   
    union     all     select     '丌'   
    union     all     select     '咔'   
    union     all     select     '垃'   
    union     all     select     '嘸'   
    union     all     select     '拏'   
    union     all     select     '噢'   
    union     all     select     '妑'   
    union     all     select     '七'   
    union     all     select     '呥'   
    union     all     select     '仨'   
    union     all     select     '他'   
    union     all     select     '屲' --no     'u'   
    union     all     select     '屲' --no     'v'   
    union     all     select     '屲'   
    union     all     select     '夕'   
    union     all     select     '丫'   
    union     all     select     '帀'   
    union     all     select     @chn)     as     a   
    order     by     chn     COLLATE     Chinese_PRC_CI_AS     
    )     as     b   
    else     set     @c=@chn   
    set     @return=@return+@c   
    end   
    return(@return)   
    end

--使用方法
/*
--测试   
    select     dbo.fgetpy('东莞市')     as     东莞市,dbo.fgetpy('ab中c国人')     as     ab中c国人
*/

 

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

转载于:https://www.cnblogs.com/pengxianwei/archive/2008/10/18/1313857.html