Add text to each line in text file

[jcw5107]

I have some code I'm messin' with. I want to manipulate a text file before it is imported, this way I can minimize the amount of queries in my d/base....

I'm tryin' to insert the days date in each line of a text file. The problem I'm having is that the newly inserted text overwrites the existing text, insteading of moving it over per say - so that columns all stay in alignment. The text file is "fix width".
I sure hope this makes sense..!!
Any suggestion or examples..??
Thanks in advance..!!
Below is what I am working with..
jcw5107

Sub AssignedTaskReformat5()
DoCmd.Hourglass True
Dim db As DAO.Database
Dim strLine 'As Variant
Dim strType As Variant
Dim strImportFile As String
Dim strNewfile As String

strImportFile = "D:\UPSDATA\SchedWorkWANMain.txt"
strNewfile = "D:\UPSDATA\SchedWorkWANMstr.txt"

Open strImportFile For Input As #1
Open strNewfile For Output As #2

Do Until EOF(1)
Line Input #1, strLine
If Left(strLine, 2) = "E " _
Or Left(strLine, 2) = "S " _
Or Left(strLine, 2) = "P " Then
Mid(strLine, 350, 14) = Now()
End If
Print #2, strLine
Loop
Close #1
Close #2

End Sub

 

[SkipVought]

Hi,

Why not append the date to the END of each record? The position is not important, is it?

An if you already have in Input Spec in Access, it alot easier to modify, if the additional data is tacked on the end.

Skip,

_{To be safe on the [red]FOURTH[/red],
Don't take a [red]FIFTH[/red] on the [red]THIRD[/red]
Or you might not come [red]FORTH[/red] on the [red]FIFTH[/red]
[red][highlight blue]FORTH[/highlight][/red][white][highlight red]WITH[/highlight][/white]}

 

[CautionMP]

jcw5107,
I agree with Skip since your writting the routine to import, but...

...
Do Until EOF(1)
  Line Input #1, strLine
  If Left(strLine, 2) = "E " _
  Or Left(strLine, 2) = "S " _
  Or Left(strLine, 2) = "P " Then
    strPrefix = Left(strLine, 350)
    strAffix = Mid(strLine, 351)
  End If
  'Format string is padded to 14 characters
  Print #2, strPrefix & Format$(Now, "    mm/dd/yyyy") & strAffix
Loop
...

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)