Обработка текстового документа в таблицу значений

@Moshik · Регистрация: 28.01.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток.

Скажу сразу, опыта нету, поэтому вопросы могут звучать глупо. Учусь самостоятельно, но упорно.

Итак, идея такова:

Имеем текстовый файл (.txt), содержимое:
45;Московская 38
46;Кулибина 15

Первое значение это "Номер подразделения", второе "Адрес".
Необходимо сделать обработку загрузки этого файла в справочник "Места хранения".

На форме имеется поле ввода "ВыборФайла" и его обработчик:

1C

&НаКлиенте
Процедура ВыборФайлаОткрытие(Элемент, СтандартнаяОбработка)
 
        СтандартнаяОбработка = Ложь;
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Текст = "ru = ""Текст""; en = ""Text""";
    Фильтр = НСтр(Текст)+"(*.txt)|*.txt";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
        Для Каждого ИмяФайла Из МассивФайлов Цикл
            ВыбФайл = Новый Файл(ИмяФайла);
            Текст = "ru = ""; Размер = ""; en = ""; Size = """;
            Предупреждение(ИмяФайла+НСтр(Текст)+ВыбФайл.Размер());
        КонецЦикла;
    Иначе
        Текст = "ru = ""Файл(ы) не выбран!""; en = ""File(s) not selected!""";
        Предупреждение(НСтр(Текст));
    КонецЕсли;
        ВыборФайла = ИмяФайла;
КонецПроцедуры

Файл выбрал, теперь хочу считать его в таблицу значений "ТЗДанныеФайла" в которой 2 колонки "Номер подразделения" и "Адрес подразделения", чтобы посмотреть чего загрузилось и если что, то что-то поправить. И вот тут на меня напал ступор, я понимаю что нужно в цикле перебрать все строки и занести их в таблицу значений, но как это сделать и как заставить программу воспринять разделитель ";" за разделитель колонок, я не могу.

Хватило только на то чтобы это запустить в цикл:

1C

&НаКлиенте
Процедура ЗаполнитьТЗДанныеФайла(Команда, ВыборФайла)
 
    Текст = Новый ЧтениеТекста(Элементы.ВыборФайла.ТекстРедактирования);
    Стр = Текст.ПрочитатьСтроку();
    Пока Стр <> Неопределено Цикл
        Сообщить(Стр);
        Стр = Текст.ПрочитатьСтроку();
    КонецЦикла;
    
КонецПроцедуры

Знаю, что новичков не любят, но прошу помощи в реализации этого, по возможности как можно подробнее, хочу не просто решение задачи, но и понимание этого решения.

@duk337 · 02.06.2012, 17:53

Итак, есть стр, в которой "0986345678;длордордордордор", так?
Нам нужно добавить строку в таблицу значений и занести в две колонки "Номер" и "Адрес", так?
Перед циклом создать ТЗ, в цикле добавлять строки и заполнять, разделяя по ";". Разделять строку просто: заменить разделитель на перевод строки и брать кусочки по индексу.

1C

Таб=Новый ТаблицаЗначений;
Таб.Колонки.Добавить("Номер");
Таб.Колонки.Добавить("Адрес");
Текст = Новый ЧтениеТекста("d:\win.txt", КодировкаТекста.ANSI);
Пока Истина Цикл
Стр = Текст.ПрочитатьСтроку();
Если Стр=Неопределено Тогда Прервать;КонецЕсли;
СтрТаб=Таб.Добавить();
ПолиСтр=СтрЗаменить(стр,";",Символы.ПС);
СтрТаб.Номер=СтрПолучитьСтроку(ПолиСтр,1);
СтрТаб.Адрес=СтрПолучитьСтроку(ПолиСтр,2);
КонецЦикла;

@Moshik · 02.06.2012, 19:15 **[ТС]**

Сообщение от duk337

Итак, есть стр, в которой "0986345678;длордордордордор", так?
Нам нужно добавить строку в таблицу значений и занести в две колонки "Номер" и "Адрес", так?
Перед циклом создать ТЗ, в цикле добавлять строки и заполнять, разделяя по ";". Разделять строку просто: заменить разделитель на перевод строки и брать кусочки по индексу.

1C

