[已解决]“顺序输入模式”是什么意思？

爱疯

“顺序输入模式”是什么意思？

Open "TESTFILE" For Input As #1
 

 

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-10 08:44

这里牵涉到一个指针的概念，或者可以简单的理解为光标。

这个指针（光标）在打开文件的时候就生成了，标志着当前在哪个字符那里（其实这里指的是数据存储的地址，指针的作用就是记录地址，指针会顺着地址的增大而指向下一个地址。或者出现标志位让指针跳转来到达下一个地址来读取数据。计算机里的数据存储就是这样的，通过指针把这些数据串联起来，成为一个完整的数据。这样，当你读取1.txt内容的时候，系统不会给你反馈2.txt。）当读取后指针就下移一个，读取下一个数据。按个下来，就是顺序模式。当读到最后一个的时候，数据会反馈一个EOF标志，这时候就知道数据已经没有了。所以在用Open方式打开文本文件时会用EOF这样的判断来循环。

按照我的理解。只有Append模式（意为添加，即在最后加上）的时候，指针直接跳转到最后让用户写入。其他都应该是顺序的模式。

跳转到最佳答案楼层

和气生财

是按照从上到下逐行读取的方式，无法按照条件跳着读取，，，，

爱疯

QUOTE:

以下是引用和气生财在2009-12-9 21:38:00的发言：

是按照从上到下逐行读取的方式，无法按照条件跳着读取，，，，

谢谢生财！

如果是这样的话，那么不顺序输入模式的是怎样的呀？

如果顺序模式存在的话，为什么帮助的参数mode里怎么没有它？

Append	添加
Binary	二进制
Input	输入
Output	输出
Random	随机

PS：这是我翻的，不知对不对[em04]

和气生财

我也是这样翻译的，哈哈，只是binary 和 random 两个没用过，，，

爱疯

QUOTE:

以下是引用和气生财在2009-12-9 21:55:00的发言：

我也是这样翻译的，哈哈，只是binary 和 random 两个没用过，，，

我也是，只想看一眼什么样子[em04]

xuflower

学习一下

amulee

这里牵涉到一个指针的概念，或者可以简单的理解为光标。

这个指针（光标）在打开文件的时候就生成了，标志着当前在哪个字符那里（其实这里指的是数据存储的地址，指针的作用就是记录地址，指针会顺着地址的增大而指向下一个地址。或者出现标志位让指针跳转来到达下一个地址来读取数据。计算机里的数据存储就是这样的，通过指针把这些数据串联起来，成为一个完整的数据。这样，当你读取1.txt内容的时候，系统不会给你反馈2.txt。）当读取后指针就下移一个，读取下一个数据。按个下来，就是顺序模式。当读到最后一个的时候，数据会反馈一个EOF标志，这时候就知道数据已经没有了。所以在用Open方式打开文本文件时会用EOF这样的判断来循环。

按照我的理解。只有Append模式（意为添加，即在最后加上）的时候，指针直接跳转到最后让用户写入。其他都应该是顺序的模式。

和气生财

阿木来了，哈哈

这里 Random 的意思不是随机存取的意思么？还是说随机取，顺序存？

爱疯

谢谢阿木！

学习了。如果这样，open的mode应该是5+1=6种，才天衣无缝。

尽管仍有疑惑，但我觉得已经好像是“对了”很多。。。。。[em04]

吕?布

Append是指不删除已有内容，在原来的办内容后进行追加输入

Binary是二进制，是指内容是二进制形式的

Input和Output都是顺序模式，但是前面的用于读取内容时，后面的用于写内容时。根据后面操作文件的方式选用不同的文件打开方式

Random不了解，看帮助好象是用于操作格式化数据的

 

'按顺序运行三个代码，生成的文件应在我的文档中

Sub modeOutput()
'本示例使用 Write # 语句将行数据写入顺序文件。

    Open "TESTFILE.txt" For Output As #1    ' 打开输出文件。
    Write #1, "Hello World", 234    ' 写入以逗号隔开的数据。
    Write #1,    ' 写入空白行。

    Dim MyBool, MyDate, MyNull, MyError
    ' 赋值 Boolean、Date、Null 及 Error 等。
    MyBool = False: MyDate = #2/12/1969#: MyNull = Null
    MyError = CVErr(32767)
    ' Boolean 数据以 #TRUE# 或 #FALSE# 的格式写入。
    ' 日期以通用日期格式写入，例如：#1994-07-13# 代表
    ' 1994 年 1 月 13 日。Null 数据以 #NULL# 格式写入。
    ' Error 数据以 #ERROR 错误代号# 的格式写入。
    Write #1, MyBool; " is a Boolean value"
    Write #1, MyDate; " is a date"
    Write #1, MyNull; " is a null value"
    Write #1, MyError; " is an error value"
    Close #1    ' 关闭文件。
End Sub

Sub modeInput()
    Dim MyString, MyNumber
    Open "TESTFILE.txt" For Input As #1    ' 打开输入文件。
    Do While Not EOF(1)    ' 循环至文件尾。
        Input #1, MyString, MyNumber    ' 将数据读入两个变量。
        Debug.Print MyString, MyNumber    ' 在立即窗口中显示数据。
    Loop
    Close #1    ' 关闭文件。
End Sub

Sub funInput()
    Dim MyChar
    Open "TESTFILE.txt" For Input As #1    ' 打开文件。
    Do While Not EOF(1)    ' 循环至文件尾。
        MyChar = input(1, #1)    ' 读入一个字符。
        Debug.Print MyChar    ' 显示到立即窗口。
    Loop
    Close #1    ' 关闭文件。
End Sub