1， VB.NET 读取 (通过streamReader)

                ' tmpCount = 0

                'Dim tmpSR As New StreamReader(fileFullName,System.Text.Encoding.Default)
                'Do While tmpSR.Peek >= 0
                '    tmpCount = tmpCount + 1
                'Loop
                'tmpSR.Close()

调用方法：fileRecordCounts = GetTxtRowCount(file)

fileShortName = System.IO.Path.GetFileName(file) ' 取短路径名
fileCreationDate = System.IO.File.GetCreationTime(file).ToString("yyyy MM dd HH:mm") ‘取文件创建时间
fileSize = New System.IO.FileInfo(file).Length / 1024 ’取文件大小， fileSize 为 KB

 Private Function GetFileRowCount_Info(ByVal sFileFullName As String) As String
        If (Not File.Exists(sFileFullName)) Then Return ""

        Dim output As String = ""
        Try
            Dim myProcess As System.Diagnostics.Process = New System.Diagnostics.Process()

            myProcess.StartInfo.FileName = "cmd.exe"
            myProcess.StartInfo.UseShellExecute = False
            myProcess.StartInfo.RedirectStandardInput = True
            myProcess.StartInfo.RedirectStandardOutput = True

            myProcess.Start()
            Dim myStreamWriter As StreamWriter = myProcess.StandardInput
            myStreamWriter.WriteLine("find /V """" /C " + sFileFullName)

            myStreamWriter.Close()

            output = myProcess.StandardOutput.ReadToEnd()

            myProcess.WaitForExit()
        Catch ex As Exception
            Console.WriteLine(ex)
            Return ""
        End Try
  
        Return output

    End Function


    'Dim result As Boolean = Int64.TryParse(value,number)
    '  If result Then
    '     Console.WriteLine("Converted '{0}' to {1}.",value,number)
    '  Else
    '     If value Is Nothing Then value = "" 
    '     Console.WriteLine("Attempted conversion of '{0}' Failed.",value)
    '  End If    

    Public Function GetTxtRowCount(ByVal sFileFullName As String) As Long

        If (Not File.Exists(sFileFullName)) Then Return -1

        Dim sResult As String = GetFileRowCount_Info(sFileFullName)
        If (sResult = "") Then Return -1

        Dim lResult As Long = 0

        Dim lines() As String = sResult.Split(CChar(vbCrLf))
        Dim sTmp As String = ""
        For Each s As String In lines
            sTmp = s.TrimEnd(CChar(vbCrLf)).ToUpper()
            If (sTmp = "") Then Continue For

            If (Not sTmp.Contains(".TXT")) Then Continue For
            If (Not sTmp.Contains("----------")) Then Continue For

            Long.TryParse(sTmp.Split(CChar(":"))(1).Trim(),lResult)  ' 这里需要根据实际情况来

            Exit For

        Next

        Return lResult
    End Function

    'Public Function GetTxtRowCount(ByVal sFileFullName As String) As Integer

    '    If (Not File.Exists(sFileFullName)) Then Return -1

    '    Dim sResult As String = GetFileRowCount_Info(sFileFullName)
    '    If (sResult = "") Then Return -1

    '    Dim lResult As Integer = 0

    '    Dim lines() As String = sResult.Split(System.Convert.tochar("\n"))
    '    Dim sTmp As String = ""
    '    For Each s As String In lines
    '        sTmp = s.TrimEnd(System.Convert.tochar("\r")).ToUpper()
    '        If (sTmp = "") Then Continue For

    '        If (Not sTmp.Contains(".TXT")) Then Continue For
    '        If (Not sTmp.StartsWith("----------")) Then Continue For

    '        Integer.TryParse(sTmp.Split(CChar(":"))(2).Trim(),lResult)

    '        Exit For

    '    Next

    '    Return lResult
    'End Function

调用方法： long iResult = Common.ConsoleCommand.GetTxtRowCount(sFileName);

        public static string GetFileRowCount_Info(string sFileFullName)
        {
            if (!File.Exists(sFileFullName)) return "";

            string output = "";
            try
            {
                System.Diagnostics.Process myProcess = new System.Diagnostics.Process();

                myProcess.StartInfo.FileName = "cmd.exe";
                myProcess.StartInfo.UseShellExecute = false;
                myProcess.StartInfo.RedirectStandardInput = true;
                myProcess.StartInfo.RedirectStandardOutput = true;

                myProcess.Start();
                StreamWriter myStreamWriter = myProcess.StandardInput;

                //myStreamWriter.WriteLine(sFileFullName.Substring(0,sFileFullName.IndexOf(":") + 1));
                myStreamWriter.WriteLine("find /V \"\" /C " + @sFileFullName);

                myStreamWriter.Close();

                output = myProcess.StandardOutput.ReadToEnd();

                myProcess.WaitForExit();
            }
            catch (Exception e)
            {
                Console.WriteLine(e);
                return "";
            }
            return output;
        }

        public static long GetTxtRowCount(string sFileFullName)
        {
            if (!File.Exists(sFileFullName)) return -1;

            string sResult = GetFileRowCount_Info(sFileFullName);
            if (sResult == "")
                return -1;

            long lResult = 0;

            string[] lines = sResult.Split(System.Convert.tochar("\n"));
            string sTmp = "";
            foreach (string s in lines)
            {
                sTmp = s.TrimEnd(System.Convert.tochar("\r")).ToUpper();
                if (sTmp == "") continue;

                if (!sTmp.Contains(".TXT")) continue; // 不是.TXT的排除
                if (!sTmp.StartsWith("----------")) continue;

                long.TryParse(sTmp.Split(':')[2].Trim(),out lResult);   // 这里需要根据实际情况来
                break;
            }

            return lResult;
        }

（结束）