Repeat read folder

julkifli33 · **Posted:** Wed Feb 08, 2012 11:44 am

Hi All,
i have created how to read file and then insert to NAV
like this

SFile.TEXTMODE(TRUE);
SFile.WRITEMODE(FALSE);
SFile.OPEN(GLSetup."Import Path" + 'TestItem.txt');
  REPEAT 
   //codeinsert to NAV
  UNTIL SFile.POS = SFile.LEN;

but this one is I did it using hardcode
which is only can read TestItem.txt
how to read all the txt file in GLSetup."Import Path" ??
and how to read only the file which start with "ABC" ?
thanks

mohana_cse06 · **Posted:** Wed Feb 08, 2012 11:51 am

Try

Code: Select all

SFile.SETRANGE(Path,GLSetup."Import Path");
// Name Filter
IF SFile.FINDSET THEN
  REPEAT
     // Read the file and insert into NAV
  UNTIL SFile.Next = 0;

julkifli33 · **Posted:** Wed Feb 08, 2012 11:53 am

mohana_cse06 wrote:

Try

Code: Select all

SFile.SETRANGE(Path,GLSetup."Import Path");
// Name Filter
IF SFile.FINDSET THEN
  REPEAT
     // Read the file and insert into NAV
  UNTIL SFile.Next = 0;

SFile is datatype file, is it?
i cant do setrange

mohana_cse06 · **Posted:** Wed Feb 08, 2012 12:16 pm

Create new global variable with Datatype record and Subtype File
Use that for Filtering..

julkifli33 · **Posted:** Wed Feb 08, 2012 3:40 pm

mohana_cse06 wrote:

Create new global variable with Datatype record and Subtype File
Use that for Filtering..

and how about to change the file name ?
this part -->

Code: Select all

SFile.OPEN(GLSetup."Import Path" + 'TestItem.txt');

for example i just want to read every txt file start with "ABC"

mohana_cse06 · **Posted:** Wed Feb 08, 2012 4:10 pm

mohana_cse06 wrote:

Try

Code: Select all

SFile.SETRANGE(Path,GLSetup."Import Path");
// Name Filter
IF SFile.FINDSET THEN
  REPEAT
     // Read the file and insert into NAV
  UNTIL SFile.Next = 0;

Add your Name filter just below Path..

julkifli33 · **Posted:** Wed Feb 08, 2012 4:53 pm

Hi Mohana,
now it works
thanks for your help

final code

Code: Select all

GLSetup.GET;
SFile1.SETRANGE(Path,GLSetup."Import Path");
SFile1.SETRANGE("Is a file",TRUE);
IF SFile1.FINDSET THEN
REPEAT
SFile.TEXTMODE(TRUE);
SFile.WRITEMODE(FALSE);
SFile.OPEN(GLSetup."Import Path" + SFile1.Name);
  REPEAT
.
.
.

$\:D/$ $\:D/$

mohana_cse06 · **Posted:** Wed Feb 08, 2012 4:56 pm

julkifli33 wrote:

Hi Mohana,
now it works
thanks for your help

$\:D/$ $\:D/$

Welcome

colingbradley · **Posted:** Thu Feb 23, 2012 2:24 pm

I am getting errors using either global or local variable for the record type File
the code so far is:
Local Vars:
Name DataType Subtype Length

Code: Select all

lvFile                   Record   File   
lvField           Text                         100
lvWebImport   Record   Web Import 1   
lvString           Text                         1000
lvStringLine         Text                             1000
lvFile1           File      

CLEAR(lvFile);
lvFile.setrange(path,'C:\temp\');
lvfile.setfilter(name, '%1' , 'test*.txt');
if lvFile.FINDSET THEN BEGIN

(next 3 lines give error)

Code: Select all

//LVfile.TEXTMODE(TRUE);
//LVFile.WRITEMODE(FALSE);
//LVFile.OPEN(lvFile.path + name);

? How to get text lines in the file into lvString?

Code: Select all

  with lvString do
  repeat
  lvField[1] := copystr(lvStringLine,1,20);
  etc
  until lvString.next = 0;
  
end;

I am obviously missing something key here, I can find my .txt files, I then need to read each file and for each line in the file insert to a field in a table.

mohana_cse06 · **Posted:** Thu Feb 23, 2012 2:43 pm

colingbradley wrote:

(next 3 lines give error)

Code: Select all

//LVfile.TEXTMODE(TRUE);
//LVFile.WRITEMODE(FALSE);
//LVFile.OPEN(lvFile.path + name);

Use LVFile1 instead of LVFile

colingbradley · **Posted:** Thu Feb 23, 2012 2:59 pm

You are correct, these work.
LVfile1.TEXTMODE(TRUE);
LVFile1.WRITEMODE(FALSE);
LVFile1.OPEN(lvFile.path + lvfile.name);

next question is how do I read the data within lvFile1 into a table?

Administrator · **Posted:** Thu Feb 23, 2012 3:02 pm

colingbradley wrote:

next question is how do I read the data within lvFile1 into a table?

The topic title of this thread is "Repeat read folder", which is marked as solved. If you question is not related to this topic, then please start a new thread.

mibuso.com

Repeat read folder

Who is online