在PB中，字符串與十六進制的互轉

 //字符串轉換爲16進制
string ls_hex = '',hex =''
char lch_hex[0 to 15] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}
int li_d,i
character ac_d

If IsNull(astr) Then
  SetNull(ls_hex)
  Return ls_hex
End If

for i=1 to len(astr)
 ac_d = mid(astr,i,1)
 li_d = asc(ac_d)
 hex = ''
 Do
   hex = lch_hex[mod(li_d, 16)] + hex //mod 取餘數
   li_d /= 16
 Loop Until li_d= 0
 if len(hex) = 1 then hex = '0' + hex
 
 ls_hex = ls_hex + hex
next

Return ls_hex

 

//16進制轉換爲字符串
string ls_str = ''
char lch_hex[0 to 15] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}
int li_d,i,m,k,l
character ac_d

If IsNull(as_hex) Then
  SetNull(as_hex)
  Return as_hex
End If

k = len(as_hex)/2
for i=0 to  k -1
 ac_d = mid(as_hex,i*2 + 1,1)
 for m = 0 to 15
  if lch_hex[m] = ac_d then exit
 next
 
 ac_d = mid(as_hex,i*2 +2,1)
 for l = 0 to 15
  if lch_hex[l] = ac_d then exit
 next
 
  li_d = m * 16 + l
 
 ac_d = Char(li_d)
 ls_str = ls_str + ac_d
next

Return ls_str