Import dataport and skipping the header line

kriki

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)

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

kriki

And for more than 1 line:

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

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

are you sure the code is on PreDataItem not PreDataPort?

(variable "cha" is TYPE CHAR)

gulamdastagir

thanks savatage #-o

colingbradley

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

kriki

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

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

Simple and Brilliant.

Thanks. :thumbsup:

markborges

Worked like a charm! Thank you!

\:D/

euges

Perfect! Thanks.

kriki

I like it when I see that an old reply is still useful to fix problems.

gandhi_nkl

It works for me, thank you so much.