vb读取txt文件的一个疑惑
文件text.txt中:9972 9981 997210008
上面的是4组数据,分别是02 08 14 20时的气压值,我想把它们放到数组P(4)中,用vb应该怎么处理?
主要问题出现在后面2个数据上,997210008,实际上是2个数据,怎么把它分开读取出来
dim str1 as string
dim p(1 to 4) as long
dim i as long
str1="9972 9981 997210008"
str1=replace(str1," ","")
do
if len(str1)>=5 then
i=i+1
p(i)=left(str1,5)
str1=right(str1,len(str1)-5)
else
exit do
endif
loop
'每五个数字一组 如果不到五则不记录