UC知道vb读取文本中的3列数，并赋值给3个变量，执行完毕一段程序后再读下一行数据
来源：百度知道 编辑：UC知道 时间：2024/05/22 15:03:24
一个文本有100行，3列。我要一行一行读取文本中的数字
并把每行的3个数字赋值给不同的变量，请问动态数组怎么设阿？？
不会使用。谢谢
Private Sub Command1_Click()
Dim rst1 As New ADODB.Recordset
Dim sql2 As String
Dim sql1 As String
Dim s$
Dim p$
Dim r$
Dim d$
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
Dim strFileName1 As String '文件名
Dim lngHandle1 As Long '文件句柄
Dim strAll1 As String '所读取的文本文件的所有内容
Dim strLine1 As String '在循环中存放每行的内容
strFileName1 = "c:\b.txt"
'获得文件的句柄
lngHandle1 = FreeFile()
Open strFileName1 For Input As lngHandle1
'循环直到文件尾
Do While Not EOF(lngHandle1)
'每次读取一行存放在strLine变量中
Line Input #lngHandle1, strLine1
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
strAll1 = strLine1 & vbCrLf
Text1.Text = strAll1
On Error Resume Next
s = Text1.Text
p = Text2.Text
r = Text
并把每行的3个数字赋值给不同的变量，请问动态数组怎么设阿？？
不会使用。谢谢
Private Sub Command1_Click()
Dim rst1 As New ADODB.Recordset
Dim sql2 As String
Dim sql1 As String
Dim s$
Dim p$
Dim r$
Dim d$
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
Dim strFileName1 As String '文件名
Dim lngHandle1 As Long '文件句柄
Dim strAll1 As String '所读取的文本文件的所有内容
Dim strLine1 As String '在循环中存放每行的内容
strFileName1 = "c:\b.txt"
'获得文件的句柄
lngHandle1 = FreeFile()
Open strFileName1 For Input As lngHandle1
'循环直到文件尾
Do While Not EOF(lngHandle1)
'每次读取一行存放在strLine变量中
Line Input #lngHandle1, strLine1
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
strAll1 = strLine1 & vbCrLf
Text1.Text = strAll1
On Error Resume Next
s = Text1.Text
p = Text2.Text
r = Text
按你补充的要求作的：读的内容到了s p r变量里
Private Sub Command1_Click()
Open App.Path + "\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
arr = Split(strLine, " ")
If UBound(arr) > 2 Then
s = arr(0)
p = arr(1)
r = arr(2)
End If
Print s, p, r
Loop
Close #1
End Sub
我看也是，一个do loop里写了那么一大堆东西，得用铁打的电脑才行啊
楼主还是把你想做的事写清楚吧
现在有一个txt，里面是100行*3列的数据，你就说你想把这些数据怎么办吧
记得把列的分隔符是什么说清楚，是逗号还是空格还是制表符(tab)还是什么的
哎对了，你列也定了行也定了，还要动态数组干嘛，一个二维数组不就完了