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