（XD::String->BinList）字符串转二进制列表

marting

1. (defun XD::String->BinList (str)
   
2.   (mapcar
   
3.     '(lambda (x) (XD::Math:Dec->binary x 8))
   
4.     (vl-string->list str)
   
5.   )
   
6. )
   

(defun XD::String->BinList (str)<br />   (mapcar<br />     '(lambda (x) (XD::Math:Dec->binary x 8))<br />     (vl-string->list str)<br />   )<br /> )<br />

命令: (xd::string->binlist "xdcad.net")
("01111000" "01100100" "01100011" "01100001" "01100100" "00101110" "01101110"
"01100101" "01110100")

炫翔

前辈，反向转换呢，就是 二进制列表转字符串

fl502

同楼上的问题。

zrg1

支持.谢谢分享