delete string from text file using DELSTR

undy0602

Hello Developers,
I have to delete some lines from text file on the CU when I using XMLPORT. Below codes on the CU are read lines with filter. I found lines to delete but cant delete or skip it when I import into NAV table.
How can I delete this lines or skip when import data into NAV?

OnRun()
txtOneLine:=('C:\temp\'1111.txt');
intLen := varXmlFile.LEN;
WHILE varXmlFile.POS < intLen DO BEGIN
varXmlFile.READ(txtOneLine);
FieldExist := STRPOS(txtOneLine,'INFO'); // String to search
IF (FieldExist > 0) THEN
InvoiceTxt := COPYSTR(txtOneLine,FieldExist,4);
IF InvoiceTxt='INFO' THEN BEGIN
Result:=DELSTR(txtOneLine,1);
MESSAGE('deleted %1',DELSTR(txtOneLine,1));
END;
END;

Regards,
Undy