Hi,
When I execute this line
:%s/\<[01]\+\>/\=Bin2Hex(submatch(0))/
on this binary tabel
0000
0001
[...]
1111
it is all converted nicely to hexadecimal
However, my binary numbers are prefixed with a % character.
So
%0000
%0001
[...]
%1111
How to I change the substitute command above so that it works again?
I tried
:%s/\<%[01]\+\>/\=Bin2Hex(submatch(1))/
But this one gives an pattern not found error
And
:%s/%\<[01]\+\>/\=Bin2Hex(submatch(1))/
changes everything into zero.
So I assume the submatch position is wrong
Here below the Bin2Hex function is described.
Note: Not developed by my but provided trough this fantastic mailing group
+--------------------------------------------------------------------------------------------------------+
func! Bin2Hex(bin)
let bin = matchstr(a:bin, '[01]\+')
if bin == ""
return "0"
endif
let bin = repeat("0", PadSize(strlen(bin), 4)). bin
let runs = split(bin, '....\zs')
call map(runs, 's:fourbd2hd(v:val)')
return join(runs, '')
endfunc
" return the first run of hex digits in string {hex} converted into
" binary digits (a match at "0x" is skipped)
func! Hex2Bin(hex)
let hex = matchstr(a:hex, '\%(0x\)\...@!\x\+')
if hex == ""
return "0"
endif
return join(map(split(hex, '\m'), 's:hd2fourbd(v:val)'), '')
endfunc
" convert 4 bin digits (string) into 1 (lower case) hex digit
func! s:fourbd2hd(bd)
let bd = a:bd
return printf("%x", 8*bd[0] + 4*bd[1] + 2*bd[2] + bd[3])
endfunc
" convert 1 hex digit (string) into 4 bin digits
func! s:hd2fourbd(hd)
let hd = eval("0x". a:hd)
return (hd/8) . (hd/4%2) . (hd/2%2) . (hd%2)
endfunc
" calculate number of pad chars to make {len} a multiple of {chunksize}
func! PadSize(len, chunksize)
return -1 + (a:chunksize - (a:len + a:chunksize - 1) % a:chunksize)
endfunc
" padsize := PadSize(len,chunksize) <=>
" 0 <= padsize < chunksize AND (len + padsize) mod chunksize = 0
" NOTE: must not use substitute() in the functions to avoid recursive
" submatch() when called from :s/.../\=.../
" substitute(bin,'[01]\{4}', '\=s:fourbd2hd(submatch(0))', 'g')
" substitute(a:hex, '\x', '\=s:hd2fourbd(submatch(0))', 'g')
+--------------------------------------------------------------------------------------------------------+
Rgds,
Jeri
--~--~---------~--~----~------------~-------~--~----~
You received this message from the "vim_use" maillist.
For more information, visit http://www.vim.org/maillist.php
-~----------~----~----~----~------~----~------~--~---
