一个读文本文件的程序,不知哪里有问题,总是循环,帮忙看一下

triper 2005-09-25 09:29:52
模块中:
Dim Wenjian As String
Dim shujv As String
Dim Danshu() As String
Dim Bochang As String
Dim Bochangshu As Double
Dim xxx() As String
Dim x() As String
Dim xx1 As String
Dim NUM As Number1
Type Number1
Number As String * 49
End Type

窗体中:
Private Sub Form_paint()

Wenjian = "c:\data.txt"

'随机文件打开读取第一个数据
Open Wenjian For Random As #1 Len = 98
Get #1, 1, NUM
x = Split(NUM.Number, vbTab)
xx1 = x(UBound(x) - 2)
'MsgBox xx1
xx = CDbl(xx1)
Close #1

'顺序文件打开读取数据
Open Wenjian For Input As 1
Do While Not EOF(1)
Line Input #1, shujv
Loop
Close #1
xxx = Split(shujv, vbTab)
Bochang = xxx(UBound(xxx) - 2)
Bochangshu = CDbl(Bochang)

Label4.Caption = Bochang
Label5.Caption = Left(Str((Bochangshu - xx) * 1000 / 10.9), 5) & "℃"
Label9.Caption = Time
end sub

感觉应该是在读文本文件的那部分,达人们帮忙看看,谢先,呵呵
...全文
156 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2005-09-25
  • 打赏
  • 举报
回复
'顺序文件打开读取数据
Open Wenjian For Input As 1
Do While Not EOF(1)
Line Input #1, shujv
Loop
Close #1
xxx = Split(shujv, vbTab)'----->只读最后一条数据。如果想动态显示,可以写在TIMER事件中。
Bochang = xxx(UBound(xxx) - 2)
Bochangshu = CDbl(Bochang)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