排除在第一和最後一行記錄在一個循環

Question

下面

Function ExportListview2CSV(ByVal lstview As ListView) As Boolean 
     Dim saveFileDialog1 As New SaveFileDialog() 
     Dim csvFileContents As New System.Text.StringBuilder 
     Dim CurrLine As String = String.Empty 
     saveFileDialog1.Filter = "CSV|*.csv" 
     saveFileDialog1.Title = "Save an CSV File" 

     csvFileContents.AppendLine("Service Provider Name: |" & cbodestproname.Text) 
     'csvFileContents.AppendLine(cbodestproname.Text) 

     csvFileContents.AppendLine("Circel Name: |" & cbodestcirclename.Text) 
     'csvFileContents.AppendLine(cbodestcirclename.Text) 

     csvFileContents.AppendLine("Month: |" & dtpDate.Text) 
     ' csvFileContents.AppendLine(dtpDate.Text) 

     csvFileContents.AppendLine("Type of File: |" & cbotypeoffile.Text) 
     ' csvFileContents.AppendLine(cbotypeoffile.Text) 


     csvFileContents.AppendLine("") 
     'Write out the column names as headers for the csv file. 
     For columnIndex As Int32 = 1 To lstview.Columns.Count - 2 
      CurrLine &= (String.Format("{0}|", lstview.Columns(columnIndex).Text)) 
     Next 
     'Remove trailing comma 
     csvFileContents.AppendLine(CurrLine.Substring(0, CurrLine.Length - 1)) 
     CurrLine = String.Empty 
     'Write out the data. 
     For Each item As ListViewItem In lstview.Items 
      For Each subItem As ListViewItem.ListViewSubItem In item.SubItems 
       CurrLine &= (String.Format("{0}|", subItem.Text)) 
      Next 
      'Remove trailing comma 
      csvFileContents.AppendLine(CurrLine.Substring(0, CurrLine.Length - 1)) 
      CurrLine = String.Empty 
     Next 
     'Create the file. 
     If saveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
      If saveFileDialog1.FileName <> "" Then 
       Dim Sys As New System.IO.StreamWriter(saveFileDialog1.FileName) 
       Sys.WriteLine(csvFileContents.ToString) 
       Sys.Flush() 
       Sys.Dispose() 
       MsgBox("Data's are Saved Succesfully to " & saveFileDialog1.FileName, MsgBoxStyle.Information) 
      End If 
     End If 


    End Function 

我想排除從第一記錄和最後一行 我應該在哪裏做在上面的代碼中chages

plz幫助我

thanx提前。

Answer 1

您可以使用

For i as Integer = 1 to lstview.Items.Count - 2 

... 

Next 

會從第二項開始，最後一個項目

Answer 2

耶之前停止，你應該使用比對方的索引來遍歷在列表視圖

項目