| 发表于:2007-02-01 13:36:451楼 得分:40 |
巧了,正好在做一个读文本的程序 public sub readintros(strdbf as string) '拆分记录 dim filenumber as integer dim inbuf as string filenumber = freefile i = 1 open strdbf for input as filenumber do while not eof(filenumber) line input #filenumber, inbuf byout(i) = inbuf i = i + 1 loop close #filenumber end sub 第i行,就是byout(i) | | |
|