用split函数
dim a()
得到的是文本,如果想得到数字就a(1) = val(a(1))'把a(1)的值强制转化成数字赋值给a(1),全部转换自己弄个循环搞定
大概就这样,你自己试试吧
for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
双重循环,赋值和读取一样
每行的数字个数不同,你说的这是不规则数组,解决方案如下:
Dim b As String = ""
For i As Integer = 0 To a.GetUpperBound(0)
b = "第" i + 1 "行有" a(i).GetUpperBound(0) + 1 "个数" vbCrLf
Next
MessageBox.Show(b)
OPCItemIDsData(j,其中一维)即可.
如果前面方法有规定,不能用二维数组的格式,那么你可以自己定义一个一维数组,将二维数组的某一维度的全部数值赋值给这个数组,在引用这个数组:
dim OPCItemIDsDataBuf(x) as ...
for i = 1 to x
OPCItemIDsDataBuf(j)=OPCItemIDsData(j,其中一维)
next i
其中x是数组的最大下标
根据你的语句,上下标是确定的,所以定义语句修改为:
Dim ary(UBound(temp), 1) As String '声明二维数组
以上就是土嘎嘎小编为大家整理的vb.net遍历二维数组相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!