Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Low level command
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Low level command
Divers
Thread ID:
00602045
Message ID:
00602045
Vues:
44
Hello all,
This is a sample of the code
the idea here to merge a number of txt files into one file txt file

**************
aa = fopen(thisfile,10)
If aa < 0
=messagebox('Unable to open ' + thisfile + ' for uploading',0)
Release aa
Loop
Endif
l_process = .f.
Do while not feof(aa)
l_process = .t.
newline = fgets(aa)
=fputs(odrhandle,alltrim(newline))
**the var odrhandle is another txt file handle- Enddo
=fclose(aa)
Release aa

The problem is that many times when I open a file, I am immediately at feof() and I cannot then fclose() the file.

Any ideas about what is going wrong would be gratly appreciated. I've tested the code from the command window and everything works the way one would expect it to work.

Thanks

Sandy
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform