Реализовать поиск слов по маске

@Radmir2015 · Регистрация: 16.04.2015

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

Решил запилить поиск слов по маске: буквы и символы (* и ?) из текстового файла, но никак не могу придумать, как можно парсить так слова. Кому не трудно, поясните, пожалуйста, каким алгоритмом можно это организовать.

@volvo · 13.05.2016, 18:53

Лучше запили поиск по регулярному выражению. Ну, или простенькую функцию, которая в маске заменяет символы ? и *, и использует опять же регулярки для сопоставления с образцом:

Pascal
1
2
3
4
5
6
7
8
9
10
function MatchesMask(sText : string; sMask : string) : boolean;
begin
  var m := new Regex(sMask.Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));
  result := m.IsMatch(sText);
end;
 
begin
  writeln(MatchesMask('привет', 'пр?в*')); // true
  writeln(MatchesMask('привет', 'пр?вт*')); // false
end.

@Radmir2015 · 13.05.2016, 19:34 **[ТС]**

volvo, спасибо, волво, здесь просто очень мало людей юзают .Net, как раз с помощью него это можно просто запилить.
А потом все слова прогонять и проверять?

@Radmir2015 · 17.05.2016, 00:59 **[ТС]**

volvo, что-то неладное приключилось, когда я почти дописал программульку-парсер:

Pascal
1
writeln(MatchesMask('беспроводной', 'пров*')); // true

@volvo · 17.05.2016, 10:10

Имеется в виду, что должны искаться совпадения с начала строки? Так добавь символ "^" в начало регулярки:

Pascal
1
2
3
4
5
function MatchesMask(sText : string; sMask : string) : boolean;
begin
  var m := new Regex(('^' + sMask).Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));
  result := m.IsMatch(sText);
end;

Теперь

Pascal
1
2
3
4
5
  writeln(MatchesMask('привет', 'пр?в*')); // true
  writeln(MatchesMask('привет', 'пр?вт*')); // false
  writeln(MatchesMask('беспроводной', 'пров*')); // false
  writeln(MatchesMask('беспроводной', '*пров*')); // true
  writeln(MatchesMask('беспроводной', '??спров*')); // true

Это нужно было?

@Radmir2015 · 20.05.2016, 15:11 **[ТС]**

volvo, да, именно это, огромное спасибо. Уже сделал одну программу: парсер текста. Если буду ее опубликовывать, обязательно тебя добавлю как помощника)
Кое-что еще, ты не знаешь, как выбрать тупо слова из текста (произведения), чисто слова, вообще без delim-ов и рассортировать их по частоте встречи?
Я пробовал, у меня выходило после слова, то запятая лишняя, то скобочка.

Добавлено через 21 час 38 минут
volvo, а что в конце поставить строки, чтобы результат был такой же, а то я ставлю 'го?', а он мне все слова которые начинаются на "го" выписывает.

@volvo · 20.05.2016, 16:27

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

как выбрать тупо слова из текста (произведения), чисто слова, вообще без delim-ов и рассортировать их по частоте встречи?

Разбить текст на слова, предварительно убрав из него все символы, не принадлежащие к алфавиту, и рассортировать по частоте:

Pascal
1
2
3
4
  var s := 'one two, two, three.... four, one, TWo';
  var re := new System.Text.RegularExpressions.Regex('[^a-zA-Zа-яА-Я0-9]');
  var v := re.Replace(s, ' ').ToWords().GroupBy(s -> s.ToLower()).OrderByDescending(gr -> gr.Count);
  foreach var x in v do writeln(x.Key.ToLower(), ' -> ', x.Count());

выведет:

two -> 3
one -> 2
three -> 1
four -> 1

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

а что в конце поставить строки, чтобы результат был такой же, а то я ставлю 'го?', а он мне все слова которые начинаются на "го" выписывает

А что тебе нужно, чтобы выводилось? Только слова, которые начинаются на "го" и состоящие из трех символов? Тогда добавь '$' как символ конца строки:

