[转]SQL根据GBK编码取汉字的拼音首字母的存储过程,经测试,此版有BUG！学习中......

/*给出汉字字符串，输出其汉语拼音首字母的存储过程*/
create proc pinyin @var varchar(100)
as
begin
set @var=ltrim(rtrim(@var))
--去掉左右空格
declare @i int,@v varbinary(2),@varchar varchar(100),@pinyin varchar(100)
--@v varbinary的长度一定为2，因为GBK编码为4位16进制数即2个字节，如果不标明长度，默认为1字节，后面的代码将被截取
set @pinyin=''
set @i=1
--置初值
while @i<=len(@var)
-->@var长度时退出循环
begin
set @v=cast(substring(@var,@i,1) as varbinary)
--cast将该位置字符转换为二进制
if @v<0xB0A1 or @v>0xD7FD
--编码为四位16进制，前面的0x代表后面为十六进制，并不是GBK编码实际内容
begin
set @varchar=substring(@var,@i,1)
end
--如字符不属于汉字则输出原样字符
else if @v>=0xB0A1 and @v<=0xB0C4
begin
set @varchar='A'
end
else if @v>=0xB0C5 and @v<=0xB2C0
begin
set @varchar='B'
end
else if @v>=0xB2C1 and @v<=0xB2C0
begin
set @varchar='C'
end
else if @v>=0xB4EE and @v<=0xB6E9
begin
set @varchar='D'
end
else if @v>=0xB6EA and @v<=0xB7A1
begin
set @varchar='E'
end
else if @v>=0xB7A2 and @v<=0xB8C0
begin
set @varchar='F'
end
else if @v>=0xB8C1 and @v<=0xB9FD
begin
set @varchar='G'
end
else if @v>=0xB9EE and @v<=0xBBF6
begin
set @varchar='H'
end
else if @v>=0xBBF7 and @v<=0xBFA5
begin
set @varchar='J'
end
else if @v>=0xBFA6 and @v<=0xC0AB
begin
set @varchar='K'
end
else if @v>=0xC0AC and @v<=0xC2E7
begin
set @varchar='L'
end
else if @v>=0xC2E8 and @v<=0xC4C2
begin
set @varchar='M'
end
else if @v>=0xC4C3 and @v<=0xC5B5
begin
set @varchar='N'
end
else if @v>=0xC5B6 and @v<=0xC5BD
begin
set @varchar='O'
end
else if @v>=0xC5BE and @v<=0xC6D9
begin
set @varchar='P'
end
else if @v>=0xC6DA and @v<=0xC8BA
begin
set @varchar='Q'
end
else if @v>=0xC8BB and @v<=0xC8F5
begin
set @varchar='R'
end
else if @v>=0xC8F6 and @v<=0xCBF9
begin
set @varchar='S'
end
else if @v>=0xCBFA and @v<=0xCDD9
begin
set @varchar='T'
end
else if @v>=0xCDDA and @v<=0xCEF3
begin
set @varchar='W'
end
else if @v>=0xCEF4 and @v<=0xD1B8
begin
set @varchar='X'
end
else if @v>=0xD1B9 and @v<=0xD4D0
begin
set @varchar='Y'
end
else if @v>=0xD4D1 and @v<=0xD7FD
begin
set @varchar='Z'
end

set @pinyin=@pinyin+@varchar
--结果连接在结果字符串右边
set @i=@i+1
end
print @pinyin
end
--drop proc pinyin

exec pinyin '执行'