텍스트 파일에 줄을 카운트 VB

Question

나는 말의 마지막 줄이 될 CRLF를 제외하고 텍스트 파일의 줄 수를 세는 방법을 찾고 있습니다.

경우에 따라 간단한 코드 예제가 있습니까?

당신이 마지막에 빈 라인에 대해 고민하는 경우에

IO.File.ReadAllLines("C:\Users\Dan\Desktop\test.txt").Length 

, 모든 라인에서 루프 당신이 하나를 찾을 때까지 (내가 구글에서 귀하의 질문의 매우 제목을 검색 발견하지만)

Answer 1

이 시도 내용을 삭제하고 끝까지 모두 삭제하십시오. 다음은 쉽습니다.

IO.File.ReadAllLines("C:\Users\Dan\Desktop\test.txt") 

문자열의 벡터를 반환합니다. 희망이 도움이됩니다. 이와

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

은 기본적으로는 MD5 번호의 합을 보정 한 후 당신이 자바 스크립트