Import dataport and skipping the header line

kriki · **Posted:** Thu Mar 16, 2006 6:34 pm

Problem:you have a textfile with headers and you must import it with a dataport, but you want to skip the header line, because otherwise you get an error. How to do that?

Put some code in trigger "OnPreDataItem()":
(variable "cha" is CHAR)

Code: Select all

IF CurrDataport.IMPORT THEN BEGIN
  REPEAT
    CurrFile.READ(cha);
  UNTIL cha = 10; // of course in case the RecordSeparator is "<<NewLine>>"
END;

kriki · **Posted:** Tue Mar 21, 2006 1:15 pm

And for more than 1 line:

Code: Select all

IF CurrDataport.IMPORT THEN BEGIN
  LintLinesToRead := 2; // lines that must be read (this is an integer)
  REPEAT
    CurrFile.READ(cha);
    IF cha = 10 THEN
      LintLinesToRead -= 1;
  UNTIL LintLinesToRead = 0;
END;

gulamdastagir · **Posted:** Fri Jun 20, 2008 5:23 am

I get an error "File is not open" at Currfile.Read(cha) part of the code.

i dont want to hardocode the filepath but when the "user" slects the "csv"file from the options tab

iam using 4.0(SP3)

Thanks

Savatage · **Posted:** Fri Jun 20, 2008 6:27 am

are you sure the code is on PreDataItem not PreDataPort?

(variable "cha" is TYPE CHAR)

gulamdastagir · **Posted:** Fri Jun 20, 2008 7:18 am

thanks savatage #-o

colingbradley · **Posted:** Mon May 30, 2011 10:06 am

I am missing the logic for the Until cha = 10;
Is 10 the expected number of records?

kriki · **Posted:** Tue May 31, 2011 5:36 pm

No, the 10 is the ASCII value of the line feed.

A newline in a textfile is defined by 2 chars : CR/LF = Carriage Return + Line Feed = ASCII 13 + ASCII 10.

So I am reading char per char until I find ASCII value = 10. When I have found it, I know I am at the end-of-line.

colingbradley · **Posted:** Tue May 31, 2011 10:33 pm

Thanks, it is a long time since I had to think about ASCII.
I have used your code and it works perfectly, many thanks.

David Singleton · **Posted:** Mon Apr 16, 2012 10:38 pm

Simple and Brilliant.

Thanks. :thumbsup:

mibuso.com

Import dataport and skipping the header line

Who is online