VB.net code to Read all lines in Fixed Width text file and add characters in specific locations

I am trying to code a small application which addresses a formatting issue in a text file received every month, its a fixed width file which has dates in a specific location such as 20090701 i need to change every line to read 2009-07-01 I was thinking maybe using streamreader or the like but cant quite figure this one out
LVL 2
nemesis1210Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

bhmahlerCommented:
You can read all the lines of the file into a string array using System.IO.File.ReadAllLines("PATH TO FILE"), then you can jsut loop through the array and adjust the lines as needed and rewrite them to the file.
0
nemesis1210Author Commented:
any chance you can point me to some sample code
0
Mike TomlinsonMiddle School Assistant TeacherCommented:
Here's some example code:
        Dim FileName As String = "c:\some\file.txt"
        Dim Lines() As String = System.IO.File.ReadAllLines(FileName)
 
        Dim sb As New System.Text.StringBuilder
        For i As Integer = 0 To Lines.GetUpperBound(0)
            ' Pretend your date starts at Index 60.   (don't forget that indexes are ZERO based!)
            ' 20090701 --> 2009-07-01
            ' So we work BACKWARDS and insert at 66 and 64.
 
            ' Clear the StringBuilder and add the Current Line:
            sb.Length = 0
            sb.Append(Lines(i))
 
            ' Insert the Dashes
            sb.Insert(66, "-")
            sb.Insert(64, "-")
 
            ' put the changed line back in the array
            Lines(i) = sb.ToString
        Next
 
        System.IO.File.WriteAllLines(FileName, Lines)

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
nemesis1210Author Commented:
Worked Perfectly thank you so much
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.