Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Reading in an ascii file with FOPEN()
Message
De
05/03/1999 11:19:28
 
 
À
04/03/1999 23:08:28
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00194312
Message ID:
00194515
Vues:
22
Why append to another ascii file, why not to a memo field in a table, then export that memo field to an ascii file, then Append FROM to your Table.
gnFileHandle = FOPEN("DataIn.TXT")
DO WHILE NOT feof(gnFileHandle)
 gcString = FGETS(gnFileHandle, 1060) && or LF+CR, which ever is first
 if NOT USED('MOVEtable')
  use movetable in 0 
 endif
 select movetable
 replace line1 with gcstring
ENDDO
=FCLOSE(gnFileHandle)
copy MEMO LINE1 to newfile.txt
if not USED('NewData')
 Use NewData in 0 
endif
select NewData
Append from Newfile.txt sdf
Iain Brodie
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform