Добавил:
BST1852
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:10 Вариант / Листинг_Вар_10
.txt&НаКлиенте
Процедура НачатьВыборФайла(Команда)
// Вставить содержимое обработчика.
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Если Диалог.Выбрать() Тогда
ЭтаФорма.ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура А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");
Если НЕ ЗначениеЗаполнено(Проверка) Тогда
Ответ.Добавить(Слово);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаОтвета = СобратьСтрокуИзВсехМассивов(Ответ);
Сообщить(СтрокаОтвета);
КонецПроцедуры
Соседние файлы в папке 10 Вариант