Imports System
Imports System.IO
Imports System.Linq
Class Program
Shared dataPath As String = "c:\temp\timestamps.txt"
Public Shared Sub Main(ByVal args As String())
Dim JulyWeekends = From line In File.ReadLines(dataPath) Where (line.StartsWith("Saturday") OrElse _
line.StartsWith("Sunday")) And
line.Contains("July") Select line
File.WriteAllLines("C:\temp\selectedDays.txt", JulyWeekends)
Dim MarchMondays = From line In File.ReadLines(dataPath) Where line.StartsWith("Monday") AndAlso line.Contains("March") Select line
File.AppendAllLines("C:\temp\selectedDays.txt", MarchMondays)
End Sub
End Class