Уважаемые, нужен конвертер файлов. Есть DBF-ки (старой проги не 1С), а нужно из них сделать текстовички (чтоб информацию потом в 1С обработкой загнать). Дайте ссылочку плиз.. Или на мыло.

Спасибо.

Или кто посоветует другой способ?

Екселем открыть и сохранить.:))
Или из 1С прочитать, попробовать.

Excel, Access, 1C. Или это не dBase?

(1) :) Точно. Попробую.
(2) dBase

Спасибо.

:( Эксель 2003 не открыл. Наверное потому что в файле почти 200 тысяч записей. У него вроде 65 тысяч вроде...

у него - у Экселя 2003

(4)Открой 1С-ом. В чем проблема?

(6) Пока не сталкивался. Просвяти темного. :) Как?

да очень просто. открываешь файл и считывешь одну за другой запись. это проще чем текстовые читать. если хочешь научу. пиши в аську 48864053

(7)Загрузка банковской выписки из банк-клиента:
Процедура импорт()
   ДБФ=СоздатьОбъект("Xbase");
   Контра=СоздатьОбъект("Справочник.Контрагенты");
   ДБФ.ОткрытьФайл(СокрЛП(Константа.ПутьКБанку)+"export.dbf",,0);
   ДБФ.Первая();
   Пока ДБФ.ВКонце()=0 Цикл
       Если Дата(ДБФ.DATE_DOC)=ДатаДок Тогда
           Если (СокрЛП(РСчет.Номерсчета)=СокрЛП(ДБФ.ACCOUNT_A))или(СокрЛП(РСчет.Номерсчета)=СокрЛП(ДБФ.ACCOUNT_B)) Тогда
               новаястрока();
               Если ДБФ.DOC_DT_KT=0 Тогда//расход
                   ПриходРасход=Перечисление.ПлюсМинус.Минус;
                   счет=СчетПоКоду("6311");
                   ДоходИздержка = Перечисление.ПлюсМинусНичего.Минус;
                   НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыРасходаДенег");
                   ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности;
               Иначе
                   ПриходРасход=Перечисление.ПлюсМинус.Плюс;
                   счет=СчетПоКоду("3611");
                   ДоходИздержка = Перечисление.ПлюсМинусНичего.Плюс;
                   НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыПриходаДенег");
                   ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
               Конецесли;    
               НазначитьТип("Субконто","Справочник.Контрагенты");
               НазначитьТип("Заказ","Документ");
               НиО=Создатьобъект("Справочник.налогиОтчисления");
               НиО.НайтиПоКоду("БезНДС");
               ВидНДС=НиО.ТекущийЭлемент();
               Если Контра.найтиПоРеквизиту("ЕДРПОУ",?(ДБФ.DOC_DT_KT=0,СокрЛП(ДБФ.OKPO2_B),СокрЛП(ДБФ.OKPO1_A)),1)=1 тогда
                   Субконто=Контра.ТекущийЭлемент();
               Конецесли;    
               суммаСНДС=ДБФ.SUM_DOC;
               суммаПлатежа=ДБФ.SUM_DOC;
               НДС = СуммаСНДС*ВидНДС.Ставка.Получить(ДатаДок)/(1+ВидНДС.Ставка.Получить(ДатаДок));
               субконтоДИ=Константа.БазВаловыйдоход;
               УказанаОтгрузка=Нет;
               содержание=ДБФ.N_P;
               номердокумента=ДБФ.N_D;
               ОперационнаяКР=Нет;
           Конецесли;    
       Конецесли;    
       ДБФ.Следующая();
   КонецЦикла;
Конецпроцедуры

(8) Из (9) вижу как.
(9) Благодарю.

(0)Извращенец