vb.net取txt行数的简单介绍

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

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

成都创新互联-专业网站定制、快速模板网站建设、高性价比吐鲁番网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式吐鲁番网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖吐鲁番地区。费用合理售后完善，10多年实体公司更值得信赖。

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例子：

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

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.net取txt行数的简单介绍
文章出自：http://ybzwz.com/article/ddcosio.html