File Correction

philippegirod

The problem :
A file contains " ; \ and some other characters difficult to import in Navision. Those charcater are insides fields (for instance in Customer Address). How to import those files ?

Solution : Correct the file before import
The code bellow open the file to correct, replace Chars and create a new file. This function can't replace a char by itself ! Be carefull !

[Vars]
Name	                DataType	               Length
OriginalFile	                File		
CorrectedFile	File		
CharToReplace	Text		10
CharReplaceBy	Text		10
in_line	                Text		1024

IF EXISTS(OriginalFileName) THEN BEGIN

     OriginalFile.OPEN(OriginalFileName);
     OriginalFile.TEXTMODE  := TRUE;
     OriginalFile.WRITEMODE := TRUE;

     CorrectedFile.CREATE(CorrectedFileName);
     CorrectedFile.TEXTMODE  := TRUE;
     CorrectedFile.WRITEMODE := TRUE; 



         IF OriginalFile.POS < OriginalFile.LEN THEN REPEAT
            OriginalFile.READ(in_line); 
               IF STRPOS(in_line,CharToReplace) <> 0 THEN REPEAT
                  j := j+1;
                  stringPos := STRPOS(in_line,CharToReplace);
                  in_line := COPYSTR(in_line,1,stringPos-1) + CharReplaceBy + COPYSTR(in_line,stringPos+1);
               UNTIL (STRPOS(in_line,CharToReplace) = 0);
               CorrectedFile.WRITE(in_line);

         UNTIL (OriginalFile.POS >= OriginalFile.LEN);
     OriginalFile.CLOSE;
     CorrectedFile.CLOSE;
END;