Pascal
1
var m := new Regex(('^' + sMask + '$').Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));

@Radmir2015 · 21.05.2016, 16:16 **[ТС]**

volvo,

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

var m := new Regex(('^' + sMask + '$').Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));

да, есс, ура, наконец-то, работает, как часы, огромное спасибо, именно это и нужно. Ведь "?" - это ОДИН любой символ, то есть не может быть у "го?" длина больше 3. А вот если "*го?", тогда может быть любой, если бы без регулярки, то было бы очень тяжело сделать.

Слева словарь с кучей слов, в середине программа парсер (еще недоделанная), справа результат.

И да, генерировать ровно по определенной общей длине очень сложно, поэтому сделал примерно. Например, у меня стоит 50 - общая длина, он может сгенерировать, и 48, и 54, но это все делается расчетами, так сказать: брать ли последнее слово или нет.

@Radmir2015 · 24.05.2016, 20:18 **[ТС]**

volvo, если знаешь, подскажи, как сделать ровно строки по определенной длине?

@Radmir2015 · 02.06.2016, 16:01 **[ТС]**

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

Разбить текст на слова, предварительно убрав из него все символы, не принадлежащие к алфавиту, и рассортировать по частоте:

Замечательно, работает. А как сложить две последовательности типа v, просто я хочу провернуть это с большим файлом, со 100 строками быстро обрабатывает, а с 15 тыс, зависает и не развисает, ждал минут 10-15.

Может так: (если s := ReadLines(...))

Pascal
1
2
3
if s.Count > 100 then
  for var i := 0 to s.Batch(100).Count - 1 do
  v.Concat(re.Replace(s.Batch(100).ElementAt(i).JoinIntoString(' '), ' ').ToWords().GroupBy(s -> ignoreCase ? s.ToLower() : s));

Но в конце нужно присваивать v := v.Concat... компилятор ругается на несоответствие типов. Тогда как можно реализовать?
Как объявить переменную v заранее, без присвоения, просто нужно было использовать if, мне пришлось делать две практически одинаковых ветки, а то компилятор бы ругался на внутриблочные переменные.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Radmir2015 6 / 6 / 9 Регистрация: 16.04.2015 Сообщений: 121

	Реализовать поиск слов по маске 12.05.2016, 18:31. Показов 4950. Ответов 9 Метки нет (Все метки) Решил запилить поиск слов по маске: буквы и символы (* и ?) из текстового файла, но никак не могу придумать, как можно парсить так слова. Кому не трудно, поясните, пожалуйста, каким алгоритмом можно это организовать. 0

@Radmir2015 6 / 6 / 9 Регистрация: 16.04.2015 Сообщений: 121
	13.05.2016, 19:34 [ТС]
	volvo, спасибо, волво, здесь просто очень мало людей юзают .Net, как раз с помощью него это можно просто запилить. А потом все слова прогонять и проверять? 0

@Radmir2015 6 / 6 / 9 Регистрация: 16.04.2015 Сообщений: 121
	20.05.2016, 15:11 [ТС]
	volvo, да, именно это, огромное спасибо. Уже сделал одну программу: парсер текста. Если буду ее опубликовывать, обязательно тебя добавлю как помощника) Кое-что еще, ты не знаешь, как выбрать тупо слова из текста (произведения), чисто слова, вообще без delim-ов и рассортировать их по частоте встречи? Я пробовал, у меня выходило после слова, то запятая лишняя, то скобочка. Добавлено через 21 час 38 минут volvo, а что в конце поставить строки, чтобы результат был такой же, а то я ставлю 'го?', а он мне все слова которые начинаются на "го" выписывает. 0

@Radmir2015 6 / 6 / 9 Регистрация: 16.04.2015 Сообщений: 121
	24.05.2016, 20:18 [ТС]
	volvo, если знаешь, подскажи, как сделать ровно строки по определенной длине? 0