visual-studio-2010 - テキストファイルVBの行をカウントします

Question

テキストファイルの行数を数える方法を探しています。ただし、最後の行となるCRLFは除きます。

このための簡単なコード例がある可能性はありますか？

Answer 1

これを試してみてください（Googleであなたの質問のタイトルそのものを検索していることがわかりましたが）：

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

最後に空の行が気になる場合は、内容のある行が見つかるまですべての行からループし、最後まですべての行を削除します。これは簡単です。理由は次のとおりです。

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＃sumを調整してから、HTMLがCSSにリンクされているかどうかを確認し、JavaScriptがオンになっていることを確認する必要があります。