Как открыть два dbf файла?
14.03.2011
14:52
#1
"Добрый день, попытался открыть два dbf файла для добовления информации из одного в другой, невышло((
Вообще это возможно?
как делал:
ИмяФайла = ФС.НайтиПервыйФайл(ПутьКПапкеСdbfФайлами+"*.dbf");
Файл = СоздатьОбъект("XBASE");
ИмяФайла2 = ФС.НайтиПервыйФайл(ПутьКПапкеСdbfФайлами2+"*.dbf");
Файл2 = СоздатьОбъект("XBASE");
Пока ПустаяСтрока(ИмяФайла) = 0 Цикл
Если (ИмяФайла <> "..") И (ИмяФайла <> ".") Тогда
Файл.ОткрытьФайл(ПутьКПапкеСdbfФайлами+ИмяФайла,"""");
сообщить(ИмяФайла);
Файл.КодоваяСтраница(1);
Файл.Первая();
Пока Файл.ВКонце()=0 Цикл
Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл
Если (ИмяФайла2 <> "..") И (ИмяФайла2 <> ".") Тогда
Файл2.ОткрытьФайл(ПутьКПапкеСdbfФайлами2+ИмяФайла2,"""");
сообщить(ИмяФайла);
Файл2.КодоваяСтраница(1);
Файл2.Первая();
Пока Файл2.ВКонце()=0 Цикл
************************
************************
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Файл.ЗакрытьФайл();
ИмяФайла = ФС.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры"
Вообще это возможно?
как делал:
ИмяФайла = ФС.НайтиПервыйФайл(ПутьКПапкеСdbfФайлами+"*.dbf");
Файл = СоздатьОбъект("XBASE");
ИмяФайла2 = ФС.НайтиПервыйФайл(ПутьКПапкеСdbfФайлами2+"*.dbf");
Файл2 = СоздатьОбъект("XBASE");
Пока ПустаяСтрока(ИмяФайла) = 0 Цикл
Если (ИмяФайла <> "..") И (ИмяФайла <> ".") Тогда
Файл.ОткрытьФайл(ПутьКПапкеСdbfФайлами+ИмяФайла,"""");
сообщить(ИмяФайла);
Файл.КодоваяСтраница(1);
Файл.Первая();
Пока Файл.ВКонце()=0 Цикл
Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл
Если (ИмяФайла2 <> "..") И (ИмяФайла2 <> ".") Тогда
Файл2.ОткрытьФайл(ПутьКПапкеСdbfФайлами2+ИмяФайла2,"""");
сообщить(ИмяФайла);
Файл2.КодоваяСтраница(1);
Файл2.Первая();
Пока Файл2.ВКонце()=0 Цикл
************************
************************
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Файл.ЗакрытьФайл();
ИмяФайла = ФС.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры"
14.03.2011
15:14
#2
Простите это что такое:
> Пока ПустаяСтрока(ИмяФайла) = 0 Цикл
....
> Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл
...
Вы в цикле отрываете файлы? И это в вашем понимании 2 файла?
Еще вопрос - а если структуры файлов отличаются?
Вы попробуйте сначала реально на 2-х файлах, так хоть понятно будет, что не так и где не так.
Если вы таким способом копируете базу, то есть еще вопрос об открытых файлах.
В общем - из одного файла перекинуть информацию в другой файл можно.
> Пока ПустаяСтрока(ИмяФайла) = 0 Цикл
....
> Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл
...
Вы в цикле отрываете файлы? И это в вашем понимании 2 файла?
Еще вопрос - а если структуры файлов отличаются?
Вы попробуйте сначала реально на 2-х файлах, так хоть понятно будет, что не так и где не так.
Если вы таким способом копируете базу, то есть еще вопрос об открытых файлах.
В общем - из одного файла перекинуть информацию в другой файл можно.
Читают тему
(гостей: 1)