VB怎么读TXT文件行数和列数！
咧如：10 20 30 11 22 33 77 88 99 TXT文件放在：E:\a.txt单击第一个命令按钮：第一行的全部放到Text1.text , Text2.text , Text3.text单击第二个命令按钮：第二行的全部放到Text4.text , Text5.text , Text6.text求高手给源代码，和详细说明。万分感谢！！！
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 = 1 Then
v = Split(temp, " ")
For i = 0 To UBound(v)
Text1(i).Text = v(i)
Next
End If
Loop
Close #1
' MsgBox CStr(x) + "è¡"
End SubPrivate Sub Command2_Click() '第äºè¡
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 Sub
Private Sub Command1_Click()For j = 0 To 2
Text1(j).Text = a(j)
Next j
End SubPrivate Sub Command2_Click()
For j = 3 To 5
Text1(j).Text = a(j)
Next j
End SubPrivate Sub Form_Load()Open "E:\a.txt" For Input As #1
i = -1
Do While Not EOF(1)
i = i + 1
Input #1, a(i)Loop
Close #1
End Sub
vb读取txt文件行数问题
Line Input就是每次读取一行，n = n + 1就是每次读取一行时就把n递增1，所以程序运行完毕后n就是行数了。还有更简单的方法：Open "c:\\1.txtt" For Binary As #1 MsgBox "文件有 " & UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 & " 条记录。", vbInformation Close #1 三行即可...
VB 如何读取和写入指定行 (TXT)
1、vb对文本文件无法直接读取和写入指定行。2、vb只能用line input #一行行读到要读的行。3、要写入指定行,需要读入所有文本,然后修改指定行,然后重新保存所有文件内容。 本回答由电脑网络分类达人 汪雷 推荐 举报| 答案纠错 | 评论 0 1 chinaboyzyq 采纳率:71% 来自团队:VB6专家 擅长: VB 数学 其他编程语...
vb 怎样读取TXT文件中的数据
Open "F:\\数据.txt" For Input As #1 Input #1, a, b, c, d Print "a="&a,"b="& b,"c="&c,"d="&d Close #1 End Sub -几种打开文件方法--- 1.open <文件名> for input as#<文件号> 如果文件不存在则会出错,文件号将在以后操作中取代文件名,范围是[1,511]。2.open <...
请问VB中如何读取txt文件的数据
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。2、双击Command1添加如下代码 Private Sub Command1_Click()Dim strFile As String Dim intFile As Integer Dim strData As String strFile = "c:\\学生成绩.txt"intFile = FreeFile Open strFile Fo...
如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?
1), vbUnicode), Chr(10))(3), vbTab)(3) '4行4列，如果其余行或列数则更改相应的数字Debug.Print myTextClosemyText = DirLoopEnd Sub 如何用ISS指向某一文件夹 现在我们的标准安装已经完成，让我们讨论一下无人值守安装。Setupsql.exe程序让你记录下一个应答文件，它包括了你在安装程序对话...
vb如何读取多行txt文本?
1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件。2、读取多行文本，可以使用Line input #语句，一行行读取，再连接在一起，这种方法对大一点txt文件效率不高。3、下面提供一个高效率、一次性读入所有文本的vb6示例：Private Sub Command1_Click() Dim r Open "d:...
VB中读入文件,如何获得文本的行数
VB中可以在循环中使用Line Input # 语句一行行读入文本，直到到达文件的结尾。Line Input # 语句，从已打开的顺序文件中读出一行并将它分配给 String变量。EOF 函数，返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。具体代码：Private Sub Command1_...
VB读入文件是如何判断行数的
'你可以用LineInput 这个语句就是读取一行的 如果想知道有多少行 你可以加入一个整型变量 a 在代码中用a=a+1来得到 示例代码如下：Private Sub Form_Click()'比如你的C盘有个a.txt Open "c:\\a.txt" For Input As #1 Do While Not EOF(1)Line Input #1, b a = a + 1 Loop Print "a...
vb如何读取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 arr(i) NextEnd Sub然后你想读那行的，如第2行的，就是数组arr(1)的数据，然后你再取出来画图即可。
VB读取TXT文本中的一行
Private Sub Command1_Click()Open "C:\\123.txt" For Input As #1 n = 0 Do While Not EOF(1)Line Input #1, a n = n + 1 If n = 3 Then Text1.Text = a Exit Do End If Loop Close #1 End Sub 这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出...
