FSO 的 ReadAll 方法

csharp

2. 
   
3. (defun readall (fn / fso f)
   
4.   (if (and (setq
   
5.          fso (vlax-get-or-create-object "scripting.filesystemobject")
   
6.        )
   
7.        (setq f (vlax-invoke fso 'opentextfile fn 1 :vlax-true))
   
8.       )
   
9.     (progn
   
10.       (setq s (vlax-invoke f 'readall))
    
11.      (vlax-invoke f 'close)
    
12.       (vlax-release-object f)
    
13.       (vlax-release-object fso)
    
14.       s
    
15.     )
    
16.   )
    
17. )

<br /> (defun readall (fn / fso f)<br />   (if (and (setq<br />          fso (vlax-get-or-create-object "scripting.filesystemobject")<br />        )<br />        (setq f (vlax-invoke fso 'opentextfile fn 1 :vlax-true))<br />       )<br />     (progn<br />       (setq s (vlax-invoke f 'readall))<br />      (vlax-invoke f 'close)<br />       (vlax-release-object f)<br />       (vlax-release-object fso)<br />       s<br />     )<br />   )<br /> )

按行拆分可以使用

1. 
   
2. (XD::String:RegExpS "[^\r\n]+" (readll "x:\\xxx.txt") "")
   

复制代码

Description

Opens a specified file and returns a TextStream object that can be used to read from or append to the file.

Syntax

object.OpenTextFile(filename[, iomode[, create[, format]]])
The OpenTextFile method has these parts:

Part	Description
object	Required. Always the name of a FileSystemObject.
filename	Required. String expression that identifies the file to open.
iomode	Optional. Indicates input/output mode. Can be one of two constants, either ForReading or ForAppending.
create	Optional. Boolean value that indicates whether a new file can be created if the specified filename doesn't exist. The value is True if a new file is created; False if it isn't created. The default is False.
format	Optional. One of three Tristate values used to indicate the format of the opened file. If omitted, the file is opened as ASCII.

Settings

The iomode argument can have either of the following settings:

Constant	Value	Description
ForReading	1	Open a file for reading only. You can't write to this file.
ForAppending	8	Open a file and write to the end of the file.

The format argument can have any of the following settings:
   

Constant	Value	Description
TristateUseDefault	2	Opens the file using the system default.
TristateTrue	1	Opens the file as Unicode.
TristateFalse	0	Opens the file as ASCII.

XDSoft

/db_自贡黄明儒_ 发表于 2017-12-16 20:50

怎么调用自身了？ f 是打开的文本文件， 接着调用 f 的 readall，读取文本文件的所有内容。

/db_自贡黄明儒_

学习一下，(setq s (vlax-invoke f 'readall))这样调用自身有什么好处？

/db_自贡黄明儒_

XDSoft 发表于 2017-12-16 21:05

o,老大，原来我不知道f有readall方法。