We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Imports System.IO Module Mod1 Sub Main() Dim fIn As StreamReader Dim fOut As StreamWriter Dim sArry() As String 'This reads file and creates/overwrites new .dat fIn = New StreamReader(New FileStream("c:\testfile1.dat", fileMode.Open)) fOut = New StreamWriter(New FileStream("c:\testfile2.dat", FileMode.Create)) 'Parse text Do Until (fIn.EndOfStream) sArry = Split(fIn.ReadLine, ",") If UBound(sArry) = 8 Then _ fOut.WriteLine(sArry(4) & " " & sArry(2) & " " & sArry(1) & " " & sArry(0) & "TEXT") Loop fIn.Close() fOut.Close() End Sub End Module
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.