<div class="codebody" id="code49236"> --============================================== -- FUNCTION varbin2hexstr -- 将 varbinary 类型的数据转换为 varchar 类型 --============================================== IF OBJECT_ID ('dbo.varbin2hexstr') IS NOT NULL DROP FUNCTION dbo.varbin2hexstr GO CREATE function varbin2hexstr( @bin varbinary(8000) )returns varchar(8000) as begin declare @re varchar(8000),@i int select @re='',@i=datalength(@bin) while @i>0 select @re=substring('0123456789ABCDEF',substring(@bin,@i,1)/16+1,1) +substring('0123456789ABCDEF',1)%16+1,1) +@re ,@i=@i-1 -- return('0x'+@re) return @re end GO
测试示例： select dbo.varbin2hexstr(0x1432fabcdef1234567890) SQL Server 数据库中，实现 varchar 类型转换成 varbinary 类型 一定会有人立马想到：既然已经实现了varbinary 类型转换成 varchar 类型，接下来需要做的，只是将函数逆向反转实现便可。但实现也并非如此！实现的思路是： 先将整个字符串按照每两位分组； 为什么不按照每8位或每4位进行分组？是为了考虑到函数的通用性。 如果按照每 8位 或者 每4位 分组，则整个字符串必须是8或者4的倍数，否则将出现字符不足，前面补 0的情况。 然后对每个字符进行处理，如：字符“A B C D E F” 对应转换为“10 11 12 13 14 15”； 接着对每2个字符进行 16 的幂运算，并求和。如： AB = 10 16的一次方 + 11 16的零次方； 再将这个2个字符的整数和，转换为一个字节（Byte）长度的 varbinary 数据； 最后将所有的 varbinary 数据直接相加即可。 代码如下： <div class="codetitle"><a style="CURSOR: pointer" data="40950" class="copybut" id="copybut40950" onclick="doCopy('code40950')"> 代码如下:
<div class="codebody" id="code40950"> --============================================== -- FUNCTION hexstr2varbin -- 将 varchar 类型的数据转换为 varbinary 类型 --============================================== IF OBJECT_ID ('dbo.hexstr2varbin') IS NOT NULL DROP FUNCTION dbo.hexstr2varbin GO CREATE function [dbo].[hexstr2varbin]( @char varchar(8000) )returns varbinary(8000) as begin declare @re varbinary(8000),@tempchar varchar(2), @getchar varchar(1),@getint int,@n int,@totalint int, @i int,@tempint int,@runNum int -- 字符串截取段数 select @tempchar='',@i=datalength(@char),@re=0x; if( @i>0) begin if ( @i%2 = 0) set @runNum= @i/2 else set @runNum= @i/2 + 1 while (@runNum > 0) begin if(@runNum = 1) set @tempchar = @char else set @tempchar = substring(@char,(@runNum-1)2,2) select @n=1,@totalint=0; -- 循环处理截取的每个字符串 (这里的字符串长度为2) while @n < ( datalength(@tempchar) + 1 ) begin set @getchar=substring(@tempchar,@n,1); -- 将字符转换为十六进制对应的数字 select @getint=case when @getchar='a' then 10 when @getchar='b' then 11 when @getchar='c' then 12 when @getchar='d' then 13 when @getchar='e' then 14 when @getchar='f' then 15 else convert(int,@getchar) end; set @tempint=@getintpower(16,datalength(@tempchar)-@n) set @totalint = @totalint + @tempint set @n=@n+1 end set @re=convert(varbinary(1),@totalint) + @re; set @runNum=@runNum-1; end end return @re end GO
