一个简单的小问题。但很急。。。。。。

vikingleo 2003-10-15 10:31:05

Open ExcelPath For Input As #1打开了一个文件，不知道后缀名，可以用记事本打开有多行记录，但是用上面的方法确只能读一行就退出循环了。我用的是 do while not eof(1) 但现在用Binary该怎么样遍历所有行呢？也就是说用Open ExcelPath For Binary As #1怎样可以循环读取该文件每一行的数据呢？
原来的代码：
Open ExcelPath For Binary As #1
Do While Not EOF(1)
Line Input #1, StrName
Buf() = Split(StrName, "|")
MyRes.AddNew
MyRes.Fields("电话号码").Value = Trim(Buf(5))
MyRes.Fields("传真号码").Value = Trim(Buf(6))MyRes.Update

Loop
Close #1
MyRes.Close

...全文

25 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

vikingleo 2003-11-03

打赏
举报

TO :luzufu(rich)
为什么我用你的方法，结果读文件第一行的时候STRNAME是为空的呀！
文件记录形式为：
23423423423|4234234534534|345345345345|3453453453453|45345345|
34234234234|53453453453|54345345|345345345|435345|
这样的，用Get #1, , StrName 是不是读取一行？但读取之后StrName 是为空？为什么

luzufu 2003-10-22

打赏
举报

你改为下面的，我测过了，没问题
Open ExcelPath For Binary As #1
Do until EOF(1)
Get #1, , StrName
Buf() = Split(StrName, "|")
MyRes.AddNew
MyRes.Fields("电话号码").Value = Trim(Buf(5))
MyRes.Fields("传真号码").Value = Trim(Buf(6))
MyRes.Update

Loop
Close #1
MyRes.Close