Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another Filer question
Message
From
13/09/2011 11:46:20
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01523409
Message ID:
01523438
Views:
30
>>>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
>
>Thanks a lot Tore

You're welcome.
Previous
Reply
Map
View

Click here to load this message in the networking platform