Visual Basic

<br />
Private Function LineCount(FileName) As Long<br />
      Dim TX As IO.TextReader = IO.File.OpenText(FileName)<br />
<br />
      Dim ALine As String = TX.ReadLine<br />
      Dim Counter As Long = 0<br />
<br />
      Do While Not ALine Is Nothing<br />
         Counter += 1<br />
         ALine = TX.ReadLine<br />
      Loop<br />
<br />
      TX.Close()<br />
      <br />
      Return Counter<br />
<br />
   End Function<br />

<br />
Public Function LineCount(ByVal fileName As String) As Long<br />
      <br />
      Dim lineBuffer As Byte()<br />
      lineBuffer = New Byte(4196 - 1) {}<br />
      Dim LineCount As Long<br />
      Dim FI As New IO.FileInfo(fileName)<br />
      Dim FileSize As Long = FI.Length<br />
      Dim BytesProcessed As Long = 0<br />
      Dim BufferRead As Integer = 0<br />
      Dim x As Integer = 0<br />
      LineCount = 0<br />
           <br />
      <br />
      Dim FS As New FileStream(fi.FullName, FileMode.Open, FileAccess.Read, _<br />
      FileShare.Read, lineBuffer.Length)<br />
<br />
      Do While BytesProcessed < FileSize<br />
         Try<br />
            BufferRead = FS.Read(lineBuffer, 0, lineBuffer.Length)<br />
<br />
            If BufferRead > 0 Then<br />
               For x = 0 To (BufferRead - 1)<br />
                  If lineBuffer(x) = 13 Then<br />
                     LineCount += 1<br />
                  End If<br />
<br />
                  ' Evaluate Percent done here i.e Percentdone = CInt((BytesProcessed / FileSize) * 100)<br />
<br />
                  BytesProcessed += 1<br />
               Next<br />
            End If<br />
      Loop<br />
<br />
      FS.Close()<br />
      Return LineCount<br />
<br />
End Function<br />

<br />
Public Function LineCount(ByVal fileName As String, ByVal PercentageRead as Integer) As Long<br />
      <br />
      Dim lineBuffer As Byte()<br />
      lineBuffer = New Byte(4196 - 1) {}<br />
      Dim LineCount As Long<br />
      Dim FI As New IO.FileInfo(fileName)<br />
      Dim FileSize As Long = FI.Length<br />
      Dim BytesProcessed As Long = 0<br />
      Dim BufferRead As Integer = 0<br />
      Dim x As Integer = 0<br />
      Dim FileSizePercentage As Integer = Cint((FileSize / 100) * PercentageRead)<br />
      LineCount = 0<br />
           <br />
      <br />
      Dim FS As New FileStream(fi.FullName, FileMode.Open, FileAccess.Read, _<br />
      FileShare.Read, lineBuffer.Length)<br />
<br />
      Do While BytesProcessed < FileSizePercentage<br />
         Try<br />
            BufferRead = FS.Read(lineBuffer, 0, lineBuffer.Length)<br />
<br />
            If BufferRead > 0 Then<br />
               For x = 0 To (BufferRead - 1)<br />
                  If lineBuffer(x) = 13 Then<br />
                     LineCount += 1<br />
                  End If<br />
<br />
                  ' Evaluate Percent done here i.e Percentdone = CInt((BytesProcessed / FileSizePercentage) * 100)<br />
<br />
                  BytesProcessed += 1<br />
               Next<br />
            End If<br />
      Loop<br />
<br />
      FS.Close()<br />
<br />
      Return Clng((LineCount / FileSizePercentage) * 100)<br />
<br />
End Function<br />

<br />
Public Function LineCount(ByVal fileName As String) As Integer<br />
      <br />
      Dim InputClass As New MSUtil.COMTextLineInputContextClass<br />
      Dim LogParserClass As New MSUtil.LogQueryClass<br />
      Dim IRs As MSUtil.ILogRecordset   <br />
      Dim QueryString As String = "SELECT COUNT(Text) FROM '" & fileName & "'"<br />
      <br />
      InputClass.splitLongLines = False        <br />
      <br />
      IRs = LogParserClass.Execute(QueryString, InputClass)<br />
      Return IRs.inputUnitsProcessed<br />
<br />
End Function<br />

Dim connection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))<br />
Dim command As New SqlCommand("delete from course where courseID = @courseID", connection)<br />
Dim i As Integer = 0<br />
Dim cb As CheckBox<br />
Dim courseID As String<br />
cb = deleteCourseGrid.Items(i).FindControl("deleteCheck")<br />
For i = 0 To deleteCourseGrid.Items.Count - 1<br />
    If cb.Checked = True Then<br />
        courseID = deleteCourseGrid.Items(i).Cells(0).Text<br />
        command.Parameters.Add("@courseID", courseID)<br />
        connection.Open()<br />
        command.ExecuteNonQuery()<br />
        connection.Close()<br />
    End If<br />
Next<br />
Response.Redirect("updated.aspx")