Information générale
Catégorie:
Codage, syntaxe et commandes
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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement