计算文本文件总行数和逐行读取代码,CSharp代码库,德仔网

代码语言

代码分类

【CSharp】计算文本文件总行数和逐行读取

作者:gao2951713 / 发布于2013/10/24/ 498


	测试平台：VS2005 + .Net Framework 3.5sp1 + Windows2003/xp

	代码如下：

	' 导入命名空间
	Imports System.IO
	Public Class LOB

	 Private Sub btnReadByLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadByLine.Click
	 Try
	 Using myStreamReader As StreamReader = File.OpenText("Text\乐博网.txt")
	 Dim myInputString As String
	 Dim rowCount As Integer = 0

	 ' 清除文本框的内容
	 txtResult.Clear()

	 ' 读取文本文件的第一行数据。
	 myInputString = myStreamReader.ReadLine()

	 ' 只要还有剩余的行就持续读取。
	 While myInputString IsNot Nothing
	 ' 在将所读取的行数据置入文本框
	 ' 中时替其加上一个行号。
	 txtResult.Text += rowCount.ToString() + "：" + _
	 myInputString + Environment.NewLine
	 rowCount += 1
	 ' 读取下一行数据。
	 myInputString = myStreamReader.ReadLine()
	 End While

	 ' 显示出文本文件的总行数。
	 txtCount.Text = rowCount.ToString
	 End Using
	 Catch ex As Exception
	 MessageBox.Show( _
	 "文档无法打开或读取。" + Environment.NewLine + _
	 "请确认文件名是否正确，" + _
	 "以及您是否有读取权限。" + _
	 Environment.NewLine + Environment.NewLine + "乐博网提示异常：" + ex.Message)
	 End Try
	 End Sub

	 Private Sub txtResult_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtResult.TextChanged

	 End Sub

	 Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	 End Sub
	End Class

试试其它关键字

同语言下

可能有用的

gao2951713贡献的其它代码(2)