Skip certain cells when adding values to DGV column - vb.net

Question

I can not get this to work. I am trying to populate column 2 with values from txt file and to skip cells that has no value in column 1 but without skipping data from text file.
This is what I get :
And code that I'm using :
Dim fileName = "X:\2013\NKT13\FI-ZL\BU.rev"
Dim lineCount = System.IO.File.ReadAllLines(fileName).Length
Dim lines() = System.IO.File.ReadAllLines(fileName)
For i As Integer = 0 To lineCount
Dim RM001 As String = lines(i).Replace(".", "")
Dim LBS001() As String = RM001.Split(New String() {";"}, StringSplitOptions.None)
On Error Resume Next
Dim Val = LBS001(1)
Dim Val2 = LBS001(2)
If DataGridView1.Rows(i).Cells(1).Value Is Nothing Then
'MsgBox(DataGridView1.Rows(i).Index)
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.WhiteSmoke
Else
For Each row As DataGridViewRow In DataGridView1.Rows
DataGridView1.Rows(i).Cells(2).Value = LBS001(0)
Next
End If
Next
In code above line If DataGridView1.Rows(i).Cells(1).Value Is Nothing is not working. When that line is replaced with this one If DataGridView1.Rows(i).Cells(1).Value = "", I get this :
Here A201A is missing and for every empty row in column1 1 result is going to be skipped.
How to populate column 2 with data from txt file so that only rows are skipped not results.
EDIT :
I've tried something else and it works for the first empty cell in column 2, but when it comes to a second...it skips one data from array and then continues normally until reaches another empty cell. Example : A201A...A224A (everything OK)...blank cell(skipped)...A205 in OK but in 206 cell it puts A207A.
Now, this code below works too, thanks to Steve.
Dim Dat2() As String = Split(start1(0), Environment.NewLine)
Dim Dat2A() As String = Split(Dat2(0), ";")
Dim Dat2B() As String = Split(Dat2(1), ";")
Dim fileName = "X:\2013\NKT13\FI-ZL\BU.rev"
Dim lineCount = System.IO.File.ReadAllLines(fileName).Length
Dim lines() = System.IO.File.ReadAllLines(fileName)
Dim a As Integer = 0
For x As Integer = 0 To DataGridView1.Rows.Count - 2
If DataGridView1.Rows(x).Cells(1).Value <> "" Then
DataGridView1.Rows(x).Cells(2).Value = Dat2(a)
a += 1
Else
DataGridView1.Rows(x).Cells(2).Value = ""
End If
End If
Next
EDIT 2 :
Thanks to Steve...I've changed code a bit and it works. Only problem is I am missing two lines in lineCount I think because of every DGV row that is skipped.
Dim fileName = "X:\2013\NKT13\FI-ZL\BU.rev"
Dim lineCount = System.IO.File.ReadAllLines(fileName).Length
Dim lines() = System.IO.File.ReadAllLines(fileName)
MsgBox(lineCount)
Dim i2 As Integer = 0
For i As Integer = 0 To lineCount
Dim RM001 As String = lines(i2).Replace(".", "")
Dim LBS001() As String = RM001.Split(New String() {";"}, StringSplitOptions.None)
On Error Resume Next
Dim Val = LBS001(1)
Dim Val2 = LBS001(2)
If DataGridView1.Rows(i).Cells(1).Value <> "" Then
For Each row As DataGridViewRow In DataGridView1.Rows
DataGridView1.Rows(i).Cells(2).Value = LBS001(0)
Next
i2 += 1
Else
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.WhiteSmoke
End If
Next

Answer 1

What you are doing now is using i to read the line and i to write to your grid. What you need is another variable like i2 that you increment manually when you set the value in a grid, or need to skip a line in the grid.
Dim i2 as Int32 = 0
For i As Integer = 0 To lineCount
Dim RM001 As String = lines(i).Replace(".", "")
Dim LBS001() As String = RM001.Split(New String() {";"}, StringSplitOptions.None)
On Error Resume Next
Dim Val = LBS001(1)
Dim Val2 = LBS001(2)
If DataGridView1.Rows(i2).Cells(1).Value Is Nothing Then
'MsgBox(DataGridView1.Rows(i2).Index)
DataGridView1.Rows(i2).DefaultCellStyle.BackColor = Color.WhiteSmoke
Else
For Each row As DataGridViewRow In DataGridView1.Rows
DataGridView1.Rows(i2).Cells(2).Value = LBS001(0)
Next
i2 += 1
End If
Next
EDIT: After further review and edits by the OP, this is a better answer:
Dim fileName = "X:\2013\NKT13\FI-ZL\BU.rev"
Dim lines() = System.IO.File.ReadAllLines(fileName)
Dim lineCount = lines.Length
Dim a As Integer = 0
For x As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(x).Cells(1).Value <> "" Then
DataGridView1.Rows(x).Cells(2).Value = lines(a)
a += 1
Else
DataGridView1.Rows(x).Cells(2).Value = ""
End If
Next