读取程序（可选）：要保留程序的副本，请单击此过程。(读取一个程序的代码)

要保留程序的副本，请单击此过程。

(读取一个程序的代码)

步骤

1. 单击"文件"菜单，然后选择"读取程序"。
2. 在"打开"对话框中，浏览到程序文件并选择它。
3. 单击"打开"按钮。
4. 程序将加载到文本编辑器中。

提示

• 您可以使用快捷键Ctrl+O快速打开"读取程序"对话框。
• 程序文件必须是纯文本文件，扩展名为".txt"。
• 如果您在读取程序时遇到问题，请确保您具有该程序的文件访问权限。

故障排除

我无法找到程序文件。

请确保您按照以下路径搜索文件：C:\Program Files\Program Name

当我尝试读取程序时，出现一条错误消息。

该错误消息可能是由以下原因引起的：

• 您没有该程序的文件访问权限。
• 程序文件已损坏。

其他信息

读取程序功能非常有用，因为它允许您保存在计算机上运行的程序的副本。这可以出于各种目的，例如：

• 创建程序的备份。
• 将程序移动到另一台计算机。
• 查看程序的代码。
• 编辑程序的代码。

请注意，并非所有程序都可以使用读取程序功能进行读取。一些程序使用专有格式，无法保存为纯文本文件。某些程序可能会受到版权法的保护，您可能无法复制它们。

