Private Sub RunScript(ByVal x As List(Of String), ByVal y As Integer, ByRef A As Object)
'your code goes here…
Dim dblist As New List(Of List(Of Double))
For i As int32=0 To x.Count - 1
Dim list As New list(Of Double)
Dim str As String = x(i)
Dim arrstr() As String
arrstr = str.Split(" ")
For j As int32=0 To ubound(arrstr)
list.add(convert.ToDouble(arrstr(j)))
Next
dblist.Add(list)
Next
a = dblist(y - 1)
End Sub作者: panhao1 时间: 2010-4-9 14:22
虽然山寨 但是在各种条件下使用都不会有bug 因为是通过字符串导出的
gh在强制转换中会吧空位默认补成0