输入超出文件尾什么意思|vb 运行时错误 '62' 输入超过文件尾

|

1. vb 运行时错误 '62' 输入超过文件尾

1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”。

2. VB输入超出文件尾

Dim ExitWhile As Boolean ReDim t(g, g) Open Path & "/原始阻抗矩阵.txt" For Input As #2 For i = 1 To g For j = 1 To g If Not EOF(2) Then Input #2, a t(i, j) = a Else ExitWhile = True Exit For End If Next If ExitWhile Then Exit For Next CloseOpen Path & "/PA矩阵.txt" For Input As #1 ReDim pa(h, h) ExitWhile = False For i = 1 To h For j = 1 To h If Not EOF(1) Then Input #1, b pa(i, j) = b Else ExitWhile = True Exit For End If Next If ExitWhile Then Exit For Next Close 'Input #1, b '这里超出文件尾是因为执行“Do While Not EOF(1)”时并没有超出,而另一循环体却不止一次的读取数据,由于循环未结束而无法返回“Do While Not EOF(1)”判断文件尾,所以极易发生超出文件尾的错误

3. vb运行时提示 实时错误'62' 输入超出尾文件

可能存在这样的情况:在判断文件时,没有到达文件结尾,而在你的接下来的操作时,就达到了文件结尾,但你还让程序进行文件读写。打个比方(100为到达文件结尾):当前文件到达98的位置,你的代码还要读写下面三个内容,于是第99个内容可读写,第100个内容可读写,第101个内容VB提示超出尾文件

4. vb输入超出文件尾

输入超出文件尾(错误 62)

不能对文件尾位置后进行读入。此错误有以下原因和解决方法:

Input # 或 Line Input # 语句要到已读完文件或空文件中读入数据。

在 Input # 语句之前直接使用 EOF 函数来测试是否处在文件的结尾。

在以 Binary 访问所打开的文件上使用 EOF 函数。

EOF 只能用在顺序 Input 访问所打开的文件上。在 Binary 访问所打开的文件上使用 Seek 和 Loc。

EOF 函数,返回一个 Integer,它包含 Boolean 值 True,表明已经到达为 Random 或顺序 Input 打开的文件的结尾。

EOF 函数示例

本示例使用 EOF 函数来检测文件尾。示例中假设 MYFILE 为有数个文本行的文本文件。

DimInputDataOpen"MYFILE"ForInputAs#1'为输入打开文件。DoWhileNotEOF(1)'检查文件尾。LineInput#1,InputData'读入一行数据。Debug.PrintInputData'在立即窗口中显示。LoopClose#1'关闭文件。

Seek 函数,返回一个 Long,在 Open 语句打开的文件中指定当前的读/写位置。

Seek 函数示例

本示例使用 Seek 函数来返回当前文件位置。示例中假设 TESTFILE 文件内含有用户自定义数据类型 Record 的记录。

TypeRecord'定义用户自定义数据类型。IDAsIntegerNameAsString*20EndType'如果以随机方式打开文件,Seek返回下一个记录的编号。DimMyRecordAsRecord'声明变量。Open"TESTFILE"ForRandomAs#1Len=Len(MyRecord)DoWhileNotEOF(1)'循环至文件尾。Get#1,,MyRecord'读入下一个记录。Debug.PrintSeek(1)'在立即窗口中显示记录号。LoopClose#1'关闭文件。'如果不以Random方式打开文件,则Seek返回下一个操作会发生的位置。假设TESTFILE文件内含有文本数据。DimMyCharOpen"TESTFILE"ForInputAs#1'打开输入文件。DoWhileNotEOF(1)'循环至文件尾。MyChar=Input(1,#1)'读入下一个字符。Debug.PrintSeek(1)'将下一字符的位置显示在立即窗口。LoopClose#1'关闭文件。

Loc 函数,返回一个 Long,在已打开的文件中指定当前读/写位置。

Loc 函数示例

本示例使用 Loc 函数来返回在打开的文件中当前读写的位置。 本示例假设 TESTFILE 文件内含数行文本数据。

DimMyLocation,MyLineOpen"TESTFILE"ForBinaryAs#1'打开刚创建的文件。DoWhileMyLocation<LOF(1)'循环至文件尾。MyLine=MyLine&Input(1,#1)'读入一个字符到变量中。MyLocation=Loc(1)'取得当前位置。'在立即窗口中显示。Debug.PrintMyLine:Tab:MyLocationLoopClose#1'关闭文件。

5. 求教!为什么会出现“输入超出文件尾”的错误

你的代码有相当大的问题在你打开文件之前,你是不知道文件里面有多少记录的ReDim a(n) As stu重新定义a()后,a()里面原来的记录就消失了你打开文件的方式是input(读取记录),但是后面你又使用了print(写记录),这就造成了你的错误。我猜你的意思是想在窗体上输出print后面的东西,但是你的print是写在open下面的,这就是在文件里面写了。如果你要保持现在的结构不变的话,把你上面的print全改为form1.print(假设你的窗体名为form1)

6. vb中输入超出文件尾是什么意思 怎么解决

你想读取文件?还是将数据保存到文件,将数据保存到文件你应该用output。这个是不会超出文件尾的。但是你要是从文件中读取数据的话。由于文件的长度肯定是有限的,所以有可能回超出文件尾。若是这样,你可以加入 on error goto 或者on error resume next 语句。就不会发生错误了。

7. vb用input出错,说什么超出文件尾

VB输入超出文件尾是指你想读取超出文件结尾之后的部分,当然不可能,这个是由于VB 内部采用Unicode方式问题,你所读取的文件中可能含有中文(全角字符)和英文(半角字符)导致,甚至是空的文件。解决的方法1.用二进制打开,用GET方法读入

Open"d: est1.txt"ForBinaryAsfilenum1TextLine=Space(LOF(filenum1))Getfilenum1,,TextLine

遇到大的文件载入就满点了。2..用RichTextBox控件实现。添加部件:Microsoft Rich Textbox Control 6.0添加控件:RichTextBox1添加读取语句:RichTextBox1.LoadFile FileName速度比较的快,方便简洁。然后让你的字符串变量为RichTextBox1.text就可以了。

参考自:http://..com/link?url=-sma0jdI_4bxCqD0GK


赞 (0)