Таб=Новый ТаблицаЗначений;
Таб.Колонки.Добавить("Номер");
Таб.Колонки.Добавить("Адрес");
Текст = Новый ЧтениеТекста("d:\win.txt", КодировкаТекста.ANSI);
Пока Истина Цикл
Стр = Текст.ПрочитатьСтроку();
Если Стр=Неопределено Тогда Прервать;КонецЕсли;
СтрТаб=Таб.Добавить();
ПолиСтр=СтрЗаменить(стр,";",Символы.ПС);
СтрТаб.Номер=СтрПолучитьСтроку(ПолиСтр,1);
СтрТаб.Адрес=СтрПолучитьСтроку(ПолиСтр,2);
КонецЦикла;

Насколько я понял создание таблицы значений должно происходить на сервере. Вызвать не проблема. Но, нужно в эту процедуру как-то передать путь к выбранному файлу в другой процедуре. То есть файл я забираю не из определенного места, а из выбранного мной места.

@duk337 · 02.06.2012, 19:49

Есть такая возможность

1C

    ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогВыбораФайла.Заголовок = "файл я забираю из выбранного мной места";
    ДиалогВыбораФайла.Фильтр    = "Табличный документ (*.mxl)|*.mxl|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|";
    Если ДиалогВыбораФайла.Выбрать() Тогда
    ФайлНаДиске = Новый Файл(ДиалогВыбораФайла.ПолноеИмяФайла);
    КонецЕсли;

@Fenomen · 02.06.2012, 21:43

Сообщение от Moshik

Но, нужно в эту процедуру как-то передать путь к выбранному файлу в другой процедуре. То есть файл я забираю не из определенного места, а из выбранного мной места.

Вам нужно передавать не путь к файлу а сам файл, т.к. сервер может(а скорее всего так и будет) находится не на вашем ПК.
Для передачи файла на клиенте используйте функцию ПоместитьФайл(), а на сервере ПолучитьИзВременногоХранилища(). Описание функций в синтаксис помощнике.

@Moshik · 03.06.2012, 08:14 **[ТС]**

Сообщение от Fenomen

Вам нужно передавать не путь к файлу а сам файл, т.к. сервер может(а скорее всего так и будет) находится не на вашем ПК.
Для передачи файла на клиенте используйте функцию ПоместитьФайл(), а на сервере ПолучитьИзВременногоХранилища(). Описание функций в синтаксис помощнике.

Значит мое подозрение подтвердилось, нужно передать на сервер сам файл.

То есть я передаю его на сервер в процедуре выбора файла на клиенте, а обрабатываю в серверной процедуре? А как потом полученые значения передать на форму на клиенте? Пока возможности посмотреть синтаксис помощник нет, но думаю там все описано.

Забыл описать в первом посте, то как построена работа. Делаю все для себя, дабы набить руку и забить голову. Действие происходит на ноуте где стоит платформа, но БД находится на другом компе, на котором стоит SQL Server 2012 (Решил убить двух зайцев, посмотреть на новый SQL и разобрать клиент-серверный вариант работы).

@duk337 · 03.06.2012, 11:20

Сообщение от Moshik

Значит мое подозрение подтвердилось, нужно передать на сервер сам файл.

Через хранилище (спасибо Fenomen)

Сообщение от Moshik

То есть я передаю его на сервер в процедуре выбора файла на клиенте, а обрабатываю в серверной процедуре? А как потом полученые значения передать на форму на клиенте?

Помещаете в хран. на клиенте, достаёте на сервере. Серверная процедура/функция вернёт в клиентскую то, что напишете, например структуру, массив, ТЗ или Результат запроса

Сообщение от Moshik

Пока возможности посмотреть синтаксис помощник нет, но думаю там все описано...на ноуте где стоит платформа

Странно: платформа стоит, синтпома нет. Джокер какой-то

@Moshik · 03.06.2012, 11:32 **[ТС]**

Сообщение от duk337

Странно: платформа стоит, синтпома нет. Джокер какой-то

Это было утром через Windows 8 с кофе стоя на балконе с сигареткой. Связка сервер + ноут с платформой были не запущены.

Сейчас разбираюсь с Вашими советами.

@duk337 · 03.06.2012, 12:08

Достаточно запустить 1cv8 в режиме конфиуратора, сославшись на пустой локальный каталог

@Moshik · 03.06.2012, 12:13 **[ТС]**

Подскажите еще пожалуйста как мне получить или как явно задать имя временного хранилища?

В "ПоместитьФайл" параметр Имя является не обязательным, но если я его не укажу, то как получу файл на сервере в "ПолучитьИзВременногоХранилища", там адрес обязателен.

При указании в таком виде:

1C

