关于vb.net取txt行数的信息

vb.net 如何随机读取txt中的其中一行?

vb.net例子:

10多年专注成都网站制作,成都定制网站,个人网站制作服务,为大家分享网站制作知识、方案,网站设计流程、步骤,成功服务上千家企业。为您提供网站建设,网站制作,网页设计及定制高端网站建设服务,专注于成都定制网站,高端网页制作,对木屋等多个行业,拥有丰富的网站运维经验。

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文件中的数据?

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 For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8开始单步调试代码,点击Command1,进入单步调试功能,

4、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。

vb怎么获得txt文件中的行数?怎么实现?

如果文本很大,那用for、do就太慢太慢了,我给大家一个快速查询的方法:

Dim Oc,Fs,S,X

Set Fs = Oc.OpenTextFile("C:\Test.Txt", 1)'用FSO打开TXT文件

S = Fs.ReadAll'获取全文

Fs.Close'关闭文件

X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '统计总行数:用字符串替换法得到一共多少个回车,然后再加一就得到总行数了


标题名称:关于vb.net取txt行数的信息
文章路径:http://scyanting.com/article/dopgocs.html