Mega Code Archive

 

Categories / VB.Net / File Directory

 

File AppendAllLines (String, IEnumerable(String)) appends lines to a file, and then closes the file

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