输出超出文本尾(代码)
Open App.Path & "\2.txt" For Input As #1Do While Not EOF(1)
k = Input(44, #1)
i = i + 1
Load Lbl1(i)
With Lbl1(i)
.Left = 120
.Top = 735 * (i - 1) + 60 * i
.Visible = True
.Caption = RTrim(k)
End With
Load Txt1(i)
With Txt1(i)
.Left = 60
.Top = Lbl1(i).Top + Lbl1(i).Height + 165
.Visible = True
.Text = ""
End With
Loop
Close #1
End Sub
我用line.input #1,k
的时候没有错误
显示 “输出超出文本尾” 错误,
红色那句话 是错误地方,
请高手们,,指教指教
--------------------编程问答-------------------- 没人阿...等好久了阿 --------------------编程问答-------------------- 每次取44个字符,最后已没有44个字符了,你还要取44个字符,结果就是“输出超出文本尾” --------------------编程问答-------------------- 关注 --------------------编程问答-------------------- 最后一次input的时候,不够44个字符呗。。
--------------------编程问答-------------------- 那要怎么办 - - --------------------编程问答-------------------- 有 安静了啊 --------------------编程问答-------------------- 每次循环里再加一个循环,一个一个字符读取 --------------------编程问答--------------------
Private Sub Form_Load()--------------------编程问答-------------------- 谢谢 --------------------编程问答-------------------- 那个, 8楼的兄台
Open App.Path & "\2.txt" For Input As #1
Do While Not EOF(1)
L = LOF(1)
S = L Mod 44
S1 = Int(L / 44)
If I < S1 Then
X = 44
Else
X = S
End If
k = Input(X, #1)
I = I + 1
Load Lbl1(I)
With Lbl1(I)
.Left = 120
.Top = 735 * (I - 1) + 60 * I
.Visible = True
.Caption = RTrim(k)
End With
Load Txt1(I)
With Txt1(I)
.Left = 60
.Top = Lbl1(I).Top + Lbl1(I).Height + 165
.Visible = True
.Text = ""
End With
Loop
Close #1
End Sub
lof函数 返回一个 以 字节为单位.的值
而 我的 44 是 字符的个数为单位的.
谢谢你了 --------------------编程问答--------------------
补充:VB , 基础类