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

Click here to load this message in the networking platform