Имя: Пароль:
1C
1C 7.7
v7: Поменять расширение
0 serg-lom89
 
13.11.13
15:13
подскажите как поменять расширение файла с TXT на TOV&
1 serg-lom89
 
13.11.13
15:13
на TOV?
2 zak555
 
13.11.13
15:13
перейти на ебунту ?
3 Chum
 
13.11.13
15:14
текст.записать(имя+".TOV&")
4 serg-lom89
 
13.11.13
15:14
получаеться я в TXT данные а на выходе надо файл с расширением  
TOV
5 serg-lom89
 
13.11.13
15:15
(3) Так если так то тогда сохроняет файл.txt c расширением .TOV
6 zak555
 
13.11.13
15:17
(4) код
7 serg-lom89
 
13.11.13
15:20
Т = создатьОбъект("Текст");
    Файл = создатьОбъект("Текст"); //создаем ссылку на файл DBF
    Файл.КодоваяСтраница(0);
    Файл.Очистить();
    
         Для i = 1  По Список.РазмерСписка()  Цикл
             ТекДок=Список.ПолучитьЗначение(i);
             Если Док_ПосТовВРозн.НайтиДокумент(ТекДок) = 1 Тогда  
                 ТекДок_Найденный= Док_ПосТовВРозн.ТекущийДокумент();  
                 Файл.ДобавитьСтроку("#;"+"02;"+ТекДок_Найденный.МестоХранения+";"+ТекДок_Найденный.НомерДок+";"+"1");
                 ТекДок_Найденный.ВыбратьСтроки();
                 Пока ТекДок_Найденный.ПолучитьСтроку()>0 Цикл
                     Файл.ДобавитьСтроку(СокрЛП(ТекДок_Найденный.Товар)+";"+ТекДок_Найденный.Товар.Код+";"+ТекДок_Найденный.Товар.ЕдиницаИзмерения+";"+ТекДок_Найденный.Количество+";"+ТекДок_Найденный.РозничнаяЦена+";"+ТекДок_Найденный.НДСРозн+";"+"ШТРИХКОД"+";"+";"+";"+ТекДок_Найденный.Товар.СтранаПроисхождения);
                     //?(ТекДок_Найденный.Товар.СтранаПроисхождения.Выбран()=1,ТекДок_Найденный.Товар.СтранаПроисхождения,Сообщить("не указана страна"))
                     
                     
                     Файл.Записать(ИмяФайла);
                     
                 КонецЦикла;
             КонецЕсли;
         КонецЦикла;    
    //Т.КодоваяСтраница(0);
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.