Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another Filer question
Message
 
To
13/09/2011 09:28:08
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01523409
Message ID:
01523422
Views:
46
>>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
Specialist in Advertising, Marketing, especially Direct Marketing

I run courses in Business Management and Marketing
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform