Вверх ↑
Этот топик читают: Гость
Ответов: 3349
Рейтинг: 233
#1: 2010-01-25 18:37:22 ЛС | профиль | цитата
Я сделал схемку для фильра речи
code_16643.txt
карма: 1

0
файлы: 1code_16643.txt [2.4KB] [228]
Ответов: 1161
Рейтинг: 160
#2: 2010-01-25 19:08:21 ЛС | профиль | цитата
примитивная схемка - можно бы добавить список слов или проверять по маске
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2010-01-25 19:15:40 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 07:32:33
карма: 0

0
Ответов: 3349
Рейтинг: 233
#4: 2010-01-25 19:20:19 ЛС | профиль | цитата
LainX, слушай, раз такой умный свой вариант предложи
карма: 1

0
Ответов: 1161
Рейтинг: 160
#5: 2010-01-25 19:32:35 ЛС | профиль | цитата
Да хоть так
code_16645.txt
Мда, в мате я не силен...
карма: 0

0
файлы: 1code_16645.txt [1.6KB] [165]
Ответов: 3349
Рейтинг: 233
#6: 2010-01-25 19:34:24 ЛС | профиль | цитата
CBL217-132-89-108.bb.netv, я незнал (по русскому тройка)
------------ Дoбавленo в 19.38:
LainX, а теперь попробуй выделить текст
можно так
Add(MainForm,2953706,21,133)
{
Height=324
Caption="Антимат"
}
Add(Memo,3579293,245,119)
{
Width=385
Height=240
AddType=1
Point(Position)
Point(doSetSelStart)
}
Add(Replace,500536,245,357)
{
SubStr="хуй"
DestStr="***"
link(onReplace,9769468:doEvent1,[])
link(Str,3066823:Var2,[])
}
Add(ChildPanel,5830191,35,280)
{
}
BEGIN_SDK
Add(EditMulti,15627059,21,21)
{
}
Add(Panel,4717714,35,105)
{
Top=240
Width=380
Height=45
Caption="Ругаться запрещается!"
}
END_SDK
Add(Timer,14567084,21,189)
{
Interval=10000
link(onTimer,2340420:doEvent1,[(89,195)(89,216)])
}
Add(GetDataEx,8107856,196,210)
{
Angle=3
link(Data,3579293:Text,[(251,215)])
}
Add(Length,1835944,133,329)
{
link(onLength,3579293:doSetSelStart,[(174,335)(174,167)])
link(Str,8107856:Var2,[(139,253)(202,253)])
}
Add(Hub,2340420,126,210)
{
link(onEvent1,15058073:doEvent1,[(179,216)(179,363)])
link(onEvent2,1835944:doLength,[(152,223)(152,279)(128,279)(128,335)])
}
Add(GetDataEx,3066823,245,280)
{
link(Data,16021056:Var2,[])
}
Add(Replace,1638807,231,434)
{
SubStr="бля"
DestStr="*****"
link(onReplace,9769468:doEvent2,[(296,440)(296,370)])
link(Str,3066823:Var3,[(237,360)(260,360)(260,285)])
}
Add(Hub,9769468,336,357)
{
InCount=6
OutCount=1
link(onEvent1,3579293:doText,[(362,363)(362,209)(163,209)(163,146)])
}
Add(Hub,15058073,189,357)
{
OutCount=6
link(onEvent1,500536:doReplace,[])
link(onEvent2,1638807:doReplace,[(213,370)(213,440)])
link(onEvent3,14922975:doReplace,[(224,377)(224,517)])
link(onEvent4,3251515:doReplace,[(224,384)(224,573)])
link(onEvent5,1872006:doReplace,[(227,391)(227,622)])
link(onEvent6,6607600:doReplace,[(221,398)(221,678)])
}
Add(Replace,14922975,238,511)
{
SubStr="сука"
DestStr="****"
link(onReplace,9769468:doEvent3,[(307,517)(307,377)])
link(Str,3066823:Var1,[(244,398)(242,398)(242,285)])
}
Add(GetDataEx,16021056,245,238)
{
link(Data,15169736:Var2,[])
}
Add(Replace,3251515,245,567)
{
SubStr="пизда"
DestStr="*****"
link(onReplace,9769468:doEvent4,[(307,573)(307,384)])
link(Str,16021056:Var3,[(251,405)(260,405)(260,243)])
}
Add(Replace,1872006,238,616)
{
SubStr="ебал"
DestStr="****"
link(onReplace,9769468:doEvent5,[(310,622)(310,391)])
link(Str,16021056:Var1,[(244,243)])
}
Add(Replace,6607600,238,672)
{
SubStr="ебать"
DestStr="****"
link(onReplace,9769468:doEvent6,[(303,678)(303,398)])
link(Str,15169736:Var3,[(244,222)])
}
Add(GetDataEx,15169736,245,217)
{
link(Data,8107856:Var3,[(251,215)])
}