1	ПоместитьФайл(123,ИмяФайла,,Ложь,);

Вылетает ошибка:

{Обработка.ИмпортНоменклатуры.Форма.Форма.Форма(20)}: Ошибка при вызове метода контекста (ПоместитьФайл)
ПоместитьФайл(123,ИмяФайла,,Ложь,);
по причине:
Ошибка сохранения файла. Возможно произошла ошибка блокировки базы или передан неправильный URL.

Как я должен программе дать понять что ей на клиенте надо положить файл в такое-то хранилище, а на сервере забрать из него файл?

Сообщение от duk337

Достаточно запустить 1cv8 в режиме конфиуратора, сославшись на пустой локальный каталог

Там только Windows 8 свежеустановленная.

@duk337 · 03.06.2012, 12:28

Есть предположение, что адрес система вернёт в параметр.

1C

1 2	ф=""; ПоместитьФайл(ф,ИмяФайла,,Ложь,);

Добавлено через 2 минуты
на сервере

1C

1	Нечто = ПолучитьИзВременногоХранилища(ф);

@Moshik · 03.06.2012, 13:08 **[ТС]**

Сообщение от duk337

Есть предположение, что адрес система вернёт в параметр.

1C

1 2	ф=""; ПоместитьФайл(ф,ИмяФайла,,Ложь,);

Добавлено через 2 минуты
на сервере

1C

1	Нечто = ПолучитьИзВременногоХранилища(ф);

Как-то сразу об этом не подумал, но вот на сервере переменной "ф" не существует и соответственно проверка синтаксиса говорит что переменная не определена.

@Fenomen · 03.06.2012, 13:19

1C

&НаКлиенте
Процедура ВыбратьФайл()
 
<Ваш код>
 
АдресВременногоХранилищаФайла = "";
ПоместитьФайл(АдресВременногоХранилищаФайла, ИмяФайла, , Ложь, );
 
ОбработатьнаСервере(АдресВременногоХранилищаФайла );
 
КонецПроцедуры
 
&НаСервере
Процедура ОбработатьНаСервере(АдресВременногоХранилищаФайла )
 
ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(АдресВременногоХранилищаФайла);
 
<Ваш код>
 
КонецПроцедуры

@Moshik · 03.06.2012, 13:57 **[ТС]**

Сообщение от Fenomen

1C

&НаКлиенте
Процедура ВыбратьФайл()
 
<Ваш код>
 
АдресВременногоХранилищаФайла = "";
ПоместитьФайл(АдресВременногоХранилищаФайла, ИмяФайла, , Ложь, );
 
ОбработатьнаСервере(АдресВременногоХранилищаФайла );
 
КонецПроцедуры
 
&НаСервере
Процедура ОбработатьНаСервере(АдресВременногоХранилищаФайла )
 
ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(АдресВременногоХранилищаФайла);
 
<Ваш код>
 
КонецПроцедуры

Передать параметр получилось, но метод ПолучитьИзВременногоХранилища требует чтобы путь указан был как строка. Как я могу его ему передать как строку?

@duk337 · 03.06.2012, 14:01

ПоместитьФайл возвращает строку в первый параметр. А Вы что передавали?

@Moshik · 03.06.2012, 17:06 **[ТС]**

Сообщение от duk337

ПоместитьФайл возвращает строку в первый параметр. А Вы что передавали?

В серверной процедуре при вызове:

1C

1	Файл = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);

Выдает ошибку:

Сообщение от 1с

{Обработка.ИмпортНоменклатуры.Форма.Форма.Форма(51)}: Ошибка при вызове метода контекста (ПолучитьИзВременногоХранилища)
Файл = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
по причине:
Недопустимое значение параметра (параметр номер '1')

Добавлено через 2 часа 15 минут
Что-то я в полном ступоре. Ниже привел модуль формы полностью, На данный момент намудрякал уже все что в голову пришло. Так что если и было правильно что-то, то после последних действий накосячил по полной.

1C

