读写二进制研究

aicr317

;Subject:binary conversion to text by lisp 二进制文件转文本
;Writen:nonsmall(不死猫)
;Date:2009 10 18
;All Rights Reserved 版权所有 nonsmall(不死猫)
;Contact: QQ:43797405 Email:nonsmall@163.com
(defun binaryToText(FileName / ADODB.Stream)
 (Setq ADODB.Stream (Vlax-Get-Or-Create-Object "ADODB.Stream" ))
 (Vlax-Put-Property ADODB.Stream 'Type 1 )
 (Vlax-Invoke ADODB.Stream 'Open )
 (Vlax-Invoke-Method ADODB.Stream 'LoadFromFile FileName )
 (Vlax-Put-Property ADODB.Stream 'Position 0 )
 (Vlax-Invoke-Method ADODB.Stream 'Write (car (list (Vlax-Invoke-Method ADODB.Stream 'Read (Vlax-Get ADODB.Stream 'Size )) (Vlax-Put-Property ADODB.Stream 'Position 0 ))))
 (Vlax-Put-Property ADODB.Stream 'Position 0 )
 (Vlax-Put-Property ADODB.Stream 'Type 2 ) 
 (Vlax-Put-Property ADODB.Stream 'CharSet "us-ascii" )
 (Vlax-Invoke ADODB.Stream 'ReadText)
 ;(vlax-release-object ADODB.Stream)
)

(defun _WriteStream ( path text mode / fso stream file result )

    ;;  Return the file size if the file is successfully written
    ;;  to, otherwise nil. Will write all ascii chars to file
    ;;  including nulls. If the caller wants to pass a list of
    ;;  byte values to the function just call it like so:
    ;;
    ;;      (_WriteStream
    ;;          path
    ;;          (vl-list->string '(87 111 111 116 33))
    ;;          mode
    ;;      )
    ;;
    ;;  Arguments:
    ;;
    ;;      path  <duh>
    ;;      text  <duh>
    ;;      mode  "a" to create/append,
    ;;            "w" to create/overwrite (default)
   
    (setq mode (if (member mode '("a" "A")) "a" "w"))
   
    (vl-catch-all-apply
       '(lambda ( / format )
            (setq fso (vlax-create-object "Scripting.FileSystemObject"))
            (cond
                (   (or (null (findfile path)) (eq "w" mode))
                    (setq stream
                        (vlax-invoke
                            fso
                           'CreateTextFile
                            path
                           -1 ;; 0 (false) = don't overwrite , -1 (true) = overwrite
                            0 ;; 0 (false) = ascii, -1 (true) = unicode
                        )
                    )
                    (setq file (vlax-invoke fso 'GetFile path))
                )
                (   (setq file (vlax-invoke fso 'GetFile path))
                    (setq stream
                        (vlax-invoke
                            file
                           'OpenAsTextStream
                            8 ;; 1 = read, 2 = write, 8 = append
                            0 ;; 0 = ascii, -1 = unicode, -2 system default
                        )
                    )      
                )
            )
            (vlax-invoke stream 'Write text)
            (vlax-invoke stream 'Close)
            (setq result (vlax-get file 'Size))
        )
    )

    (if file (vlax-release-object file))
    (if stream (vlax-release-object stream))
    (if fso (vlax-release-object fso))
   
    result
   
)

 

=========================================================

测试：(_writestream "d:\\jmj.sld" (vl-list->string (vl-string->list (binarytotext "d:\\bsph.sld"))) "w")

 

 

生产的JMJ.SLD的值和原来的BSPH.SLD的值是一样的，文件大小也相等！

但是预览效果也不同，为什么

bsph.SLD是这样的 

而JMJ.SLD是这样的

 

xianaihua

你所用的程序在实际使用时是有问题的，这有老外做的读写二进制文件工具，很好用；
加载后（注意07，08用ReadBin17.arx，05，06用ReadBin16.arx），用函数binget，binput即可。
以下为示例：

2. ;读写幻灯片文件
3. (defun c:test2 ( / )
4. (setq a (binget "d:\\GB56.sld" ));读取二进制文件
5. (binput "d:\\GB56-1.sld" a );写二进制文件
6. )
7. (defun c:test3 ( / )
8. (binput "c:\\McCoy2.dwg" (binget "c:\\McCoy.dwg" ) )
9. )

;读写幻灯片文件 (defun c:test2 ( / ) (setq a (binget "d:\\GB56.sld" ));读取二进制文件 (binput "d:\\GB56-1.sld" a );写二进制文件 ) (defun c:test3 ( / ) (binput "c:\\McCoy2.dwg" (binget "c:\\McCoy.dwg" ) ) )

carrot1983

应该还有一个“textToBinary”

aicr317

楼上能留下QQ吗？想进一步请教

carrot1983

我也是花了三天时间，硬是没有找到正确的解决方法。

问我也无解。

jxphklibin

非常好，多谢

zyhandw

经试用，xianaihua 提供的方法的确好用！

xmzhangzhilin

5楼的方法很好用，唯一的缺点就是.arx也没办法一直打包到vlx中，用在别的电脑上需先加载ReadBin17.arx

LIULISHENG

学习一下怎么实现的