fff=FOPEN("C:\rem.csv")
SELE 0
CREATE DBF C:\TEMP.DBF (Stroka M(10))
DO WHILE .NOT.FEOF(fff)
  string=FGETS(fff)
  SELE TEMP
  APPE BLANK
  REPL Stroka WITH string
ENDDO  

SELE TEMP
LOCA FOR LEFT(Stroka,3)=';На' && откуда начинать поиск
IF .NOT.FOUND()
  MESSAGEBOX('изменена структура')
  RETURN
  thisform.Release()
ENDIF

*счетчик
j=0       && кол-во разделителей
i=1       &&позиция в строке
xxx=ALLT(Stroka)
xlen=LEN(xxx)
DO WHILE i<xlen
  xsim=SUBSTR(Stroka,i,1)
  IF xsim=';'
    j=j+1
    xsim1=SUBSTR(Stroka,i+1,1)
    IF ISDIGIT(xsim1)
      k=i+1
      m=k+1
      DO WHILE .T.
        xsim2=SUBSTR(Stroka,m,1)
        IF xsim2<>';'
          m=m+1
          if m>500
            exit
          endif  
        ELSE
          kol_pos=m-k
          EXIT
        ENDIF
      ENDDO
      SELE TEMP1
      APPE BLANK
      REPL N_kol WITH j, D_otgr WITH SUBSTR(TEMP.Stroka,k,kol_pos)
      wait 'обработка'+str(j,3) wind nowa
    ENDIF
  ENDIF
  SELE TEMP
  i=i+1  
ENDDO