【葉子函數分享三十四】字串轉成16進位函數

/****************************

  字串轉成16進位

  作者：不得閑

  QQ: 75492895

  Email: appleak46@yahoo.com.cn

****************************/

--建立函數(suiyunonghen(不得閑))

Create Function VarCharToHex(@Str Varchar(400))

returns varchar(800)

as

begin

  declare @i int,@Asi int,@ModS int,@res varchar(800),@Len int,@Cres varchar(4),@tempstr varbinary(400)

  select @i = 1,@res='',@len=datalength(@str),@tempStr = Convert(varbinary,@str)

  while @i<=@len

  begin

     Select @Asi = substring(@tempstr,1,1),@Cres=''

     while @Asi <> 0

     begin

       select @Mods = @Asi %16,

       @Cres=Case when (@Mods > 9) then Char(Ascii('A')+@Mods-10)+@Cres else Cast(@Mods as varchar(4)) + @Cres end,

       @Asi = @Asi/16

     end

     Select @res = @res + @Cres,@tempStr =  substring(@tempStr,2,@len-1),@i = @i+1 

  end

  return @res

end

 

go

--測試樣本

select dbo.VarCharToHex('葉子')

 

--運行結果

/*

D2B6D7D3

*/