读书人

VB读文本文件中的数据到一二维数组中的

发布时间: 2012-01-13 22:43:30 作者: rapoo

VB读文本文件中的数据到一二维数组中的问题!急!谢谢了各位!
想把一个不知道行数只知道列数文本文件中的数据读到一个二维数组中
例文本文件中数据为
123 23 56 78 89 53
23 563 85 59 69 63
25 69 85 63 36 69
每一行的数据格式一样,但是列与列之间间隔的空格数未知并且不一样,
怎么把他们读到一个二维数组中呢,能提供一下详细代码吗
谢谢了




[解决办法]
每一行的数据格式一样,但是列与列之间间隔的空格数未知并且不一样,
================================================================
这个可以读出数据来以后先处理一下,整理成空格数为一个
Private Sub Command1_Click()
Dim s As String
s = "123 23 56 78 89 53 "
s = fun(s)
Print s
End Sub

Private Function fun(ByVal s As String) As String
Do While (InStr(s, " ") <> 0)
s = Replace(s, " ", " ")
Loop
fun = s
End Function

读书人网 >VB

热点推荐