經典SQL Server使用者自訂函數：首字拼音查詢

經典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>