Solution:
A fast, easy scripting application to reformat the data that runs directly from Win98, WinNT or Win2K desktop. |
' Write out data.
'----------------
If mychoice = 1 Then
Set fso = CreateObject("Scripting.FileSystemObject")
BaseName = fso.GetBaseName(rawfile)
Set f = fso.OpenTextFile(BaseName & "OUT.txt", 2, True)
newdate = starting
f.WriteLine "-- Start of data - " & actual & " values --"
For i = 1 to actual
newdate = DateAdd("n", myinterval, newdate)
f.WriteLine newdate & chr(9) & mid(mytext,(i*4)+1,4)
Next
f.WriteLine "-- End of data --"
f.Close
MsgBox "New file created: " & BaseName & "OUT.txt", 64 |