怎样利用VB编码读取TXT文本中的一行？

如题所述

举报该问题

推荐答案 2018-01-07

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来控制行数。当到达了第三行，就输出到文本框，然后退出循环。

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/vvXvvtOO77eeWjO7OvO.html

相似回答

如何用vb读取txt文件,指定的某行赋给字符串变量?答：'先在代码里加如下 Function Private Function GetTxt(TxtPath As String) As String Dim i As Integer: i = FreeFile Open TxtPath For Input As #i GetTxt = StrConv(InputB(LOF(i), i), vbUnicode)Close #i End Function 当需要获取文件中的特定行时，可以使用Split函数将文件内容按行分割...

如何利用写好的vb记事本小程序打开TXT格式的文档答：首先，你需要定义一个字符串变量s来存储读取的文本内容。接着，使用OPEN语句打开指定的文件，这里的文件名为“c:\1.txt”，并且指定使用输入模式进行读取，标记为#1。然后，通过WHILE...WEND循环来读取文件中的每一行内容，直到文件结束（EOF）。在循环内部，利用LINE INPUT语句从文件中读取一行数据到变量...

如何用vb中读取txt文件中需要的值答：这段代码用于从文本文件中读取并提取所有数字。首先定义了几个变量，包括字符串R、数组A和字符串s。接下来，使用Open语句打开文件“c:\1.txt”进行输入操作。通过Do While循环检查文件结束标志EOF(1)，若未到达文件末尾，则执行循环内部的代码。在循环内部，使用Line Input语句读取文件中的每一行，并将...

vb怎样读取txt文本每一行的指定内容答：Dim ret as String Open "目录\a.txt" For Input As #1 ' 打开文件。Do While Not EOF(1) ' 循环至文件尾。Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。'这时就是取到的第一行的值了，如果你确定每行都是这种格式“time=123”，那么你就可以用 '下面的语句：ret...

VB 怎么读txt文件啊!答：在VB中读取txt文件有多种方法，下面将介绍两种常用的方法。首先，可以使用Open语句打开文件，然后通过line input #按行读取文件内容。这种方式适用于处理文本文件，能够逐行读取数据，便于处理和解析。其次，可以使用InputB函数一次性读入整个文件。这种方式适用于二进制文件，能够将文件内容一次性读入内存，便于...

如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?答：如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列？可以使用如下的代码，复制如下代码到VBA模块中运行即可。如下代码代表4行4列，如果其余行或列数则可更改相应的数字。具体步骤如下：打开office excel；Alt+F11打开VBA编辑器；复制如下代码到模块中；F5运行该模块；按照提示进行如下步骤即可。

请问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文本内的某行某列?答：& "*.txt")Do While Len(myText) <> 0Open myFile & "\" & myText For Input As #1myText = Split(Split(VBA.StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))(3), vbTab)(3) '4行4列，如果其余行或列数则更改相应的数字Debug.Print myTextClosemyText = DirLoopEnd Sub ...

vb如何读取数据库一行数据?答：'读取方法：Imports System.IOPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMe.ListBox1.Items.Clear()Dim StrRed As StreamReader = New StreamReader("D:\111.txt", System.Text.Encoding.Default)While Not...

大家正在搜

编程读取TXT文件 c怎么读取txt文件 cvi怎么读取txt文件 html怎么读取txt文件 TXT读取软件 Txt文件读取 Python读取TXT TXT文本 html读取txt文件