vb如何读取txt中的数组

麻烦您能给具体的代码么?

这取决于txt文件的数据结构


    Input # 语句

从已打开的顺序文件中读出数据并将数据指定给变量。

    语法

Input #filenumber, varlist

Input # 语句的语法具有以下几个部分:

部分                描述    

filenumber         必要。任何有效的文件号。    

varlist                 必要。用逗号分界的变量列表,将文件中读出的值分配给这些变量;这些变量不可能是一个数组或对象变量。但是,可以使用变量描述数组元素或用户定义类型的元素。    


注意 为了能够用 Input #
语句将文件的数据正确读入到变量中,在将数据写入文件时,要使用 Write # 语句而不使用
Print # 语句。使用 Write # 语句可以确保将各个单独的数据域正确分隔开。


Input # 语句示例

本示例使用 Input # 语句将文件内的数据读入两个变量中。本示例假设
TESTFILE文件内含数行以 Write #
语句写入的数据;也就是说,每一行数据中的字符串部分都是用双引号括起来,而与数字用逗号隔开,例如,("Hello", 234)。

Dim MyString, MyNumber
Open "TESTFILE" For Input As #1   ' 打开输入文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Input #1, MyString, MyNumber   ' 将数据读入两个变量。
   Debug.Print MyString, MyNumber   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。

温馨提示:内容为网友见解,仅供参考
无其他回答

如何把TXT中的数据(一维数组)插入VB中
此外,对于读取TXT文件中的二维数据,可以按照以下方法操作:使用`Dim`声明二维数组`arrS`,并使用`Open`语句打开文件。在`Do While`循环中,使用`Line Input`读取一行数据,然后使用`Split`函数将读取的字符串拆分为数组。最后,将数组元素赋值给相应的二维数组元素。这里是一个示例代码:vbPrivate Sub ...

vb如何读取txt中的数组
Dim MyString, MyNumberOpen "TESTFILE" For Input As #1 ' 打开输入文件。Do While Not EOF(1) ' 循环至文件尾。 Input #1, MyString, MyNumber ' 将数据读入两个变量。 Debug.Print MyString, MyNumber ' 在立即窗口中显示数据。LoopClose #1 ' 关闭文件。

VB编程如何将*.txt文件中的数据读入到数组?
如果是按一行一行读取进数组 你可以用 dim a a = split(openfile(App.Path & "\\1.txt"),vbcrlf)按列同样是设一个临时数组 每行按空格或者分隔符拆分后 以对应数组索引位置 写入新数组

vb如何把txt文档中的数读入到数组,文档中是每行有三个数,用逗号隔开...
Private Sub Command1_Click()Dim x(1 To 10, 1 To 2) As LongDim n1 As Integer, n2 As Long, n3 As LongOpen "d:\\tmp\\123.txt" For Input As #1 '文件名自己改Do Until EOF(1) Input #1, n1, n2, n3 If n1 > 0 And n1 < 11 Then x(n1, 1) = n2 x(n1...

vb如何读取txt某一列
你可以用VB先把TXT先读取到数组里 Dim arr As LongPrivate Sub Command1_Click() Dim i As Long Open "c:\\123.txt" For Input As #1 '读取c:\\123.txt arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine) Close #1 For i = 0 To UBound(arr) Print...

VB.NET中 怎么读入TXT文本的数字到一个数组。。
Open "c:\\temp.txt" For Input As #1'打开txt文件 aa = StrConv(InputB(LOF(1), 1), vbUnicode)'将文本读入aa中 Close #1'关闭文件 End Sub Private Sub Command1_Click()s = Split(aa, vbNewLine)'将文本分离出来并放入数组s中 For i = 0 To UBound(s)'i从0到S的最大元素数循环 ...

怎么用vb将txt文件中的数据读取进二维数组,进行计算。
Private Sub Command1_Click() Dim i As Integer, i1 As Integer, i2 As Integer, i3 As Integer, s1(4) As String Dim X() As Integer Dim Y() As Integer Dim D() As Integer Dim a() As Integer fname = "D:\\TestData正算数据.txt" '指定要读取的文件名 i = 0 i1 =...

vb如何读取txt文件并写入数组中?
Dim a(),k open"txt的路径"for input as #1 do until eof(#1) redim a(k) input #1,a(k) k=k+1 loop

vb 从文件读取数据到数组
我的data.txt中有25个用“,”分隔的数,要读入到二维数组mat中,下面是代码:Const N = 5 Const M = 5 Dim temp, mat(1 To 5, 1 To 5)Dim i, j Open "data.txt" For Input As #1 For i = 1 To N For j = 1 To M Input #1, temp \/data.txt中的数应该是字串型的,mat(...

求高手帮忙啊:vb 中如何从txt文件中将数据读取出来并赋值给二维...
假设点击命令按钮Command1就将e:\\aa.txt读入p(i,j)中,Command1的代码如下(你照复制就是):Private Sub Command1_Click()Dim StrLine As String, a() As String, p(11, 5) As String, i As Long, j As Long Open "e:\\aa.txt" For Input As #1 For j = 0 To 5 Do Until EOF...

相似回答