gz.10086.cn.b2b:vb 文本文件数据赋值给二维数组

来源：百度文库编辑：中财网时间：2024/05/11 00:38:25

Private Sub Command1_Click()
Dim aa(), bb(), a, b, n As Integer, i As Integer, fname As String
fname = "d:\1.txt"                       '文件名，可自行更改
'获得文本文件的行数，实际行数为n+1
Open fname For Binary As #1
a = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
b = Split(a, vbCrLf)
n = UBound(b)
ReDim aa(n, 1),bb(n, 1)             '将动态数组定义为二维数组
   '开始从文件中读取数据，赋值给二维数组aa和bb
i = 0
Open fname For Input As #1
Do While Not EOF(1)
         Input #1, aa(i, 0), aa(i, 1)
         bb(i, 0)=aa(i, 0)
         bb(i, 1)=aa(i, 1)
         i = i + 1
Loop
Close #1
    '打印读出的二维数组
   Cls
   For j = 0 To i - 1
          Print aa(j, 0), aa(j, 1)
   Next
End Sub

在C中怎么给二维数组赋值如何给VB多维数组一次性赋值？二维数组排序赋值问题 vb多维数组赋值二维字符串数组赋值的问题在VB.NET中怎么给数组其中一个赋值字符串给数组赋值请问用怎样用VB编写一个程序，能从文本文件中读取数据到数组中一道VB二维数组排序题在数据库中如何将一个表的字段做为变量给数组赋值,用VB 在数据库中如何将一个表的字段做为变量给数组赋值,用VB 在数据库中如何将一个表的字段做为变量给数组赋值,用VB 怎样把从键盘输入(java)的一组数据赋值给一个数组呢?高手来帮个帮吧. java键盘输入数字赋值给数组 c++里怎么给数组元素赋值初学者,指针给数组赋值问题 vb里的动态数组赋值的问题用VB编程时怎样用二维数组做函数参数? vb的二维数组如何添值如何得到值 VB中怎样重定义二维数组啊? delphi如何读取网络文本文件赋值给label？ VB中怎么能把文本文件读到数组中。我想把变量赋值给一个数组，怎么办？？ vc构造函数中如何给一个数组赋值