求汉字拼码？？

Question

找笑笑，他有个函数
create function f_ch2py(@chn nchar(1))
returns char(1)
as
begin
declare @n int
declare @c char(1)
set @n = 63select @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)
endgoselect dbo.f_ch2py('中')  --Z
select dbo.f_ch2py('国')  --G
select dbo.f_ch2py('人')  --R
select dbo.f_ch2py('镆')  --M

Answer 1

参考：
http://expert.csdn.net/Expert/topic/1000/1000043.xml?temp=5.768985E-02

Answer 2

笑GG的：
--可支持大字符集20000个汉字!create function f_ch2py(@chn nchar(1))
returns char(1)
as
begin
declare @n int
declare @c char(1)
set @n = 63select @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)
endgoselect dbo.f_ch2py('中')  --Z
select dbo.f_ch2py('国')  --G
select dbo.f_ch2py('人')  --R
select dbo.f_ch2py('镆')  --M
-----------------调用
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
GO

Answer 3

我有一个PB程序要求将汉字“物料名称”变成拼音码，这样操作方便如“PVC塑料管”拼码希望为“PVCSLG”

Answer 4

--修正：如果是非汉字，则得到其自身。create function f_ch2py(@chn nchar(1))
returns nchar(1)
as
beginif unicode(@chn) < 19968 or unicode(@chn) > 40869 --非汉字
return @chndeclare @n int
declare @c nchar(1)set @n = 63select @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)
endgo

Answer 5

修正后再调用：
select dbo.F_GetHelpCode('pvc塑料管')  --pvcSLG

Answer 6

瞧我这记性！其实F_GetHelpCode函数早就对非中文字符作了控制。所以根本不用以上的这个修正。lgtlgt：你把大力帖的粘下去就可以了，
select dbo.F_GetHelpCode('pvc塑料管') 
的结果就是pvcSLG