Question

我正在寻找一种办法,在文本档案中计算线数,但不包括作为最后线的CRLF。

任何机会都有一个简单的法典实例。

Answer 1

问(尽管我发现在谷歌找你的问题的题目):

IO.File.ReadAllLines("C:UsersDanDesktop	est.txt").Length

如果你最终对空线感到担忧,那么,在你找到一条带内容之前,就从所有线上走,并删除所有线,直到最后。这是一件容易的事,因为:

IO.File.ReadAllLines("C:UsersDanDesktop	est.txt")

Returns a vector of Strings. Hope this helps.

Answer 2

为此:

TextBox1.Text = ""

With OpenFileDialog1
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
.Filter = "Text Files (*.txt)|*.txt"
If .ShowDialog <> DialogResult.OK Then Exit Sub
End With

Dim intLines As Integer = 0
Dim sr As New IO.StreamReader(OpenFileDialog1.FileName)
Do While sr.Peek() >= 0
TextBox1.Text += sr.ReadLine() & ControlChars.CrLf
intLines += 1
Loop
sr.Close()
MessageBox.Show(intLines, Me.Text)

Answer 3

基本上,你们需要校准5号总书,然后检查是否将超文本与特别安全局联系起来,并确保你改用java字母。

友情链接