Dataport: Space as FieldSeparator

It4Ch1 · 2010-05-31

001 027001112564 20100504 10152724 4966230232904802 01 20100504 000012 4300 1 001772
001 027001112564 20100504 10152724 4506180037464337 01 20100504 000013 199000 1 007598
002 027001112564 20100504 00000000203300 000000000002 00000000000000 000000000000 00000000000000 000000000000
003 027001112564 20100504 00000000000000 01450 000000000000 00000000000000
004 027001112564 20100504 00000000203300 01380 000000002806 00000000200494
005 027001112564 20100504 00000000000000 01450 000000000000 00000000000000
006 027001112564 20100504 00000000000000 01450 000000000000 00000000000000
007 027001112564 20100504 00000000000000 02500 000000000000 00000000000000
008 027001112564 20100504 00000000203300 000000002806 00000000200494
001 027001112663 20100504 10152718 5239450030332653 03 20100504 000504 11800 1 R40242
001 027001112663 20100504 10152718 4283320019305210 02 20100504 000505 40800 1 007670
002 027001112663 20100504 00000000052600 000000000002 00000000000000 000000000000 00000000000000 000000000000
003 027001112663 20100504 00000000000000 01450 000000000000 00000000000000
004 027001112663 20100504 00000000000000 01380 000000000000 00000000000000
005 027001112663 20100504 00000000000000 01450 000000000000 00000000000000
006 027001112663 20100504 00000000011800 01450 000000000163 00000000011637
007 027001112663 20100504 00000000000000 02500 000000000000 00000000000000
008 027001112663 20100504 00000000052600 000000000726 00000000051874

with data as above, how can I set the dataport to import data with <space> as its field separator?

Belias · 2010-05-31

i think it's not possible, but the space is not a good field separator: can't you use another one?for example ## or <TAB>...

rdebath · 2010-05-31

Try this:

OBJECT Dataport 70004 Import SPACE to Staging
{
  OBJECT-PROPERTIES
  {
    Date=31/05/10;
    Time=08:19:27;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    FieldSeparator=[ ];
  }
  DATAITEMS
  {
    { PROPERTIES
      {
        DataItemTable=Table70000;
        AutoSave=No;
        AutoUpdate=No;
        AutoReplace=No;
        DataItemTableView=SORTING(User ID,Line No.);
        OnPreDataItem=VAR
                        CH@1000000000 : Char;
                      BEGIN
                        IF CurrDataport.IMPORT THEN BEGIN
                          RESET;
                          SETRANGE("User ID", USERID);
                          IF FIND('-') THEN
                            ERROR('Please clear import staging');

                          RESET;
                          "User ID" := USERID;

                          // Skip first line.
                        //  WHILE (CurrFile.READ(CH) <> 0) AND (CH <> 10) DO ;
                        END;

                        StartedAt := CURRENTDATETIME;
                      END;

        OnBeforeImportRecord=BEGIN
                               INIT;
                               "Line No." := "Line No." + 1;
                             END;

        OnAfterImportRecord=BEGIN
                              INSERT(TRUE);
                            END;

        OnPostDataItem=BEGIN
                         MESSAGE('Completed in %1', CURRENTDATETIME-StartedAt);
                       END;

      }
      FIELDS
      {
        {      ;80   ;"Column 1"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 2"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 3"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 4"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 5"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 6"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 7"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 8"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 9"          ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 10"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 11"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 12"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 13"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 14"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 15"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 16"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 17"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 18"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 19"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        {      ;80   ;"Column 20"         ;OnBeforeEvaluateField=BEGIN
                                                                   Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 21"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 22"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 23"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 24"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 25"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 26"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 27"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 28"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 29"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 30"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 31"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 32"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 33"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 34"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 35"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 36"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 37"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 38"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 39"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
        { 0    ;80   ;"Column 40"         ;OnBeforeEvaluateField=BEGIN
                                                                      Text := DELCHR(Text, '<>')
                                                                 END;
                                                                  }
      }
       }
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=9020;
      Height=3410;
    }
    CONTROLS
    {
    }
  }
  CODE
  {
    VAR
      StartedAt@1000000000 : DateTime;

    BEGIN
    END.
  }
}

Belias · 2010-05-31

Did you set the separator from text object?nice one! =D>

rdebath · 2010-05-31

Shhhhh! You weren't supposed to notice.

It4Ch1 · 2010-05-31

Belias wrote:

Did you set the separator from text object?nice one! =D>

saw that the first time.

giving it a go

Dataport: Space as FieldSeparator

Answers

Categories