&НаКлиенте
Процедура ВыборФайлаОткрытие(Элемент, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Текст = "ru = ""Текст""; en = ""Text""";
    Фильтр = НСтр(Текст)+"(*.txt)|*.txt";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
        Для Каждого ИмяФайла Из МассивФайлов Цикл
            ВыбФайл = Новый Файл(ИмяФайла);
            Текст = "ru = ""; Размер = ""; en = ""; Size = """;
            Предупреждение(ИмяФайла+НСтр(Текст)+ВыбФайл.Размер());
        КонецЦикла;
    Иначе
        Текст = "ru = ""Файл(ы) не выбран!""; en = ""File(s) not selected!""";
        Предупреждение(НСтр(Текст));
    КонецЕсли;
        ВыборФайла = ИмяФайла;
        
        АдресВременногоХранилища = "";
        ПоместитьФайл(АдресВременногоХранилища,ИмяФайла,,Ложь,);
        ЗаполнитьТЗДанныеФайлаНаСервере(АдресВременногоХранилища);
КонецПроцедуры
 
&НаКлиенте
Процедура ЗаполнитьТЗДанныеФайла(Команда)
    
 
    ЗаполнитьТЗДанныеФайлаНаСервере();   
    
//
//  Текст = Новый ЧтениеТекста(Элементы.ВыборФайла.ТекстРедактирования);
//  Стр = Текст.ПрочитатьСтроку();
//  Пока Стр <> Неопределено Цикл
//      Сообщить(Стр);
//      Стр = Текст.ПрочитатьСтроку();
//  КонецЦикла;
//  
КонецПроцедуры
 
&НаСервере
Процедура ЗаполнитьТЗДанныеФайлаНаСервере(АдресВременногоХранилища)
    
    Файл = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
    //Таб = Новый ТаблицаЗначений;
    //Таб.Колонки.Добавить("НомерПодразделения");
    //Таб.Колонки.Добавить("АдресПодразделения");
    //Текст = Новый ЧтениеТекста(";");
    //Пока Истина Цикл
    //  
        //Стр = Текст.ПрочитатьСтроку();
        //Если Стр = Неопределено Тогда
        //  Прервать;
        //КонецЕсли;
        //СтрТаб = Таб.Добавить();
        //ПолиСтр = СтрЗаменить(стр, ";", Символы.ПС);
        //СтрТаб.НомерПодразделения = СтрПолучитьСтроку(ПолиСтр, 1);
        //СтрТаб.АдресПодразделения = СтрПолучитьСтроку(ПолиСтр, 2);
    //КонецЦикла;
    //
КонецПроцедуры

В общем получается так что я в процедуре "ВыборФайлаОткрытие" выбираю файл, потом по нажатию кнопки ("ЗаполнитьТЗДанныеФайла")я хочу заполнить таблицу значений, и соответственно передаю управление серверу ("ЗаполнитьТЗДанныеФайлаНаСервере").

Прошу ткнуть носом в то, что я делаю не правильно.

@Fenomen · 03.06.2012, 17:08

Сообщение от Moshik

Выдает ошибку

Проверьте какого типа параметр АдресВременногоХранилища.

@Moshik · 03.06.2012, 17:12 **[ТС]**

Сообщение от Fenomen

Проверьте какого типа параметр АдресВременногоХранилища.

Строка, значение: e1cib/tempstorage/8b4d21f9-2246-4819-9d2a-1773ea74175d

Тут вроде все правильно. Должна ведь быть строка, а значение вполне себе имя хранилища.

@Fenomen · 03.06.2012, 17:58

Сообщение от Moshik

В общем получается так что я в процедуре "ВыборФайлаОткрытие" выбираю файл, потом по нажатию кнопки ("ЗаполнитьТЗДанныеФайла")я хочу заполнить таблицу значений, и соответственно передаю управление серверу ("ЗаполнитьТЗДанныеФайлаНаСервере").

Нажимая на кнопку вы вызываете ЗаполнитьТЗДанныеФайлаНаСервере() без параметра.
Процедура ВыборФайлаОткрытие, работает нормально и передает файл на сервер.

@Moshik · 03.06.2012, 18:42 **[ТС]**

Сообщение от Fenomen

Нажимая на кнопку вы вызываете ЗаполнитьТЗДанныеФайлаНаСервере() без параметра.
Процедура ВыборФайлаОткрытие, работает нормально и передает файл на сервер.

1C

&НаКлиенте
Процедура ЗаполнитьТЗДанныеФайла(Команда, АдресВременногоХранилища)
 
    ЗаполнитьТЗДанныеФайлаНаСервере(АдресВременногоХранилища);   
 
КонецПроцедуры

Если сделать так, то при отладке значение АдресВременногоХранилища неопределенно и в процедуре на сервере появляется ошибка:

Сообщение от 1с

{Обработка.ИмпортНоменклатуры.Форма.Форма.Форма(49)}: Ошибка при вызове метода контекста (ПолучитьИзВременногоХранилища)
Файл = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
по причине:
Недопустимое значение параметра (параметр номер '1')

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	02.06.2012, 21:43	5
	Сообщение от Moshik Но, нужно в эту процедуру как-то передать путь к выбранному файлу в другой процедуре. То есть файл я забираю не из определенного места, а из выбранного мной места. Вам нужно передавать не путь к файлу а сам файл, т.к. сервер может(а скорее всего так и будет) находится не на вашем ПК. Для передачи файла на клиенте используйте функцию ПоместитьФайл(), а на сервере ПолучитьИзВременногоХранилища(). Описание функций в синтаксис помощнике. 2

@Moshik 22 / 22 / 2 Регистрация: 28.01.2012 Сообщений: 52
	03.06.2012, 08:14 [ТС]	6
	Сообщение от Fenomen Вам нужно передавать не путь к файлу а сам файл, т.к. сервер может(а скорее всего так и будет) находится не на вашем ПК. Для передачи файла на клиенте используйте функцию ПоместитьФайл(), а на сервере ПолучитьИзВременногоХранилища(). Описание функций в синтаксис помощнике. Значит мое подозрение подтвердилось, нужно передать на сервер сам файл. То есть я передаю его на сервер в процедуре выбора файла на клиенте, а обрабатываю в серверной процедуре? А как потом полученые значения передать на форму на клиенте? Пока возможности посмотреть синтаксис помощник нет, но думаю там все описано. Забыл описать в первом посте, то как построена работа. Делаю все для себя, дабы набить руку и забить голову. Действие происходит на ноуте где стоит платформа, но БД находится на другом компе, на котором стоит SQL Server 2012 (Решил убить двух зайцев, посмотреть на новый SQL и разобрать клиент-серверный вариант работы). 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	03.06.2012, 11:20	7
	Сообщение от Moshik Значит мое подозрение подтвердилось, нужно передать на сервер сам файл. Через хранилище (спасибо Fenomen) Сообщение от Moshik То есть я передаю его на сервер в процедуре выбора файла на клиенте, а обрабатываю в серверной процедуре? А как потом полученые значения передать на форму на клиенте? Помещаете в хран. на клиенте, достаёте на сервере. Серверная процедура/функция вернёт в клиентскую то, что напишете, например структуру, массив, ТЗ или Результат запроса Сообщение от Moshik Пока возможности посмотреть синтаксис помощник нет, но думаю там все описано...на ноуте где стоит платформа Странно: платформа стоит, синтпома нет. Джокер какой-то 0

@Moshik 22 / 22 / 2 Регистрация: 28.01.2012 Сообщений: 52
	03.06.2012, 11:32 [ТС]	8
	Сообщение от duk337 Странно: платформа стоит, синтпома нет. Джокер какой-то Это было утром через Windows 8 с кофе стоя на балконе с сигареткой. Связка сервер + ноут с платформой были не запущены. Сейчас разбираюсь с Вашими советами. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	03.06.2012, 12:08	9
	Достаточно запустить 1cv8 в режиме конфиуратора, сославшись на пустой локальный каталог 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	03.06.2012, 14:01	15
	ПоместитьФайл возвращает строку в первый параметр. А Вы что передавали? 0

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	03.06.2012, 17:08	17
	Сообщение от Moshik Выдает ошибку Проверьте какого типа параметр АдресВременногоХранилища. 0

@Moshik 22 / 22 / 2 Регистрация: 28.01.2012 Сообщений: 52
	03.06.2012, 17:12 [ТС]	18
	Сообщение от Fenomen Проверьте какого типа параметр АдресВременногоХранилища. Строка, значение: e1cib/tempstorage/8b4d21f9-2246-4819-9d2a-1773ea74175d Тут вроде все правильно. Должна ведь быть строка, а значение вполне себе имя хранилища. 0

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	03.06.2012, 17:58	19
	Сообщение от Moshik В общем получается так что я в процедуре "ВыборФайлаОткрытие" выбираю файл, потом по нажатию кнопки ("ЗаполнитьТЗДанныеФайла")я хочу заполнить таблицу значений, и соответственно передаю управление серверу ("ЗаполнитьТЗДанныеФайлаНаСервере"). Нажимая на кнопку вы вызываете ЗаполнитьТЗДанныеФайлаНаСервере() без параметра. Процедура ВыборФайлаОткрытие, работает нормально и передает файл на сервер. 0