CODE
Do
strLine2 = objStreamReader2.ReadLine()
If Not strLine2 Is Nothing Then
If My.Settings.WGAT = 1 Then
lstASearch.Items.Add(strLine2.Substring(0, 16))
lstADownloads.Items.Add(strLine2.Substring(19))
Else
If strLine2.Substring(23, 1) = "-" Then
lstASearch.Items.Add(strLine2.Substring(0, 16))
lstADownloads.Items.Add(strLine2.Substring(19))
End If
End If
End If
Loop Until strLine2 Is Nothing
strLine2 = objStreamReader2.ReadLine()
If Not strLine2 Is Nothing Then
If My.Settings.WGAT = 1 Then
lstASearch.Items.Add(strLine2.Substring(0, 16))
lstADownloads.Items.Add(strLine2.Substring(19))
Else
If strLine2.Substring(23, 1) = "-" Then
lstASearch.Items.Add(strLine2.Substring(0, 16))
lstADownloads.Items.Add(strLine2.Substring(19))
End If
End If
End If
Loop Until strLine2 Is Nothing
I've changed the values in the substrings to...
CODE
Do
strLine2 = objStreamReader2.ReadLine()
If Not strLine2 Is Nothing Then
If My.Settings.WGAT = 1 Then
lstASearch.Items.Add(strLine2.Substring(0, 22))
lstADownloads.Items.Add(strLine2.Substring(25))
Else
If strLine2.Substring(23, 1) = "-" Then
lstASearch.Items.Add(strLine2.Substring(0, 22))
lstADownloads.Items.Add(strLine2.Substring(25))
End If
End If
End If
Loop Until strLine2 Is Nothing
strLine2 = objStreamReader2.ReadLine()
If Not strLine2 Is Nothing Then
If My.Settings.WGAT = 1 Then
lstASearch.Items.Add(strLine2.Substring(0, 22))
lstADownloads.Items.Add(strLine2.Substring(25))
Else
If strLine2.Substring(23, 1) = "-" Then
lstASearch.Items.Add(strLine2.Substring(0, 22))
lstADownloads.Items.Add(strLine2.Substring(25))
End If
End If
End If
Loop Until strLine2 Is Nothing
but when i build/test it still seems to be running the original no matter what i do... if i delete that part of the code entirely it still does the code as if it was still there! Anyone got any ideas?