|
|
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);
|
|