导航:首页 > 文件管理 > 输入超出文件尾什么意思

输入超出文件尾什么意思

发布时间:2022-09-28 09:30:06

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
Close

Open 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
为有数个文本行的文本文件。

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

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

Seek 函数示例

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

TypeRecord'定义用户自定义数据类型。
IDAsInteger
NameAsString*20
EndType

'如果以随机方式打开文件,Seek返回下一个记录的编号。
DimMyRecordAsRecord'声明变量。
Open"TESTFILE"ForRandomAs#1Len=Len(MyRecord)
DoWhileNotEOF(1)'循环至文件尾。
Get#1,,MyRecord'读入下一个记录。
Debug.PrintSeek(1)'在立即窗口中显示记录号。
Loop
Close#1'关闭文件。

'如果不以Random方式打开文件,则Seek返回下一个操作会发生的位置。假设
TESTFILE文件内含有文本数据。
DimMyChar
Open"TESTFILE"ForInputAs#1'打开输入文件。
DoWhileNotEOF(1)'循环至文件尾。
MyChar=Input(1,#1)'读入下一个字符。
Debug.PrintSeek(1)'将下一字符的位置显示在立即窗口。
Loop
Close#1'关闭文件。

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

Loc 函数示例

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

DimMyLocation,MyLine
Open"TESTFILE"ForBinaryAs#1'打开刚创建的文件。
DoWhileMyLocation<LOF(1)'循环至文件尾。
MyLine=MyLine&Input(1,#1)'读入一个字符到变量中。
MyLocation=Loc(1)'取得当前位置。
'在立即窗口中显示。
Debug.PrintMyLine:Tab:MyLocation
Loop
Close#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"ForBinaryAsfilenum1
TextLine=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

阅读全文

与输入超出文件尾什么意思相关的资料

热点内容
沐风之女k8在线 浏览:220
大团结闪闪txt 浏览:720
好看更新快的网站 浏览:78
电脑里的文件怎么保存不了怎么办 浏览:602
2021最新电影电视剧网站 浏览:424
小米手机私密文件密码忘了怎么办 浏览:164
画江湖之不良人黑白无常双修删减 浏览:201
本人珍藏版精选小说后宫 浏览:174
工藤瞳经典三部 浏览:798
网络安全病毒 浏览:84
原昆山昆广网络技术有限公司 浏览:210
永恒185分钟未删减版bt泰国 浏览:27
粤语电影粤视频网站 浏览:538
男主十几岁回到老家,外婆 浏览:200
数控编程中代码大全 浏览:185
日本国产爱情片。 浏览:536
双胞胎妍伊韩国电影 浏览:1000
怎么利用网络找人 浏览:639
重生之红军崛起 浏览:851
如何网络制码 浏览:626

友情链接