Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.
|transition to visual .net from vb6||5||63|
|odbc driver manager data source name not found and no default driver specified||9||33|
|Excel Userform to write back to spreadsheet in a different font or colour||8||14|
|Import CSV with All modify groups||17||45|