lisp可以读写二进制文件吗？

starlet2003

想问一下，使用ALisp或者VLisp可以读写二进制文件吗？

如果可以，哪里有这样的范例呢？

liu_kunlun

这个问题还是比较重要的，但Lisp不可以。哪位高手想点办法？例如用Activex方法？

nonsmall

方法1：使用ActiveX

方法2：调用WIN32 API

方法3：利用VBA表达式

highflybir

[Post=10]下面提供一个函数。

2. (defun _ReadStream ( path len / fso file stream result )
3.     ;;  If the file is successful read the data is returned as
4.     ;;  a string. Won't be tripped up by nulls, control chars
5.     ;;  including ctrl z (eof marker). Pretty fast (feel free
6.     ;;  to bench mark / compare to alternates).
7.     ;;
8.     ;;  If the caller wants the result as a list of byte values
9.     ;;  simply use vl-string->list on the result:
10.     ;;
11.     ;;      (setq bytes
12.     ;;          (if (setq stream (_ReadStream path len))
13.     ;;              (vl-string->list stream)
14.     ;;          )
15.     ;;      )
16.     ;;
17.     ;;  Arguments:
18.     ;;
19.     ;;      path  <duh>
20.     ;;      len   Number of bytes to read. If non numeric, less
21.     ;;            than 1 or greater than the number of bytes in
22.     ;;            the file everything is returned.
23.     (vl-catch-all-apply
24.        '(lambda ( / iomode format size )
25.             (setq
26.                 iomode  1 ;; 1 = read,   2 = write,    8 = append
27.                 format  0 ;; 0 = ascii, -1 = unicode, -2 = system default
28.                 fso     (vlax-create-object "Scripting.FileSystemObject")
29.                 file    (vlax-invoke fso 'GetFile path)
30.                 stream  (vlax-invoke fso 'OpenTextFile path iomode format)
31.                 size    (vlax-get file 'Size)
32.                 len     (if (and (numberp len) (< 0 len size)) (fix len) size)
33.                 result  (vlax-invoke stream 'read len)
34.             )
35.             (vlax-invoke stream 'Close)
36.         )
37.     )
38.     (if stream (vlax-release-object stream))
39.     (if file (vlax-release-object file))
40.     (if fso (vlax-release-object fso))
41.     result
42. )

(defun _ReadStream ( path len / fso file stream result )     ;;  If the file is successful read the data is returned as     ;;  a string. Won't be tripped up by nulls, control chars     ;;  including ctrl z (eof marker). Pretty fast (feel free     ;;  to bench mark / compare to alternates).     ;;     ;;  If the caller wants the result as a list of byte values     ;;  simply use vl-string->list on the result:     ;;     ;;      (setq bytes     ;;          (if (setq stream (_ReadStream path len))     ;;              (vl-string->list stream)     ;;          )     ;;      )     ;;     ;;  Arguments:     ;;     ;;      path  <duh>     ;;      len   Number of bytes to read. If non numeric, less     ;;            than 1 or greater than the number of bytes in     ;;            the file everything is returned.     (vl-catch-all-apply        '(lambda ( / iomode format size )             (setq                 iomode  1 ;; 1 = read,   2 = write,    8 = append                 format  0 ;; 0 = ascii, -1 = unicode, -2 = system default                 fso     (vlax-create-object "Scripting.FileSystemObject")                 file    (vlax-invoke fso 'GetFile path)                 stream  (vlax-invoke fso 'OpenTextFile path iomode format)                 size    (vlax-get file 'Size)                 len     (if (and (numberp len) (< 0 len size)) (fix len) size)                 result  (vlax-invoke stream 'read len)             )             (vlax-invoke stream 'Close)         )     )     (if stream (vlax-release-object stream))     (if file (vlax-release-object file))     (if fso (vlax-release-object fso))     result )

[/Post]
有空的话，楼主不妨上www.theswamp.org搜搜看，能得到很多方面的这样的程序。

starlet2003

谢谢楼上这位大哥

我爱lisp

没有用过，可以先顶一下楼上

hunkmax

留个记号，以后有用，感谢感谢