经典SQL Server用户自定义函数：首字拼音查询

/*--获得汉字字符串的首字母    根据大力的贴子改成.将大力的两个函数合并成了一个函数.    可以应用于助记码的查询    作者：邹建 --*/ 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 --创建取拼音函数 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='a'         set @return=@return+@c     end     return(@return) end go --测试 select dbo.fgetpy('魏保光') as 姓名拼音,dbo.fgetpy('ab中c国人') as 中国人 select dbo.fgetpy('刘子良') as 姓名拼音,dbo.fgetpy('ab中c国人') as 中国人 select dbo.fgetpy('吴过') as 姓名拼音,dbo.fgetpy('ab中c国人') as 中国人 select dbo.fgetpy('东北') as 姓名拼音,dbo.fgetpy('ab中c国人') as 中国人 --删除拼音函数 drop function fgetpy

 

VBS版

<SCRIPT LANGUAGE=vbscript>
<!--
''''''''''''''''''''''
'提供者：小白
'联系方法：
'E-mail:xiaobai@17560.net
'欢迎大家测试
'针对chenjf网友发现的问题
'小白做了一处修改
'另外，对刘伟强网友的回复是：本函数目前只能获取..?呵呵
'如有不正确的地方，请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
function getpychar(char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) then
getpychar= "A"
elseif(tmp>=45253 and tmp<=45760) then
getpychar= "B"
elseif(tmp>=45761 and tmp<=46317) then
getpychar= "C"
elseif(tmp>=46318 and tmp<=46825) then
getpychar= "D"
elseif(tmp>=46826 and tmp<=47009) then
getpychar= "E"
elseif(tmp>=47010 and tmp<=47296) then
getpychar= "F"
elseif(tmp>=47297 and tmp<=47613) then
getpychar= "G"
elseif(tmp>=47614 and tmp<=48118) then
getpychar= "H"
elseif(tmp>=48119 and tmp<=49061) then
getpychar= "J"
elseif(tmp>=49062 and tmp<=49323) then
getpychar= "K"
elseif(tmp>=49324 and tmp<=49895) then
getpychar= "L"
elseif(tmp>=49896 and tmp<=50370) then
getpychar= "M"
elseif(tmp>=50371 and tmp<=50613) then
getpychar= "N"
elseif(tmp>=50614 and tmp<=50621) then
getpychar= "O"
elseif(tmp>=50622 and tmp<=50905) then
getpychar= "P"
elseif(tmp>=50906 and tmp<=51386) then
getpychar= "Q"
elseif(tmp>=51387 and tmp<=51445) then
getpychar= "R"
elseif(tmp>=51446 and tmp<=52217) then
getpychar= "S"
elseif(tmp>=52218 and tmp<=52697) then
getpychar= "T"
elseif(tmp>=52698 and tmp<=52979) then
getpychar= "W"
elseif(tmp>=52980 and tmp<=53640) then
getpychar= "X"
elseif(tmp>=53689 and tmp<=54480) then
getpychar= "Y"
elseif(tmp>=54481 and tmp<=62289) then
getpychar= "Z"
else '如果不是中文，则不处理
getpychar=char
end if
end function

function getpy(str)
for i=1 to len(str)
getpy=getpy&getpychar(mid(str,i,1))
next
end function
d="只查"
msgbox getpy(d)
//-->
</SCRIPT>