Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Using FWRITE() to add characters to text file
Versions des environnements
Network:
Windows 2000 Server
I have a fairly large text file with 799 characters for each line. Each line already contains a carriage return and line feed. However, there are no delimiters in the record. I am trying to add a character (%) at certain points in each line so that I can pull the records into a foxpro cursor. Right now I can only pull in the first 254 characters of each record.
I've tried using FSEEK() and FWRITE() to write the character '%' to specific positions within the record but for some reason it won't write the character. Any ideas as to what I'm not doing right?
Here's the code I'm using:
cFilename = 'c:\localenv\apps\medipak_Partd_ftp\ELEX_FULL20051206.txt'
cImpTable = 'c:\localenv\apps\Medipak_PartD_Ftp\imp_file'
pnHandle = FOPEN(cfilename)
pnPos1 = FSEEK(pnhandle,10,1)
pAddDelimiter = FWRITE(pnHandle,'%')
pnPos2 = FSEEK(pnhandle,501,1)
pAddDelimiter = FWRITE(pnhandle,'%')
pnPos3 = FSEEK(pnhandle,742,1)
pAddDelimiter = FWRITE(pnhandle,'%')
pClose = FCLOSE(pnHandle)
CREATE CURSOR curNewFile(field1 c(254),field2 c(254),field3 c(254),field4 c(254))
SELECT curNewFile
APPEND FROM (cFilename) TYPE DELIMITED WITH CHARACTER '%'
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