Рада, что я Вас насмешила, но делать надо. Высылаю файл который мне надо преобразовать в таблицу и код. Если Вы не подскажите, ну что ж, а если подскажите, то заранее благодарна.
Код программы:

NameFile=getfile()
set step on
m.str=FILETOSTR(NameFile)
m.str = CPCONVERT(866, 1251, m.str)
m.str=onespace(m.str)
StrTran(m.str,Chr(0x0D),' ')
CREATE TABLE q_data (dt d, n1 i, n2 i, d1 n(10,2), c1 c(20))
DO while !EMPTY(m.str)
m.x=AT(' 200',m.str)
IF m.x>0
addstring(SUBSTR(m.str,1,m.x))
m.str=SUBSTR(m.str,m.x+1)
ELSE
addstring(m.str)
m.str=''
ENDIF
ENDDO

PROCEDURE addstring
LPARAMETERS str
LOCAL dt,y,n1,n2,d1,c1
m.dt=DATE(VAL(SUBSTR(m.str,1,4)),VAL(SUBSTR(m.str,5,2)),VAL(SUBSTR(m.str,7,2)))
m.str=SUBSTR(m.str,10)
m.y=AT(' ',m.str)
m.n1=VAL(SUBSTR(m.str,1,m.y))
m.str=SUBSTR(m.str,m.y+1)
m.y=AT(' ',m.str)
m.n2=VAL(SUBSTR(m.str,1,m.y))
m.str=SUBSTR(m.str,m.y+1)
m.y=AT(' ',m.str)
m.d1=VAL(SUBSTR(m.str,1,m.y))
m.str=SUBSTR(m.str,m.y+1)
m.c1=m.str
INSERT INTO q_data FROM MEMVAR
RETURN

Function onespace
lparameters cStr
local i, lFlag, cRes, cChar
cRes = ""
lFlag = .t.
for i=1 to len(cStr)
cChar = substr(cStr,i,1)
if !cChar==' ' or !lFlag
cRes = cRes + cChar
endif
lFlag = cChar==' '
endfor
return rtrim(cRes)

Да я уже месяц задаю вопросы, но к сожалению пробую все, но ничего не подходит, то ли я задаю некорректные вопросы, то ли..

У меня кстати фокс тоже 6

Ладно дома книгу возьму почитаю, а то получается, что не я, а Вы за меня задачу решите, а я так не люблю. Всем спасибо.

Всем кто мне помог огромное спасибо. У меня почти все получилось, стоило только взять книгу по Фоксу. Единственное что на данном этапе меня волнует, так это то, что функция: m.str = CPCONVERT (866, 1251, m1.str) что - то не работает, сейчас буду разбираться. Если кто - то заметил ошибку и напишет мне, буду только благодарна

Спасибо всем еще раз, у меня все получилось, наверно буду писать почаще, а то если меня не будет, кто вам будет поднимать настроение