SQL汉字转拼音

 1 create   Function [dbo].[HZToPY](@HZ VarChar(255))
 2 Returns VarChar(255)
 3 As
 4 Begin 
 5  Declare @PY VarChar(255),@LenHZ int,@i int,@FristWord VarChar(2)
 6  Set @LenHZ = Len(@HZ)
 7  Set @i = 1
 8  Set @PY = ''
 9  While @i <= @LenHZ
10  Begin 
11    Set @FristWord = SubString(@HZ,@i,1)
12    If( @FristWord < '八' )
13    Begin
14      If (@FristWord >= '0' And @FristWord <= '9') Set @PY = @PY + @FristWord
15      Else If (@FristWord >= 'A' And @FristWord <= 'Z') Set @PY = @PY + @FristWord
16      Else If (@FristWord = '+' ) Set @PY = @PY + '+'
17      Else If (@FristWord = '-' ) Set @PY = @PY + '-'
18      Else If (@FristWord = '<' ) Set @PY = @PY + '<'
19      Else If (@FristWord = '>' ) Set @PY = @PY + '>'
20      Else If (@FristWord = '-' ) Set @PY = @PY + '-'
21      Else if( @FristWord >= '!' And @FristWord <='~') Set @PY = @PY + @FristWord
22      Else if (ASCII(@FristWord) = 176) set @PY = @PY + 'A'
23      Else Set @PY = @PY + @FristWord    
24    End 
25    --Else If( @FristWord < '吖' ) Set @PY = @PY + 'A' 
26    Else If( @FristWord < '嚓' ) Set @PY = @PY + 'B' 
27    Else If( @FristWord < '咑' ) Set @PY = @PY + 'C'
28    Else If( @FristWord < '妸' ) Set @PY = @PY + 'D'
29    Else If( @FristWord < '发' ) Set @PY = @PY + 'E'
30    Else If( @FristWord < '旮' ) Set @PY = @PY + 'F'
31    Else If( @FristWord < '铪' ) Set @PY = @PY + 'G' 
32    Else If( @FristWord < '讥' ) Set @PY = @PY + 'H' 
33    Else If( @FristWord < '咔' ) Set @PY = @PY + 'J' 
34    Else If( @FristWord < '垃' ) Set @PY = @PY + 'K' 
35    Else If( @FristWord < '嘸' ) Set @PY = @PY + 'L' 
36    Else If( @FristWord < '拏' ) Set @PY = @PY + 'M' 
37    Else If( @FristWord < '噢' ) Set @PY = @PY + 'N' 
38    Else If( @FristWord < '妑' ) Set @PY = @PY + 'O' 
39    Else If( @FristWord < '七' ) Set @PY = @PY + 'P' 
40    Else If( @FristWord < '亽' ) Set @PY = @PY + 'Q' 
41    Else If( @FristWord < '仨' ) Set @PY = @PY + 'R' 
42    Else If( @FristWord < '他' ) Set @PY = @PY + 'S' 
43    Else If( @FristWord < '哇' ) Set @PY = @PY + 'T' 
44    Else If( @FristWord < '夕' ) Set @PY = @PY + 'W' 
45    Else If( @FristWord < '丫' ) Set @PY = @PY + 'X' 
46    Else If( @FristWord < '帀' ) Set @PY = @PY + 'Y' 
47    Else If( @FristWord < '咗' ) Set @PY = @PY + 'Z' 
48    Else Set @PY = @PY + ''
49 
50    Set @i = @i + 1
51  End
52  Return (upper(@PY))
53 End
posted on 2013-04-11 09:01 幻劫阅读(346) 评论(0) 编辑收藏举报