vbnet逐行读文件 vbnet读取文件内容

VB6.0中如何实现逐行读入文本文件?

VB6.0可以用一次读取文本文件全部文本内容，然后使用Split函数来实现一行一行提取文本框行内容。

成都网络公司-成都网站建设公司创新互联公司十多年经验成就非凡，专业从事网站制作、成都做网站，成都网页设计，成都网页制作，软文营销，广告投放等。十多年来已成功提供全面的成都网站建设方案，打造行业特色的成都网站建设案例，建站热线：13518219792，我们期待您的来电！

Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

以下代码是可以提取文本文件任何一行内容的：

Private Sub Command1_Click()

Dim strWj As String

Dim strj() As String

Dim aryContent() As Byte

Dim i As Long

Dim j As Long

CommonDialog1.CancelError = True ' 设置“CancelError”为 True

On Error GoTo ErrHandler

CommonDialog1.Flags = cdlOFNHideReadOnly    ' 设置标志

' 设置过滤器

CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files"  "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

CommonDialog1.FilterIndex = 2    ' 指定缺省的过滤器

CommonDialog1.ShowOpen    ' 显示“打开”对话框

' 显示选定文件的名字

'MsgBox CommonDialog1.FileName

Open CommonDialog1.FileName For Binary As #1

ReDim aryContent(LOF(1) - 1)

Get #1, , aryContent

Close #1

strWj = StrConv(aryContent, vbUnicode)

RichTextBox1 = strWj

Text1 = strWj

strj = Split(strWj, vbCrLf)

i = UBound(strj)

Text2 = i + 1

j = InputBox("输入需要显第几句", j)

j = j - 1

Label1.Caption = j + 1  "："  strj(j)

Exit Sub

ErrHandler:

' 用户按了“取消”按钮

Exit Sub

End Sub

vb.net怎么从文本文档中读取一行数据，将文本输出到控制台？

以下示例一次从文件中读取一行，然后将每行文本打印到控制台。

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub

vb.net问题 如何读取一个txt文件的内容并判断

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim r As New StreamReader("C:\jq.TXT") '打开文件

Dim Mytxt As String = ""

Dim s As String

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine '从打开的文件中读取一行内容

Mytxt = Mytxt s vbCrLf '逐行读取文本，并连接到变量Mytxt中

Loop

r.Close() '关闭对象

'判断是否与变量相等etjq，略了吧？？？

End Sub

End Class

vb 逐行读取文本文件

用Open打开文件，然后用Line行读取即可。

代码如下：

Dim tempStr as String '定义变量tempStr为字符串

Open "C:\Test.txt" For Input As #1 '打开文件

While Not EOF(1)  '读取到结束

Line Input #1, tempStr '读取一行到变量tempStr

'对应的处理

Wend '未结束继续

Close #1 '关闭