Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Another Filer question
Message
 
À
13/09/2011 09:28:08
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01523409
Message ID:
01523422
Vues:
45
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform