处理文本文件

wkbu · 发表于 2012-3-7 19:21

文本不太常用，占位学习！

XUYUJING2007 · 发表于 2012-3-26 12:54

老师，能否解释一下
4、FreeFile 函数
语法：FreeFile[(rangenumber)]
参数 rangenumber指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。
功能：提供一个尚未使用的文件号、
这里所指的文件号是什么东西，是文件的顺序号吗，那如果文件超过511个呢

weiqibianp · 发表于 2012-7-25 20:23

做个记号,以后有用

wj2368 · 发表于 2012-7-26 08:51

本帖最后由 wj2368 于 2012-7-26 08:52 编辑

XUYUJING2007 发表于 2012-3-26 12:54
老师，能否解释一下
4、FreeFile 函数
语法：FreeFile[(rangenumber)]

FreeFile 函数示例
本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' 循环五次。
FileNumber = FreeFile ' 取得未使用的文件号。
Open "TEST" & MyIndex For Output As #FileNumber ' 创建文件名。
Write #FileNumber, "This is a sample." ' 输出文本至文件中。
Close #FileNumber ' 关闭文件。
Next MyIndex
如果超过就会出错

aman1516 · 发表于 2012-7-26 20:54

谢谢分享，收藏了。
好好学习，天天向上。

icqdj · 发表于 2013-4-20 12:29

感谢楼主滴分享~~~~

klaushou · 发表于 2014-8-30 12:42

open ... for input as 的解释呢

wj2368 · 发表于 2014-8-30 14:13

klaushou 发表于 2014-8-30 12:42
open ... for input as 的解释呢

打开文本文件

qx-liuwx · 发表于 2016-1-6 17:51

每次回帖、谢谢！辛苦了。

龙城飞将III · 发表于 2016-8-20 15:31

哇，好东西，学习了！

		自动登录	找回密码
密码			免费注册

[分享] 处理文本文件