VB.NET读取固定格式TXT文件数据为二维数组的方法

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

如何在VB.NET中将二维数组赋值给listview控件啊，谢谢

将二位数组转成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;

}

VB.NET 二维数组问题

根据你的语句，上下标是确定的，所以定义语句修改为：

Dim ary(UBound(temp), 1) As String '声明二维数组

vb.net中datatable和arraylist间怎么相互转换?

可以把简单的思路跟你说一下

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中，即可。

只是说了一个大概的思路，希望对你有帮助!

当前文章：vb.net二维list vb list
URL地址：http://kswsj.cn/article/dosipjh.html