请大家帮忙看看:怎么把txt固定格式文件转为数组
请大家帮忙看看:如何把txt固定格式文件转为数组?
我想编写一个彩票分析软件,刚开始就遇到一个问题,比如一个存放彩票数据的txt文件,内容为:
2007001 03 05 08 09 10 25 26
2007002 09 10 15 18 26 29 33
2007003 12 15 17 22 29 30 31
........
........
2007110 10 17 19 20 28 33 35
彩票的期号是用户自己添加的,是未知的,彩票的类型也是未知,有可能选6,也有可能选7,我想把这个文件打开,然后划分为数组进行运算。我买了不少书,也看了system.io的文件处理,但是还是弄不出来,请问各位朋友有没有好办法呢?
------解决方案--------------------
Try
Using sr As StreamReader = New StreamReader( "文本文件.txt ")
Dim line As String
Do
dim line() as string = split(sr.ReadLine(), " ")
Console.WriteLine(Line(lbound(line)) & ": ")
for i=lbound(line)+1 to ubound(line)
Console.WriteLine(Line(i))
next
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
Console.WriteLine(E.Message)
End Try
------解决方案--------------------
可以先一行一行的读取
然后再将一行的数据用 string.split() 函数分隔
我想编写一个彩票分析软件,刚开始就遇到一个问题,比如一个存放彩票数据的txt文件,内容为:
2007001 03 05 08 09 10 25 26
2007002 09 10 15 18 26 29 33
2007003 12 15 17 22 29 30 31
........
........
2007110 10 17 19 20 28 33 35
彩票的期号是用户自己添加的,是未知的,彩票的类型也是未知,有可能选6,也有可能选7,我想把这个文件打开,然后划分为数组进行运算。我买了不少书,也看了system.io的文件处理,但是还是弄不出来,请问各位朋友有没有好办法呢?
------解决方案--------------------
Try
Using sr As StreamReader = New StreamReader( "文本文件.txt ")
Dim line As String
Do
dim line() as string = split(sr.ReadLine(), " ")
Console.WriteLine(Line(lbound(line)) & ": ")
for i=lbound(line)+1 to ubound(line)
Console.WriteLine(Line(i))
next
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
Console.WriteLine(E.Message)
End Try
------解决方案--------------------
可以先一行一行的读取
然后再将一行的数据用 string.split() 函数分隔