10 Вариант / Листинг_Вар_10

&НаКлиенте
Процедура НачатьВыборФайла(Команда)
// Вставить содержимое обработчика.
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Если Диалог.Выбрать() Тогда
ЭтаФорма.ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура А1(Команда)
Если ЗначениеЗаполнено(ЭтаФорма.ПутьКФайлу) Тогда
Файл = Новый ЧтениеТекста(ЭтаФорма.ПутьКФайлу,КодировкаТекста.UTF8,Символы.ПС);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Файл.Закрыть();
МассивПодСтрок = РазборСтрокиНаПодстроки(ВесьФайлОднойСтрокой, " ");
Ответ = Новый Массив;
Для Каждого Слово из МассивПодСтрок Цикл
Буква = Лев(Слово,1);
Если НРег(Буква)<>Буква Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);
КонецПроцедуры


Функция РазборСтрокиНаПодстроки(ВходящаяСтрока, Разделитель)
МассивСтрок = Новый Массив();
ВходящаяСтрока = СтрЗаменить(ВходящаяСтрока, Разделитель, Символы.ПС);

Для ИндексСтроки = 1 По СтрЧислоСтрок(ВходящаяСтрока) Цикл
Подстрока = СтрПолучитьСтроку(ВходящаяСтрока, ИндексСтроки);
МассивСтрок.Добавить(Подстрока);
КонецЦикла;

Возврат МассивСтрок;

КонецФункции


Функция СобратьСтрокуИзВсехМассивов(Массив)
СтрокаОтвета = "";
Для Каждого Слово из Массив Цикл
СтрокаОтвета = СтрокаОтвета + Строка(Слово) + " , ";
КонецЦикла;
Возврат СтрокаОтвета;
КонецФункции

&НаКлиенте
Процедура А3(Команда)
Если ЗначениеЗаполнено(ЭтаФорма.ПутьКФайлу) Тогда
Файл = Новый ЧтениеТекста(ЭтаФорма.ПутьКФайлу,КодировкаТекста.UTF8,Символы.ПС);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Файл.Закрыть();
МассивПодСтрок = РазборСтрокиНаПодстроки(ВесьФайлОднойСтрокой, " ");
Ответ = Новый Массив;
Для Каждого Слово из МассивПодСтрок Цикл
Буква = Лев(Слово,1);
Если ВРег(Буква)<>Буква И (Буква>"A" И Буква<"Z") Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);
КонецПроцедуры

&НаКлиенте
Процедура А4(Команда)
Если ЗначениеЗаполнено(ЭтаФорма.ПутьКФайлу) Тогда
Файл = Новый ЧтениеТекста(ЭтаФорма.ПутьКФайлу,КодировкаТекста.UTF8,Символы.ПС);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Файл.Закрыть();
МассивПодСтрок = РазборСтрокиНаПодстроки(ВесьФайлОднойСтрокой, " ");
Ответ = Новый Массив;
Для Каждого Слово из МассивПодСтрок Цикл
Буква = Лев(Слово,1);
Если НРег(Буква)<>Буква И (Буква>"А" И Буква<"Я") Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);
КонецПроцедуры

&НаКлиенте
Процедура B1(Команда)
Если ЗначениеЗаполнено(ЭтаФорма.ПутьКФайлу) Тогда
Файл = Новый ЧтениеТекста(ЭтаФорма.ПутьКФайлу,КодировкаТекста.UTF8,Символы.ПС);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Файл.Закрыть();
МассивПодСтрок = РазборСтрокиНаПодстроки(ВесьФайлОднойСтрокой, " ");
Ответ = Новый Массив;
Для Каждого Слово из МассивПодСтрок Цикл
Проверка = Найти(Строка(Слово),"/");
Проверка = Найти(Строка(Слово),"*");
Проверка = Найти(Строка(Слово),"+");
Проверка = Найти(Строка(Слово),"=");
Проверка = Найти(Строка(Слово),"-");
Если НЕ ЗначениеЗаполнено(Проверка) Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);
КонецПроцедуры

&НаКлиенте
Процедура В4(Команда)
Если ЗначениеЗаполнено(ЭтаФорма.ПутьКФайлу) Тогда
Файл = Новый ЧтениеТекста(ЭтаФорма.ПутьКФайлу,КодировкаТекста.UTF8,Символы.ПС);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Файл.Закрыть();
МассивПодСтрок = РазборСтрокиНаПодстроки(ВесьФайлОднойСтрокой, " ");
Ответ = Новый Массив;
Для Каждого Слово из МассивПодСтрок Цикл
Проверка1 = Найти(Строка(Слово),"/");
Проверка1 = Найти(Строка(Слово),"*");
Проверка1 = Найти(Строка(Слово),"+");
Проверка1 = Найти(Строка(Слово),"=");
Проверка1 = Найти(Строка(Слово),"-");
Проверка2 = Найти(Строка(Слово),"1");
Проверка2 = Найти(Строка(Слово),"2");
Проверка2 = Найти(Строка(Слово),"3");
Проверка2 = Найти(Строка(Слово),"4");
Проверка2 = Найти(Строка(Слово),"5");
Проверка2 = Найти(Строка(Слово),"6");
Проверка2 = Найти(Строка(Слово),"7");
Проверка2 = Найти(Строка(Слово),"8");
Проверка2 = Найти(Строка(Слово),"9");
Проверка = Найти(Строка(Слово),"0");
Если ЗначениеЗаполнено(Проверка1) И ЗначениеЗаполнено(Проверка2) Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);
КонецПроцедуры

&НаКлиенте
Процедура В2(Команда)
Если ЗначениеЗаполнено(ЭтаФорма.ПутьКФайлу) Тогда
Файл = Новый ЧтениеТекста(ЭтаФорма.ПутьКФайлу,КодировкаТекста.UTF8,Символы.ПС);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Файл.Закрыть();
МассивПодСтрок = РазборСтрокиНаПодстроки(ВесьФайлОднойСтрокой, " ");
Ответ = Новый Массив;
Для Каждого Слово из МассивПодСтрок Цикл
Проверка = Найти(Строка(Слово),"a");
Проверка = Найти(Строка(Слово),"e");
Проверка = Найти(Строка(Слово),"y");
Проверка = Найти(Строка(Слово),"u");
Проверка = Найти(Строка(Слово),"i");
Проверка = Найти(Строка(Слово),"o");
Если НЕ ЗначениеЗаполнено(Проверка) Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);

КонецПроцедуры