利用vb读取文本中每一行的内容

我在C盘根目录有一个文本文件SAM.txt,行数未知,内容如:12334343sdgf435334545566现在要求定义一个数组,用于保存每一行的内容,如定义num()... 我在C盘根目录有一个文本文件SAM.txt,行数未知,内容如:
12334
343
sdgf
4353
345
45566
现在要求定义一个数组,用于保存每一行的内容,如定义num(),则num(0)= 12234,num(1) =343,num(2) =sdgf。。。。。。。。
谢谢高手指教!!
展开
 我来答
mosesmoses0651
2010-06-14 · TA获得超过2717个赞
知道小有建树答主
回答量:824
采纳率:0%
帮助的人:645万
展开全部
dim num()
dim i as long
i=0
ReDim ri(0)
Open "C:\SAM.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) '循环至文件尾。
Line Input #1, TextLine '读入一行数据并将其赋予某变量。
num(i)=TextLine
i=i+1
ReDim Preserve ri(i)
Loop
Close #1 ' 关闭文件。

注意的是数组长度一般无限制,但是超过内存大小就会提示内存溢出,这个要注意
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
4xguys
2010-06-14 · TA获得超过241个赞
知道小有建树答主
回答量:423
采纳率:0%
帮助的人:0
展开全部
Open "C:\SAM.txt" For Input As #1
Do While Not EOF(1)
Line Input #1,strL
if strA="" then strA=strL else strA=strA & vbcrlf & strL
Loop
Close #1
num=split(strA,vbcrlf)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式