* это основное
STRTOFILE(STRTRAN(strconv(FileToStr('Example.TXT'), 6),[|],[","]),'1.txt')
* а дальше - необходимая "косметика"
x=FOPEN('1.txt')
IF x<0
  RETURN
ENDIF
y=FCREATE('11.txt')
IF y<0
  =FCLOSE(x)
  RETURN
ENDIF
* первые 3 строки пропускаем
=FGETS(x)
=FGETS(x)
=FGETS(x)
DO WHILE !FEOF(x)
  s=FGETS(x)
* отрезаем по 2 символа в начале и в конце строки
  ss=SUBSTR(s,3,LEN(s)-4)
  =FPUTS(y,ss)
ENDDO
=FCLOSE(x)
=FCLOSE(y)
* названмя и длины полей сам подправишь
CREATE TABLE example FREE (f1 C(10), f2 C(10), f3 C(10), f4 C(50), f5 C(70), f6 C(50))
APPEND FROM 11.txt TYPE DELIMITED AS 1251
BROW
USE
ERASE 1.txt
ERASE 11.txt