Pozeram ze to moje .zip co som sem dal nefunguje,boh vie preco...toto je teda cely kod co mam...Ja som svoj problem popisal spravne a dobre uz niekolko krat vyssie. Ale netusim ako to mam vo VB . net napisat a preto sem nemam dat aky kod, kedze ziadny ani nemam k tomu mojmu problemu,potreboval by som ho od niekoho doplnit.Necakal som,ze porovnat 2 DataGridView bude take narocne.
Kód: Vybrať všetko
Public Class Form1
Dim objDate As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
SetupDataGridView()
SetupDataGridView1()
SetupDataGridView2()
Dim csvpath As String = "\\nm-fs01\it\Backup\IBEA\z_cumulated.csv"
Dim csvpath1 As String = "\\nm-fs01\it\Backup\IBEA\101z_cumulated.csv"
'z
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(csvpath)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(";")
Dim currentRow1 As String()
Dim riadok As Integer
riadok = 0
While Not MyReader.EndOfData
Application.DoEvents()
Try
currentRow1 = MyReader.ReadFields()
riadok = riadok + 1
If (riadok > 1) Then
With songsDataGridView1
.ColumnCount = 64
Dim row1 As String() = New String() {currentRow1(0), currentRow1(1), currentRow1(2), currentRow1(3), currentRow1(4), currentRow1(5), currentRow1(6),
currentRow1(7), currentRow1(8), currentRow1(9), currentRow1(10), currentRow1(11), currentRow1(12),
currentRow1(13), currentRow1(14), currentRow1(15), currentRow1(16), currentRow1(17), currentRow1(18),
currentRow1(19), currentRow1(20), currentRow1(21), currentRow1(22), currentRow1(23), currentRow1(24),
currentRow1(25), currentRow1(26), currentRow1(27), currentRow1(28), currentRow1(29), currentRow1(30),
currentRow1(31), currentRow1(32), currentRow1(33), currentRow1(34), currentRow1(35), currentRow1(36),
currentRow1(37), currentRow1(38), currentRow1(39), currentRow1(40), currentRow1(41), currentRow1(42),
currentRow1(43), currentRow1(44), currentRow1(45), currentRow1(46), currentRow1(47), currentRow1(48),
currentRow1(49), currentRow1(50), currentRow1(51), currentRow1(52), currentRow1(53), currentRow1(54),
currentRow1(55), currentRow1(56), currentRow1(57), currentRow1(58), currentRow1(59), currentRow1(60),
currentRow1(61), currentRow1(62), currentRow1(63)}
.Rows.Add(row1)
End With
End If
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
MsgBox("Line " & ex.Message & _
"is not valid and will be skipped.")
End Try
End While
End Using
'10.41.60.101
If IO.File.Exists("\\nm-fs01\it\Backup\IBEA\101z_cumulated.csv") Then
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(csvpath1)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(";")
Dim currentRow As String()
Dim riadok As Integer
While Not MyReader.EndOfData
Application.DoEvents()
Try
currentRow = MyReader.ReadFields()
riadok = riadok + 1
If (riadok > 1) Then
With songsDataGridView
.ColumnCount = 64
Dim row As String() = New String() {"21544a", currentRow(1), currentRow(2), currentRow(3), currentRow(4), currentRow(5), currentRow(6),
currentRow(7), currentRow(8), currentRow(9), currentRow(10), currentRow(11), currentRow(12),
currentRow(13), currentRow(14), currentRow(15), currentRow(16), currentRow(17), currentRow(18),
currentRow(19), currentRow(20), currentRow(21), currentRow(22), currentRow(23), currentRow(24),
currentRow(25), currentRow(26), currentRow(27), currentRow(28), currentRow(29), currentRow(30),
currentRow(31), currentRow(32), currentRow(33), currentRow(34), currentRow(35), currentRow(36),
currentRow(37), currentRow(38), currentRow(39), currentRow(40), currentRow(41), currentRow(42),
currentRow(43), currentRow(44), currentRow(45), currentRow(46), currentRow(47), currentRow(48),
currentRow(49), currentRow(50), currentRow(51), currentRow(52), currentRow(53), currentRow(54),
currentRow(55), currentRow(56), currentRow(57), currentRow(58), currentRow(59), currentRow(60),
currentRow(61), currentRow(62), currentRow(63)}
.Rows.Add(row)
End With
End If
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
MsgBox("Line " & ex.Message & _
"is not valid and will be skipped.")
End Try
End While
End Using
Else : End If
Private Sub SetupDataGridView()
'Me.Controls.Add(songsDataGridView)
songsDataGridView.ColumnCount = 64
With songsDataGridView.ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.Red
.Font = New Font(songsDataGridView.Font, FontStyle.Bold)
End With
With songsDataGridView
'.Name = "songsDataGridView"
'.Location = New Point(8, 8)
'.Size = New Size(500, 250)
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Black
.RowHeadersVisible = False
.ColumnHeadersVisible = True
.Columns(0).Name = "Id"
.Columns(1).Name = "Start date"
.Columns(2).Name = "Start time"
.Columns(3).Name = "Time zone"
.Columns(4).Name = "End date"
.Columns(5).Name = "End time"
.Columns(6).Name = "Jobname"
.Columns(7).Name = "Batch number"
.Columns(8).Name = "Total"
.Columns(9).Name = "Rejected"
.Columns(10).Name = "Pusher 1"
.Columns(11).Name = "Pusher 2"
.Columns(12).Name = "Pusher 3"
.Columns(13).Name = "Checked"
.Columns(14).Name = "Recognized def."
.Columns(15).Name = "Object error"
.Columns(16).Name = "Surface error"
.Columns(17).Name = "Field01"
.Columns(18).Name = "Field02"
.Columns(19).Name = "Field03"
.Columns(20).Name = "Field04"
.Columns(21).Name = "Field05"
.Columns(22).Name = "Field06"
.Columns(23).Name = "Field07"
.Columns(24).Name = "Field08"
.Columns(25).Name = "Field09"
.Columns(26).Name = "Field10"
.Columns(27).Name = "Field11"
.Columns(28).Name = "Field12"
.Columns(29).Name = "Field13"
.Columns(30).Name = "Field14"
.Columns(31).Name = "Field15"
.Columns(32).Name = "Field16"
.Columns(33).Name = "Field17"
.Columns(34).Name = "Field18"
.Columns(35).Name = "Field19"
.Columns(36).Name = "Field20"
.Columns(37).Name = "Field21"
.Columns(38).Name = "Field22"
.Columns(39).Name = "Field23"
.Columns(40).Name = "Field24"
.Columns(41).Name = "Field25"
.Columns(42).Name = "Field26"
.Columns(43).Name = "Field27"
.Columns(44).Name = "Field28"
.Columns(45).Name = "Field29"
.Columns(46).Name = "Field30"
.Columns(47).Name = "Field31"
.Columns(48).Name = "Field32"
.Columns(49).Name = "Field33"
.Columns(50).Name = "Field34"
.Columns(51).Name = "Field35"
.Columns(52).Name = "Field36"
.Columns(53).Name = "Field37"
.Columns(54).Name = "Field38"
.Columns(55).Name = "Field39"
.Columns(56).Name = "Field40"
.Columns(57).Name = "Field41"
.Columns(58).Name = "Field42"
.Columns(59).Name = "Field43"
.Columns(60).Name = "Field44"
.Columns(61).Name = "Field45"
.Columns(62).Name = "Field46"
.Columns(63).Name = "Field47"
.Columns(0).DefaultCellStyle.Font = New Font(Me.songsDataGridView.DefaultCellStyle.Font, FontStyle.Bold)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
End With
End Sub
Private Sub SetupDataGridView1()
'Me.Controls.Add(songsDataGridView)
songsDataGridView1.ColumnCount = 64
With songsDataGridView1.ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.Red
.Font = New Font(songsDataGridView1.Font, FontStyle.Bold)
End With
With songsDataGridView1
'.Name = "songsDataGridView"
'.Location = New Point(8, 8)
'.Size = New Size(500, 250)
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Black
.RowHeadersVisible = False
.ColumnHeadersVisible = True
.Columns(0).Name = "Id"
.Columns(1).Name = "Start date"
.Columns(2).Name = "Start time"
.Columns(3).Name = "Time zone"
.Columns(4).Name = "End date"
.Columns(5).Name = "End time"
.Columns(6).Name = "Jobname"
.Columns(7).Name = "Batch number"
.Columns(8).Name = "Total"
.Columns(9).Name = "Rejected"
.Columns(10).Name = "Pusher 1"
.Columns(11).Name = "Pusher 2"
.Columns(12).Name = "Pusher 3"
.Columns(13).Name = "Checked"
.Columns(14).Name = "Recognized def."
.Columns(15).Name = "Object error"
.Columns(16).Name = "Surface error"
.Columns(17).Name = "Field01"
.Columns(18).Name = "Field02"
.Columns(19).Name = "Field03"
.Columns(20).Name = "Field04"
.Columns(21).Name = "Field05"
.Columns(22).Name = "Field06"
.Columns(23).Name = "Field07"
.Columns(24).Name = "Field08"
.Columns(25).Name = "Field09"
.Columns(26).Name = "Field10"
.Columns(27).Name = "Field11"
.Columns(28).Name = "Field12"
.Columns(29).Name = "Field13"
.Columns(30).Name = "Field14"
.Columns(31).Name = "Field15"
.Columns(32).Name = "Field16"
.Columns(33).Name = "Field17"
.Columns(34).Name = "Field18"
.Columns(35).Name = "Field19"
.Columns(36).Name = "Field20"
.Columns(37).Name = "Field21"
.Columns(38).Name = "Field22"
.Columns(39).Name = "Field23"
.Columns(40).Name = "Field24"
.Columns(41).Name = "Field25"
.Columns(42).Name = "Field26"
.Columns(43).Name = "Field27"
.Columns(44).Name = "Field28"
.Columns(45).Name = "Field29"
.Columns(46).Name = "Field30"
.Columns(47).Name = "Field31"
.Columns(48).Name = "Field32"
.Columns(49).Name = "Field33"
.Columns(50).Name = "Field34"
.Columns(51).Name = "Field35"
.Columns(52).Name = "Field36"
.Columns(53).Name = "Field37"
.Columns(54).Name = "Field38"
.Columns(55).Name = "Field39"
.Columns(56).Name = "Field40"
.Columns(57).Name = "Field41"
.Columns(58).Name = "Field42"
.Columns(59).Name = "Field43"
.Columns(60).Name = "Field44"
.Columns(61).Name = "Field45"
.Columns(62).Name = "Field46"
.Columns(63).Name = "Field47"
.Columns(0).DefaultCellStyle.Font = New Font(Me.songsDataGridView1.DefaultCellStyle.Font, FontStyle.Bold)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
End With
End Sub
Private Sub SetupDataGridView2()
'Me.Controls.Add(songsDataGridView)
songsDataGridView2.ColumnCount = 64
With songsDataGridView2.ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.Red
.Font = New Font(songsDataGridView2.Font, FontStyle.Bold)
End With
With songsDataGridView2
'.Name = "songsDataGridView"
'.Location = New Point(8, 8)
'.Size = New Size(500, 250)
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Black
.RowHeadersVisible = False
.ColumnHeadersVisible = True
.Columns(0).Name = "Id"
.Columns(1).Name = "Start date"
.Columns(2).Name = "Start time"
.Columns(3).Name = "Time zone"
.Columns(4).Name = "End date"
.Columns(5).Name = "End time"
.Columns(6).Name = "Jobname"
.Columns(7).Name = "Batch number"
.Columns(8).Name = "Total"
.Columns(9).Name = "Rejected"
.Columns(10).Name = "Pusher 1"
.Columns(11).Name = "Pusher 2"
.Columns(12).Name = "Pusher 3"
.Columns(13).Name = "Checked"
.Columns(14).Name = "Recognized def."
.Columns(15).Name = "Object error"
.Columns(16).Name = "Surface error"
.Columns(17).Name = "Field01"
.Columns(18).Name = "Field02"
.Columns(19).Name = "Field03"
.Columns(20).Name = "Field04"
.Columns(21).Name = "Field05"
.Columns(22).Name = "Field06"
.Columns(23).Name = "Field07"
.Columns(24).Name = "Field08"
.Columns(25).Name = "Field09"
.Columns(26).Name = "Field10"
.Columns(27).Name = "Field11"
.Columns(28).Name = "Field12"
.Columns(29).Name = "Field13"
.Columns(30).Name = "Field14"
.Columns(31).Name = "Field15"
.Columns(32).Name = "Field16"
.Columns(33).Name = "Field17"
.Columns(34).Name = "Field18"
.Columns(35).Name = "Field19"
.Columns(36).Name = "Field20"
.Columns(37).Name = "Field21"
.Columns(38).Name = "Field22"
.Columns(39).Name = "Field23"
.Columns(40).Name = "Field24"
.Columns(41).Name = "Field25"
.Columns(42).Name = "Field26"
.Columns(43).Name = "Field27"
.Columns(44).Name = "Field28"
.Columns(45).Name = "Field29"
.Columns(46).Name = "Field30"
.Columns(47).Name = "Field31"
.Columns(48).Name = "Field32"
.Columns(49).Name = "Field33"
.Columns(50).Name = "Field34"
.Columns(51).Name = "Field35"
.Columns(52).Name = "Field36"
.Columns(53).Name = "Field37"
.Columns(54).Name = "Field38"
.Columns(55).Name = "Field39"
.Columns(56).Name = "Field40"
.Columns(57).Name = "Field41"
.Columns(58).Name = "Field42"
.Columns(59).Name = "Field43"
.Columns(60).Name = "Field44"
.Columns(61).Name = "Field45"
.Columns(62).Name = "Field46"
.Columns(63).Name = "Field47"
.Columns(0).DefaultCellStyle.Font = New Font(Me.songsDataGridView2.DefaultCellStyle.Font, FontStyle.Bold)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
End With
End Sub
Private Sub songsDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles songsDataGridView.CellContentClick
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim headers = (From header As DataGridViewColumn In songsDataGridView.Columns.Cast(Of DataGridViewColumn)() _
Select header.HeaderText).ToArray
Dim rows = From row As DataGridViewRow In songsDataGridView.Rows.Cast(Of DataGridViewRow)() _
Where Not row.IsNewRow _
Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, Function(c) If(c.Value IsNot Nothing, c.Value, ""))
Using sw As New IO.StreamWriter("\\nm-fs01\it\Backup\IBEA\z_cumulated.csv")
sw.WriteLine(String.Join(";", headers))
For Each r In rows
sw.WriteLine(String.Join(";", r))
Next
End Using
Process.Start("\\nm-fs01\it\Backup\IBEA\z_cumulated.csv")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles songsDataGridView1.CellContentClick
End Sub
Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles songsDataGridView2.CellContentClick
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End Sub
End Class
