Dim rootlist() As String
成都创新互联的客户来自各行各业,为了共同目标,我们在工作上密切配合,从创业型小企业到企事业单位,感谢他们对我们的要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括成都网站设计、成都网站建设、外贸网站建设、电商网站开发、微信营销、系统平台开发。
Dim data(0, 0) As String
Dim tmp() As String
Dim listLengh As Int32
Dim I As Integer, II As Integer
rootlist = Split(IO.File.OpenText("C:/001.txt").ReadToEnd, vbCrLf)
listLengh = UBound(rootlist)
ReDim data(listLengh, 0)
For I = 0 To listLengh
tmp = Split(rootlist(I), ",")
ReDim Preserve data(listLengh, UBound(tmp))
For II = 0 To UBound(tmp)
data(I, II) = tmp(II)
Next
Next
For I = 0 To 2
For II = 0 To 2
MsgBox(data(I, II))
Next
Next
将二位数组转成DataTable,网上找的不知道成不成
public static DataTable ConvertToDataTable(string[,] arr)
{
DataTable dataSouce = new DataTable();
for (int i = 0; i arr.GetLength(1); i++)
{
DataColumn newColumn = new DataColumn(i.ToString(), arr[0, 0].GetType());
dataSouce.Columns.Add(newColumn);
}
for (int i = 0; i arr.GetLength(0); i++)
{
DataRow newRow = dataSouce.NewRow();
for (int j = 0; j arr.GetLength(1); j++)
{
newRow[j.ToString()] = arr[i, j];
}
dataSouce.Rows.Add(newRow);
}
return dataSouce;
}
根据你的语句,上下标是确定的,所以定义语句修改为:
Dim ary(UBound(temp), 1) As String '声明二维数组
可以把简单的思路跟你说一下
datatable转成arraylist的话
首先得明确你的datatable中有几列数据。如果按照通常的类似数据库数据的结构的数据的话,应该是要把datatable转成一个二维的arraylist。(如果是只有一列的datatable就可以省一步)
先实例化装最后结果的arraylist(arr1),接着实例化一个datarow(dt1),
把datatable里的每一行的数据
赋值到datatrow(dt1)中,之后创建一个arraylist(arr2),把datarow(dt1)中的数据遍历到这个arraylist(arr2)中,之后把arraylist(arr2)做为一个元素add进arraylist(arr1),也就是形成一个二维的arraylist。
arraylist转成datatable的话
同样是以二维arraylist为例,先遍历第一层arraylist,实例化一个datarow(dt1),之后遍历第二层arraylist,把第二层的数据赋值到dt1中,之后
把dt1添加到datatable中,即可。
只是说了一个大概的思路,希望对你有帮助!