Имя: Пароль:
1C
 
Загрузка из txt в 1с 8
0 tiger_625
 
08.06.10
09:30
Кто-нить делал загрузку данных из текстового файла в 1С?
1 Defender aka LINN
 
08.06.10
09:39
Нет, конечно. Ты будешь первый.
2 ДенисЧ
 
08.06.10
09:40
(0) Это невозможно...
3 чувак
 
08.06.10
09:41
(0) А что там надо делать?
4 Чайник Рассела
 
08.06.10
09:41
1С не работает с текстовыми файлами
5 Дикообразко
 
08.06.10
09:42
)
6 Никола_
Питерский
 
08.06.10
09:44
Ушел за попкорном )))
7 tiger_625
 
08.06.10
09:45
надо загрузить данные из текстового файла в документ Оплата(конфигурация Расчет квартплаты), это нужно для биллинговой системы
8 Vladimirr
 
08.06.10
09:50
(0)(7) Я думаю это реально, без шуток
9 чувак
 
08.06.10
09:51
(7) В текстовом файле поля разделены каким либо символом? Если можно приведи кусок текста
10 ASU_Diamond
 
08.06.10
09:52
(0) с таким фото и г.р. не покатит загрузка
11 Eugeneer
 
08.06.10
09:52
Есть. Например универсальная загрузка с диска ИТС. загружает в том числе из текстовых файлов во все что угодно.
12 Eugeneer
 
08.06.10
09:53
(7) пишите ТЗ, сделаем за деньги :))
13 tiger_625
 
08.06.10
09:56
а пример есть хоть какой-нить, выгрузку для банка я сделала, там все ок, а с загрузкой проблемы
14 tiger_625
 
08.06.10
09:56
универсальная загрузка она из 7.7
15 ДенисЧ
 
08.06.10
09:56
(13) А какие проблемы? Что именно не получается?
16 tiger_625
 
08.06.10
09:57
001926;Резевская Галина;с.Воскресенское Дружбы ,5 9;1313,21;НЕТ;НЕТ;НЕТ;НЕТ;НЕТ;НЕТ
01854;Журина Валентина Николаев;с.Воскресенское Дружбы ,1 1;4162,84;НЕТ;НЕТ;НЕТ;НЕТ;НЕТ;НЕТ
01855;Леонтьев С.А.;с.Воскресенское Дружбы ,1 2;618,64;НЕТ;НЕТ;НЕТ;НЕТ;НЕТ;НЕТ
Вот кусок тескта
Не знаю с чего начать
17 ASU_Diamond
 
08.06.10
09:59
(16) открой в экселе, эксель раскидает в табличку, сохрани как dbf
18 ptiz
 
08.06.10
09:59
(16) Раньше грузил хоть откуда-нибудь?
19 ДенисЧ
 
08.06.10
09:59
(16) Начни с прочтения файла построчно.
Потом для каждой строки стр = """" + стрЗаменить(стр, ";", """;""") + """";
А потом строку с писок значений через ИзСтрокиСРазделителями
20 tiger_625
 
08.06.10
10:00
(18)неа
21 gr13
 
08.06.10
10:03
(20) а кого-нибудь?
22 чувак
 
08.06.10
10:04
(20) Для тебя лучший вариант открыть в экселе и разбить по колонкам и сохранить
23 ASU_Diamond
 
08.06.10
10:06
интересно что из такого файла вообще должно получиться...
24 tiger_625
 
08.06.10
10:09
(22) тоже вариант
25 ptiz
 
08.06.10
10:13
(22) Думаешь, с OLE ему будет легче разобраться?

Вот из "Простых примеров разработки"



Текст = Новый ТекстовыйДокумент;
Текст.Прочитать("c:\temp\text.txt");

Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл
Стр = Текст.ПолучитьСтроку(НомерСтроки);
Позиция = Найти(Стр, ";");
Код = Сред(Стр, 1, Позиция-1);
Наименование = Сред(Стр, Позиция + 1);

Сообщить(Код + "-" + Наименование);
КонецЦикла;
26 ASU_Diamond
 
08.06.10
10:13
(25) с dbf будет проще разобраться
27 tiger_625
 
08.06.10
10:15
(25)спасибо
28 Eugeneer
 
08.06.10
10:23
Я ответ уже написал. КТО НЕ ЧИТАЕТ я не виноват. На ИТС есть универсальная загрузка из экселя, дбф, текста для ВОСЬМЕРКИ.
29 tiger_625
 
08.06.10
10:37
я нашла,но только для 8.2
30 Serg_1960
 
08.06.10
10:42
(29) Возьми какой нибудь из прошлогодних ИТС - там для 8.1.

(25) И мои пять копеек :)

   Текст = Новый ТекстовыйДокумент;
   Текст.Прочитать(ПолноеИмяФайла);
   
   Для Номер = 1 По Текст.КоличествоСтрок() Цикл
       Строка = Текст.ПолучитьСтроку(Номер);
       Реквизиты = СтрЗаменить(Строка,";",Символы.ПС);
       Массив = Новый Массив();
       Для Индекс = 1 По СтрЧислоСтрок(Реквизиты) Цикл
           Массив.Добавить(СтрПолучитьСтроку(Реквизиты,Индекс));
       КонецЦикла;
       ...
       РеквизитХ = Массив[0];
       РеквизитY = Массив[1];
       ...
   КонецЦикла;
31 gr13
 
08.06.10
10:43
(29)       Консультант 1С   - обратись к программисту
32 lxs
 
08.06.10
10:48
(25) "ей"..
33 tiger_625
 
08.06.10
10:52
спасибо, все получилась, перевела на 8.2, обработка с дичка ИТС работает отлично
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший