Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another Filer question
Message
From
13/09/2011 09:28:08
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01523409
Message ID:
01523411
Views:
73
This message has been marked as a message which has helped to the initial question of the thread.
Likes (1)
>I am using the following code to append the contents of csv files to a file called fedextimefiles. What I want to do also is to record the csv file name against every record belonging to that file. So at the end of the append process every record on fedextimefiles will carry the name of the csv file it came from. It's part of a process being used from measuring the time interval between the time of a FedEx status scan and the time the information was made available for FTP downloading
>
>
> For nfilecount=1 To omyfiler.Files.Count
> attachct=attachct+1
> acjob=omyfiler.Files.Item(nfilecount).Name
> Attach(attachct)=Padr(omyfiler.Files.Item(nfilecount).Name,49," ")
> Attach(attachct)=UPPER(alltrim(Attach(attachct)))
>NEXT
>SELECT fedextimefiles
>FOR xx=1 TO nfilecount
>STORE attach(xx) TO flo
>append from &flo TYPE delimited WITH CHARACTER ","
>next
FOR xx=1 TO nfilecount
STORE attach(xx) TO flo
lnLastRecord = reccount()
append from (flo) TYPE delimited  WITH CHARACTER ","
go lnLastRecord
replace rest yourFilenameField with flo
next
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform