99问答网
所有问题
VB 输入超出文件尾 在form里加了一个text 就出现这个
如题所述
举报该问题
推荐答案 推荐于2016-06-20
你是一次读入两个变量(SZ和BZ)的,但是如果文件中的数据总数是单数,那么读取到最后的时候就会出现只有一个变量能读取到数据,另一个变量再读取时就已经超出文件尾了,所以就提示“输入超出文件尾”。
所以如果要一次读取多个数据,一定要确保文件中的数据个数是读取个数的倍数(比如一次读3个,则文件中的数据个数必须是3、6、9.....个)。如果无法确保,则最好采用一次读取一个的方式。
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://99.wendadaohang.com/zd/z7jtzBzvBXjjv77jve.html
其他回答
第1个回答 2014-10-24
do until eof(1)
改成
do while not eof(1)
第2个回答 2014-10-24
do until eof(1)
改成
do while not eof(1)
相似回答
vb
运行时错误 '62'
输入超过文件尾
答:
1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体
Form1
的caption属性改为“VB6.0自定义函数”。2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择通用。3、在通用段输入代码,并将Form_Load事件删除。4、双击“调用函数”命令按钮,进入代码编辑...
vb输入超出文件尾
答:
VB输入超出文件尾是指你想读取超出文件结尾之后的部分,当然不可能,这个是由于VB 内部采用Unicode方式问题
,你所读取的文件中可能含有中文(全角字符)和英文(半角字符)导致,甚至是空的文件。解决的方法 1.用二进制打开,用GET方法读入 Open "d:\test1.txt" For Binary As filenum1 TextLine = S...
VB输入超出文件尾
是什么意思?为什么?
答:
1. 我曾经遇到过在文件操作过程中出现VB输入超出文件尾的情况。2. 另一种可能是,
在打开文件时使用了错误的字符编码格式
,这也会导致指针出现问题。3. 可以将TristateUseDefault更改为TristateTrue,以Unicode格式打开文件。4. 或者将TristateUseDefault更改为TristateFalse,以ASCII格式打开文件。
VB
程序运行时
出现输入超出文件尾
是什么原因。请高手帮我改一下程序...
答:
1、C:\成绩.txt中可能有空行,删除空行试试。2、C:\成绩.txt中的数据个数与程序中变量个数不能一对应。Input #1, no, name, yy(i), sx(i), wl(i)一次读四个变量,
文件
中的数据个数要是4的整倍数。
VB
显示
输入超出文件尾
答:
Open
Text
2.Text For binary As #2 s=split(input(lof(1),#1),vbcrlf)close #2 for i=0 to ubound(s)if s(i)<>"" then s1=split(s(i),",")if ubound(s1)=5 then sjk = "insert into kzd values ('" & Trim(s1(0)) & "','" & Trim(s1(1)) & "','" & Trim(s1...
VB
提示 实时错误‘62’
输入超出文件尾
怎么解决
答:
Open App.Path & "\in.txt" For Input As #1 Do While Not EOF(1)a=a+1 redim i(a) as pinfo Input #1, i(a)Loop close #1 加个判断Not EOF(1),判断是不是到了
文件
的尾部 看看是不是你要的。
VB
输入超出文件尾
,,求正解
答:
do while not eof(1)line input #1,L
text1
.text =text1.text & L loop
vb
程序提示“
输入超出文件尾
”
答:
Option Base 1 Private Sub C1_Click()Dim a(100) As Integer Dim s As Integer s = 0 Open App.Path & "\" & "in.txt" For Input As #1 For i = 1 To 100 Input #1, a(i)If EOF(1) Then Exit For
Text1
.Text = Text1.Text & " " & a(i)If a(i) <= 700 Then s...
VB
提示 实时错误‘62’
输入超出文件尾
怎么解决
答:
Dim i As Integer Dim s As String Open App.Path & "\123.txt" For Input As #1 For i = 1 To Val(
Text
2.Text)If Not EOF(1) Then Line Input #1, s Next i Text3.Text = s Close #1 MsgBox "数据已读取完毕"
大家正在搜
exe输入超出文件尾
输入超出文件尾是什么意思
输入超出文件尾怎么解决
vb输入超出文件尾
超出文件尾
vb超出文件尾
超入文件尾
床尾超出门一点点
里加在哪里