ASCII Error - Entry Not Found!??

• May 3, 2011

• #2

ShankarJ

Programmer

Aug 9, 2003

856

Hi!

Where is the LOOP ... NEXT() ... END?

Why are using RELATE:..? Is the Table related to other tables in the dictionary?

The CLOSE method does NOT close ALL the instances of the file being closed. You need to ::

LOOP UNTIL Access:TEXTS.GetOpened() = 0
RELATE:Texts.Close()
END

Regards

 

Upvote 0 Downvote

• May 3, 2011

• Thread starter
• #3

edc000

Programmer

Mar 4, 2011

28

AR

Hi Shankar and thanks
Textos (ascii) is not related, but don't work with access or relate.

access:Textos.Close
GLO:NombreArchivo_Textos=CLIP(ARCHIVO)
ACCESS:textos.OPEN
if errorcode()--> same error "Entry not Found"

I probe open the file before embeds open files:
GLO:NombreArchivo_Textos='archivo.txt'
and the error it's the same

 

Upvote 0 Downvote

• May 3, 2011

• Thread starter
• #4

edc000

Programmer

Mar 4, 2011

28

AR

WO

http://WWW!!

sorry that is:
after this code, I use the RECORD command for know total records in the ASCII file, but RECORDS not work in ASCII!! Your result is 0 (cero).

LOOP T#=1 TO RECORDS(TEXTOS) >----MY ERROR!!!!
...
END

Solution:

SET(textos)
LOOP
NEXT(textos)
IF LX:LINEA='' THEN BREAK. <--- Work perfect!
...
END

Sorry again Shankar! and thanks very much!

 

Upvote 0 Downvote

• May 3, 2011

• #5

ShankarJ

Programmer

Aug 9, 2003

856

Hi!

For ASCII files, you do not use RECORDS, you use BYTES() i.e.

Code:

OPEN(ASCIIFile, 42h)
IF ERRORCODE() ...

TotalBytes# = BYTES(ASCIIFile) ; ReadBytes# = 0

SET(ASCIIFile)
LOOP
   NEXT(ASCIIFile)

   IF ERRORCODE() THEN BREAK.

   ReadBytes# += BYTES(ASCIIFile)

   ! % completed = (ReadBytes# / TotalBytes#) * 100

   ...
END

Regards

 

Upvote 0 Downvote