vb如何把txt文档中的数读入到数组，文档中是每行有三个数，用逗号隔开
vb如何把txt文档中的数读入到数组，文档中是每行有三个数，用逗号隔开，一共10行，第一列为序号，第二三列为x,y坐标，最好能定义二维数组，第一个下标为序号，第二个下标为1表示x值，2表示y值，谢谢各位！
如果不能用二维数组，用三个一维属于也行
序号的范围是1到10吗？
Private Sub Command1_Click()Dim x(1 To 10, 1 To 2) As Long
Dim n1 As Integer, n2 As Long, n3 As Long
Open "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, 2) = n3
End If
Loop
Close #1
For n1 = 1 To 10 '这是输出数组的例子
Print x(n1, 1), x(n1, 2)
Next
End Sub
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中的数组
varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些变量不可能是一个数组或对象变量。但是，可以使用变量描述数组元素或用户定义类型的元素。注意 为了能够用 Input # 语句将文件的数据正确读入到变量中，在将数据写入文件时，要使用 Write # 语句而不使用 Print # 语句。使用...
VB编程如何将*.txt文件中的数据读入到数组?
End Function 如果是按一行一行读取进数组 你可以用 dim a a = split(openfile(App.Path & "\\1.txt"),vbcrlf)按列同样是设一个临时数组 每行按空格或者分隔符拆分后 以对应数组索引位置 写入新数组
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怎么读TXT文件行数和列数!
Dim v Open "" & App.Path & "\\1.txt" For Input As #1 Do While Not EOF(1)Line Input #1, temp x = x + 1 If x = 2 Then v = Split(temp, " ")For i = 0 To UBound(v)Text2(i).Text = v(i)Next End If Loop Close #1 ' MsgBox CStr(x) + "行"End Su...
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文档中的数据,并将数据放在数组中。
[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的文本...
如何用VB将txt文件中的数据取出放入一个数组
Private Sub Form_Load()Dim B As String, I As Integer, J As Integer, X As Integer, K(100) As Boolean Dim B1 As String, Uz() As Integer Form1.AutoRedraw = True For I = 0 To 100 K(I) = False Next Open "f:\\a.txt" For Input As #1 Do While Not EOF(1)Line ...
...中数字与空格,逗号等如何区分?比如我只要数字,并给变量赋值,不区分...
代码如下：Private Sub Command1_Click()Dim CheckStr As String Dim StrA() As Double '定义数组用于保存数字 Dim TempStr As String Dim NumStr As String Dim i, j As Integer CheckStr = Trim(Text1.Text)i = 1 j = 1 NumStr = ""Do While i <= Len(CheckStr)TempStr = Mid(Che...