просто значение таймера увеличил
------------ Дoбавленo в 20.03:
Кстати интересная идея с переборам масива
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#7: 2010-01-25 21:44:50 ЛС | профиль | цитата
Ivann, CBL217-132-89-108.bb.netv это я. Вылетел.
Оба привели бы перед сравнением к общему знаменателю.
Напиши любое слово с заглавной или заглавными и Антимат не работает.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1161
Рейтинг: 160
#8: 2010-01-25 21:58:16 ЛС | профиль | цитата
Tad писал(а):
Напиши любое слово с заглавной или заглавными и Антимат не работает.


code_16648.txt
карма: 0

0
файлы: 1code_16648.txt [2.8KB] [146]
Ответов: 16884
Рейтинг: 1239
#9: 2010-01-25 22:04:57 ЛС | профиль | цитата
Вот уже похоже на что-то
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3349
Рейтинг: 233
#10: 2010-01-26 09:00:40 ЛС | профиль | цитата
Я убрал регистр ввода
code_16654.txt
------------ Дoбавленo в 09.00:
и несколько слов добавил
карма: 1

0
файлы: 1code_16654.txt [3.8KB] [173]
Ответов: 8926
Рейтинг: 823
#11: 2010-01-26 09:25:05 ЛС | профиль | цитата
Ivann, "Слов немного, пять иль шесть, зато какие комбинации!" - все не добавить Надо добавлять интелекта в виде принципов словообразования в русском языке, да ещё не забыть про замену кирилицы латынскими символами, задача весьма нетравиальная, если подходить серьёзно.
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#12: 2010-01-26 11:12:32 ЛС | профиль | цитата
Ivann, ну во первых - грамотный человек не напишет "дИбил", а напишет "дЕбил" и вся твоя система рухнула.
Где-то я выкладывал If_Else_% - именно для таких случаев.
А если подходить серьёзно, то, как заметил Леонид, "задача весьма нетравиальная".
Мать говорит ребёнку : - "Ты умник.".
И на сайте : - "Ты! Умник!" (можно вполне принять за ругательство и оскорбление)

------------ Дoбавленo в 11.13:

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3349
Рейтинг: 233
#13: 2010-01-26 11:25:38 ЛС | профиль | цитата
Специально для Tad'а
code_16657.txt
Антимат 2.0 DEbil Edition
------------ Дoбавленo в 11.46:
Леонид, ты прав
карма: 1

0
файлы: 1code_16657.txt [4.1KB] [191]
Ответов: 5446
Рейтинг: 323
#14: 2010-01-26 11:51:51 ЛС | профиль | цитата
Tad, грамотный человек обычно фильтрует свою речь и активно пользуется эвфемизмами.
карма: 1

0
Ответов: 3349
Рейтинг: 233
#15: 2010-01-26 12:07:57 ЛС | профиль | цитата
Tad писал(а):
Ivann, ну во первых - грамотный человек не напишет "дИбил", а напишет "дЕбил" и вся твоя система рухнула.
специально для него вставил слово "Дебил"
карма: 1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)