Reduce spaces from avery line in a text file. VB 2008

Question

Hi. I am a newbie and i need some code that will load a text file into a string scan through it checking each line and reduce the spaces it has in that line and then write it back to the text file. For example: It finds a line like below drmk.sys = 100403 reduces the amount of spaces so it looks like: drmk.sys = 100403 Many Thank for any help. TStrike

Eamonn · Answer

This snippet will read the contents of a text file line by line and remove all spaces isthis what you need to do? There may be a neater way of doing this my VB is a little rusty. 'Open a filestream to the input file Using fileIn As New System.IO.FileStream(d:	emp	est.txt IO.FileMode.Open System.IO.FileAccess.Read) 'Initialize a StreamReader to read the file Using streamIn As New System.IO.StreamReader(fileIn) 'This RegEx will be ued to srtip out ALL the spaces in an input string Dim regEx As System.Text.RegularExpressions.Regex regEx = New System.Text.RegularExpressions.Regex(\ *) 'Loop through the file line by line and replace the spaces writing the result ot a new output file While Not streamIn.EndOfStream 'Open a filestream to the output file Using fileOut As New System.IO.FileStream(d:	emp	est2.txt IO.FileMode.OpenOrCreate System.IO.FileAccess.Write) 'Open a StreamWriter to write out the updated line Using StreamOut As New System.IO.StreamWriter(fileOut) Dim line As String line = streamIn.ReadLine() line = regEx.Replace(line ) StreamOut.WriteLine(line) End Using ' Disposes of streamOut End Using ' Disposes of fileOut End While End Using ' Disposes of streamIn End Using ' Disposes of fileIn