如果是单行的话
Open "c:\1.txt" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1
Dim a
a = Split(Text1.Text)
虞明明
的代码也可以改为VB的
set fso = createobject("scripting.filesystemobject")
set ts = fso.opentextfile("c:\data.txt",1,true)
Text1.Text= ts.readAll
dim a
a= split(Text1.Text)追问
我可能是学的比较少的过。。input的函数，input （lof（1），1）是什么意思？
还有 我觉的你写的程序是把text全部放到a里了，我的意思是，数据有好多，比如，34 39 52 12 54.。。等等 只是用空格隔开的好多数字，然后分别放到a(0) a(1)a(2)/......中去。。。用input函数能够实现么？
1是“As #1”中的1，是个编号，表示这个文件的代号
a= split(Text1.Text)就是分别放到a(0) a(1)a(2)/......中
不用split可以么。。。因为这个我没有学过，input能实现么
set ts = fso.opentextfile("data.txt",1,true)
dim datas
datas = ts.readAll
dim text
text = split(datas, ' ')
这样数据就放到数据text中了追问
这个是vb的代码么。。。。。为什么我感觉不是呢。。。
追答不好意思，看错了，这是vbs的代码，用的是基于vb的语法
VB编程如何将*.txt文件中的数据读入到数组?
openfile = s End Function 如果是按一行一行读取进数组 你可以用 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...
VB2008 从txt读取数据 到数组
Dim x(4, 12) As double FileOpen(<txt文件>, 1)For n = 0 to 41 Dim Temp As String Temp = Trim(LineInput(1))Dim y As Integer y = Instr(Temp, " ") - 1 Dim z As Integer z = Len(Temp) - y - 1 x(n, 1) = Val(Left(Temp, y)Dim Temp2 As String Temp2 = ...
vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答：留个Q我传你个代码
vb 中怎么将数据文件读入到数组中
其实可以用split语句实现 如数据粘贴在c:\\1.txt中 dim ins$,i%,data_ins(1000) as single ,temp_data() as single,new_data(1000,1000)为了保证读取全，定义大数组。也可前面先读一次获取行列数，然后按照读取的行列数定义数组（这里略掉）open "c:\\1.txt" for input as #1 do until eof...
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将读入的文件存入数组,急!!!
Dim I As Integer I = 0 '将数据放在D:\\Test.txt中，打开文本文件 Open "D:\\Test.txt" For Input As #1 Do While Not EOF(1)ReDim dm(I), x(I), y(I)Input #1, dm(I), x(I), y(I)'输出数组内容 Picture1.Print dm(I); x(I); y(I)I = I + 1 Loop Close #1 ...
如何把TXT中的数据(一维数组)插入VB中
", vbCriticalEnd Sub 此外，对于读取TXT文件中的二维数据，可以按照以下方法操作：使用`Dim`声明二维数组`arrS`，并使用`Open`语句打开文件。在`Do While`循环中，使用`Line Input`读取一行数据，然后使用`Split`函数将读取的字符串拆分为数组。最后，将数组元素赋值给相应的二维数组元素。这里是一个...
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中如何提取一TXT文档中的数据,并将数据放在数组中。
[ddd.txt]---数据文件名 ColNameHeader=False---无字段名 Format=TabDelimited---使用tab为分隔符 '以下为vb代码：Dim Cnn As ADODB.Connection Dim Rst As ADODB.Recordset Dim SqlStr As String Dim i As Integer Set Cnn = New ADODB.Connection Set Rst = New ADODB.Recordset ‘ado的文本...
