vb.net文件读取行 vbnet readline

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中的其中一行?

vb.net例子:

Imports System

Imports System.IO

Module Program

Sub Main()

Dim r As New Random(Datetime.Now.Millisecond)

Dim lines As String()=File.ReadAllLines("t.txt")

Console.WriteLine(lines(r.Next(0,lines.Length)))

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

End Module

vb.net 中对txt文件的读取、写入的方法!始终保持txt里面只有一行!

Public Class Form1

Private Sub 写入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写入文件.Click

FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.

WriteLine(1, "想只保留文件为一行 那你就写一行好了") ' Print blank line to file.

FileClose(1) ' Close file.

End Sub

Private Sub 读取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取文件.Click

Dim TextLine As String

FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.

TextLine = LineInput(1) '读取一行就了

MsgBox(TextLine)

FileClose(1)

End Sub

End Class

最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你


当前文章:vb.net文件读取行 vbnet readline
文章网址:http://myzitong.com/article/dohpggi.html