Задача такая - есть дбф но не все символы в полях отображаються корректно.. REPLACE FIO WITH STRTRAN меняю нечитаемые символы на нужные.И если бы не украинская заглавные буквы "І" и "Є"то проблема была бы решена- но такие фамилии как Іванов начинались бы с пропиской буквы.. вот тут у меня начинаются проблемы - не знаю как имя открытой дбф загнать в переменнуюмя ,а потом вернуть в имя дбф- нужно для того чтобы после манипуляций по изменению структуры дбф вернуть в конце процедуры ее первоначальное имя...Структуру меняю для того чтобы после copy to ..... TYPE SDF поднять на новую структуру дбф потом обработать украинские буквы из прописных в заглавные и вернуть в изначальную структуры дбф с ее же первоначальным именем.. может я что то заумное придумал.. но пока так.. если будут другие варианты готов расмотреть... а пока подскажите как загнать имя дбф в перемнную и вернуть потом..

Трезвый,

да именно это я пробовал... но не понял как вернуть имя.. там ведь прописыватся весь путь до дбф-ки ..

Народ...короче как пел В. Висоцкий - если туп как дерево.. то родишся баобабом... ложу свой пример ..исправте плиз..короче я пока просто хочу сделать копию дбф в другое место...если получится тогда буду менять структуру , имя и возвращать в конце процедуры исходное имя..Кодовая страница в примере дбф 866.Кстати только на этом примере понял что нужно доделать только одну букву "І"..

igorbik,

Спасибо за помощь... но я все таки пошел немного по другому пути..щас немного занят другим.. но допишу код и покажу как реализовал..просто как говорят нужно хранить копии написаных прог чтобы потом не мучать других..

Короче менять мне нужно только те символы что не читаются.. вечная проблема чисто украинских букв... в ексель все выводится из прогрммы корректно..но дбф с нечитаемыми символами.. вот поэтому банки просят откоректировать дбф...Сделал в итоге так :
SET DEFAULT TO C:\Employment\Source\foBank\
USE ?
BROWSE
CLEAR
? ALIAS( ) && Display the alias
STORE ALIAS( )to v1
copy to C:\Employment\Source\Correct\1.txt TYPE SDF fields nsc, fio, summa ,ved , name_b ,id_kod
CREATE TABLE C:\Employment\Source\Correct\21;
(nsc C(16),fio_cor C(1),fio C(49), summa N(12,2), ved N(8), name_b C(50),id_kod C(10))
APPEND FROM C:\Employment\Source\Correct\1.txt TYPE sdf
REPLACE FIO WITH STRTRAN(FIO,' _',' I') ALL
REPLACE FIO WITH STRTRAN(FIO,'_','│') ALL
REPLACE Name_b WITH STRTRAN(Name_b,'_','│') ALL
REPLACE fio_cor WITH STRTRAN(fio_cor,'i','▓') ALL
copy to C:\Employment\Source\Correct\11.txt TYPE SDF fields nsc,fio_cor, fio, summa , ved , name_b ,id_kod
CREATE TABLE C:\Employment\Source\Correct\22.dbf;
(nsc C(16),fio C(50), summa N(12,2), ved N(8), name_b C(50),id_kod C(10))
APPEND FROM C:\Employment\Source\Correct\11.txt TYPE sdf
SET DEFAULT TO C:\Employment\Source\Correct\
? v1
COPY TO (v1)
BROWSE
quit
Может не самый "умный" вариант...но я к этому и не стремился..главное работает.. щас доделаю чтобы отдать ползователям и забуду о этом..

ВладимирМ,
извените я ваще не програмер... я гдето так слегка админ... на фоксе пишу чисто по необходимости.. избавится от рутины...и на Ваш вопрос не совсем знаю ответ.. вернее ваще не понимаю о чем Вы... если сделает прога не то имя файла.. то оператор скажет что не получилось...если о том то ли загружают.. и то ли получилось .. стоит два раза BROWSE чтобы удостоверится что то загрузил (элементарно сверяют с распечатаной ведомостью первый раз и второй все ли удачно прошло.. чисто визуально..) .. я так подозреваю ответил совсем не по теме .. но извените..

ВладимирМ,

Может я и не прав но... после use ? выбираю нужную дбф (кстати когда ее формируем в программе то четко указываем 866 кодовую страницу) естественно после того как указали какую дбф открывать указываем руками кодовую страницу MS-DOS 866 и фокс отрывает ее в нужной нам кодировке... так что спрашивать фокса а в какой ?CPDBF() я думаю не совсем логично... руками то ведь указали кодовую страницу.. в приниципе можна было принидительно все это прописать в какой кодовой странице открывать.. но тогда оператор ваще не о чем думать не будет.. тогда если следовать такой же логике то нужно заремить и два BROWSE.. типа зачем утруждать оператора два раза лишних щелкать мышкой..Короче каждый пишет так как считает нужным.. и для меня главное результат.. работает и фиг с ним..а то что не по каким то канонам сделал.. ну извените не учил я этого в университетах...я инженер-механик по образованию..а механику что главное.. правильно -чтобы работало..

ВладимирМ,

спасибо почитаю на досуге.. только вот ехе файлы я не делаю.. не вижу надобности...