vb对文件操作功能很强大的，不过总结来说可以简单用也可以复杂用。 第一段代码就是一个写文件的例子。 后面的都是对文本文件添加和读取的方法，耐心试验一下就会用了。 Print # 语句示例本示例使用 Print # 语句将数据写入一个文件。 Open TESTFILE For Output As #1 打开输出文件。 Print #1, This is a test 将文本数据写入文件。 Print #1, 将空白行写入文件。 Print #1, Zone 1； Tab ； Zone 2 数据写入两个区（print zones）。 Print #1, Hello ； ； World 以空格隔开两个字符串。 Print #1, Spc(5) ； 5 leading spaces 在字符串之前写入五个空格。 Print #1, Tab(10) ； Hello 将数据写在第十列。 赋值 Boolean、Date、Null 及 Error 等。 Dim MyBool, MyDate, MyNull, MyErrorMyBool = False : MyDate = #February 12, 1969# : MyNull = NullMyError = CVErr() True、False、Null 及 Error 会根据系统的地区设置自动转换格式。 日期将以标准的短式日期的格式显示。 Print #1, MyBool ； is a Boolean valuePrint #1, MyDate ； is a datePrint #1, MyNull ； is a null valuePrint #1, MyError ； is an error valueClose #1 关闭文件。 使用顺序文件访问推荐您使用 File System Objects 来创建文本文件，但该信息只在需要使用旧文本文件创建方法时才提供。 当要处理只包含文本的文件时，比如由典型文本编辑器所创 建的文件－也就是说，其中的数据没有分成记录的文件，使用顺序型访问最好。 顺序型访问不太适于存储很多数字，因为每个数字都要按字符串存储。 一个四位数将需要 4 个字节的存储空间，而不是作为一个整数来存储时只需的 2 个字节。 打开顺序访问文件当以顺序型访问打开一个文件时，可执行以下操作：从文件输入字符 (Input)向文件输出字符 (Output)把字符加到文件 (Append)要顺序型访问打开一个文件，Open 语句使用以下语法：Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]当打开顺序文件作为 Input 时，该文件必须已经存在，否则，会产生一个错误。 然而，当打开一个不存在的文件作为 Output 或 Append 时，Open 语句首先创建该文件，然后再打开它。 当在文件与程序之间拷贝数据时，选项 Len 参数指定缓冲区的字符数。 在打开一个文件 Input、Output 或 Append 以后，在为其它类型的操作重新打开它之前必须先使用 Close 语句关闭它。 编辑为顺序访问打开的文件如果要编辑一个文件，先把它的内容读入到程序变量，然后改变这些变量，最后再把这些变量写回到该文件。 以下各节讨论如何编辑以顺序型访问打开的各记录。 从文件中读取字符串要检索文本文件的内容，应以顺序 Input 方式打开该文件。 然后使用 Line Input#，Input( )，或者 Input# 语句将文件拷贝到程序变量中。 Visual Basic 提供了一次读写顺序文件一个字符或一行的语句和功能。 例如，以下代码段逐行读取一个文件：Dim LinesFromFile, NextLine As StringDo Until EOF(FileNum)Line Input #FileNum, NextLineLinesFromFile = LinesFromFile + NextLine + Chr(13) + Chr(10)Loop尽管 Line Input # 到达回车换行时它会识别行尾，但是，当它把该行读入变量时，不包括回车换行。 如果要保留该回车换行，代码必须添加。 也可以使用 Input # 语句，它读取文件中所写的一列的数字和/或字符串表达式。 例如，要从一个邮件列表文件中读取一行，可使用以下语句：Input #FileNum, name, street, city, state, zip可以使用 Input 函数来从文件向变量拷贝任意数量的字符，所给的变量大小应足够大。 例如，以下的代码使用 Input 把指定数目的字符复制到变量。 LinesFromFile = Input(n, FileNum)要将整个文件复制到变量，请使用 InputB 函数将字节从文件复制到变量。 因为InputB 函数返回一个 ANSI 字符串，您必须使用 StrConv 函数将 ANSI 字符串转换为一个如下的 UNICODE 字符串：LinesFromFile = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode)把字符串写入文件要在顺序文件中存储变量的内容，应以顺序 Output 或 Append 打开它，然后使用 Print # 语句。 例如，文本编辑器可以使用以下代码行来把一个文本框的内容拷贝到文件。 Print #FileNum, Basic 也支持 Write # 语句，它把一列数字和/或字符串表达式写入文件。 它自动地用逗号分开每个表达式，并且在字符串表达式端放置引号。 Dim AnyString As String, AnyNumber As IntegerAnyString = AnyCharactersAnyNumber = Write #FileNum AnyString, AnyNumber这个代码段把两个表达式写入由 FileNum 指定的文件。 第一个表达式包含一个字符串而第二个包含数字 。 因而，Visual Basic 把以下的字符（包括所有标点符号）写入到文件中：AnyCharacters,注意 如果正在用顺序型访问的 Write # 与 Input # 语句，可考虑换用随机型 或二进制型访问，因为它们更适合面向于记录的数据。 详细信息 有关顺序文件访问的其它信息，请参阅“Open 语句”。 Open 语句示例本示例示范 Open 语句的不同用法来做到文件的输出与输入。 下列代码以顺序输入模式打开 TESTFILE 文件。 Open TESTFILE For Input As #1 若要以其他方式打开文件，必需先关闭此文件。 Close #1下列代码以只允许写操作的二进制方式打开文件。 Open TESTFILE For Binary Access Write As #1 若要以其他方式打开文件，必需先关闭此文件。 Close #1下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。 Type Record 定义用户自定义数据类型。 ID As IntegerName As String * 20End TypeDim MyRecord As Record 声明变量。 Open TESTFILE For Random As #1 Len = Len(MyRecord) 若要以其他方式打开文件，必需先关闭此文件。 Close #1下列代码以顺序输出方式打开文件；任何过程都可以读写该文件。 Open TESTFILE For Output Shared As #1 若要以其他方式打开文件，必需先关闭此文件。 Close #1下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。 Open TESTFILE For Binary Access Read Lock Read As #1能够对文件输入/输出 (I/O)。 语法Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]Open 语句的语法具有以下几个部分：部分 描述pathname 必要。 字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。 mode 必要。 关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。 如果未指定方式，则以 Random 访问方式打开文件。 access 可选。 关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。 lock 可选。 关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。 filenumber 必要。 一个有效的文件号，范围在 1 到 511 之间。 使用 FreeFile 函数可得到下一个可用的文件号。 reclength 可选。 小于或等于 32，767（字节）的一个数。 对于用随机访问方式打开的文件，该值就是记录长度。 对于顺序文件，该值就是缓冲字符数。 说明对文件做任何 I/O 操作之前都必须先打开文件。 Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。 如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。 如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open 操作失败，而且会有错误发生。 如果 mode 是 Binary 方式，则 Len 子句会被忽略掉。 重要 在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。 在 Append 和 Output 方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。