汉字转拼音函数.docxVIP

--创建函数 IF?OBJECT_ID([fn_GetPinyin])?IS?NOT?NULL?? ?DROP?FUNCTION?[fn_GetPinyin]??? GO?? create?function?[dbo].[fn_GetPinyin](@words?nvarchar(2000))?? returns?varchar(8000)?? as? begin?? ????declare?@word?nchar(1)?? ????declare?@pinyin?varchar(8000)?? ????declare?@i?int? ????declare?@words_len?int? ????declare?@unicode?int? ????set?@i?=?1?? ????set?@words?=?ltrim(rtrim(@words))?? ????set?@words_len?=?len(@words)?? ????while?(@i?=?@words_len)?--循环取字符? ????begin?? ????set?@word?=?substring(@words,?@i,?1)?? ????set?@unicode?=?unicode(@word)?? ????set?@pinyin?=?ISNULL(@pinyin?+SPACE(1),)+??? ????(case?when?unicode(@word)?between?19968?and?19968+20901?then??? ????(select?top?1 py?from?(?? ????select?a?as?py,N厑?as?word?? ????union?all?select?ai,N靉? ????union?all?select?an,N黯? ????union?all?select?ang,N醠? ????union?all?select?ao,N驁? ????union?all?select?ba,N欛? ????union?all?select?bai,N瓸?--韛兡瓸? ????union?all?select?ban,N瓣? ????union?all?select?bang,N鎊? ????union?all?select?bao,N鑤? ????union?all?select?bei,N鐾? ????union?all?select?ben,N輽? ????union?all?select?beng,N鏰? ????union?all?select?bi,N鼊? ????union?all?select?bian,N變? ????union?all?select?biao,N鰾? ????union?all?select?bie,N彆? ????union?all?select?bin,N鬢? ????union?all?select?bing,N靐? ????union?all?select?bo,N蔔? ????union?all?select?bu,N簿? ????union?all?select?ca,N囃? ????union?all?select?cai,N乲?--縩乲? ????union?all?select?can,N爘? ????union?all?select?cang,N賶? ????union?all?select?cao,N鼜? ????union?all?select?ce,N簎? ????union?all?select?cen,N笒? ????union?all?select?ceng,N乽?--硛硳岾猠乽? ????union?all?select?cha,N詫? ????union?all?select?chai,N囆? ????union?all?select?chan,N顫? ????union?all?select?chang,N韔? ????union?all?select?chao,N觘? ????union?all?select?che,N爡? ????union?all?select?chen,N讖? ????union?all?select?cheng,N秤? ????union?all?select?chi,N鷘? ????union?all?select?chong,N銃? ????union?all?select?chou,N殠? ????union?all?select?chu,N矗? ????union?all?select?chuai,N踹? ????union?all?select?chuan,N鶨? ????union?all?select?chuan