Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2006-10-29 02:36:10 правка | ЛС | профиль | цитата


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

0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 26071
Рейтинг: 2122
#2: 2006-10-29 02:28:50 ЛС | профиль | цитата
unalex, вот, если я правильно понял, то держи code_504
Загрузку файла сам приклеишь.
А вот более сложный вариант с поиском по маске
Add(MainForm,6980269,89,235)
{
Left=20
Top=105
Width=250
link(onCreate,7399743:doSetFocus,[(126,276)(126,276)])
}
Add(ListBox,12182647,243,151)
{
Left=45
Top=20
Width=150
Height=160
Strings=#9:Вася Ишак|10:Коля Идиот|10:Саша Баран|18:Петя Козел и Дурак|0:|
Point(String)
}
Add(Button,2594965,96,326)
{
Left=45
Top=215
Width=150
Caption="Поиск"
link(onClick,5143787:doData,[])
}
Add(Edit,7399743,159,256)
{
Left=45
Top=185
Width=150
Text=""
Point(doSetFocus)
}
Add(DoData,5143787,159,326)
{
link(onEventData,10705067:doString,[(201,332)(201,408)(72,408)(72,458)])
link(Data,11904143:Var2,[])
}
Add(ArrayEnum,11858575,257,326)
{
link(onItem,5486100:doStrCat,[])
link(onEndEnum,2414896:doEvent,[(336,339)(336,507)])
link(Array,12182647:Array,[])
}
Add(FormatStr,10705067,82,452)
{
Mask="*%1*"
link(onFString,4164769:doEvent1,[])
link(Str2,11904143:Var1,[(95,307)])
}
Add(Hub,9265375,516,326)
{
OutCount=3
link(onEvent1,11858575:doStop,[(551,332)(551,374)(247,374)(247,339)])
link(onEvent2,10723087:doOperation,[(558,339)(558,373)(443,373)(443,395)])
link(onEvent3,9562208:doClear,[(558,346)(558,401)(443,401)(443,458)])
}
Add(GetDataEx,11904143,152,298)
{
link(Data,7399743:Text,[])
}
Add(Label,8069467,691,389)
{
Left=10
Top=245
Width=220
Caption=""
AutoSize=1
Alignment=2
}
Add(FormatStr,10261534,600,389)
{
Mask="Найдено слово %1 в %2-й позиции"
link(onFString,13788423:doWork2,[(663,395)])
link(Str1,11904143:Var3,[(606,307)])
}
Add(Hub,4164769,138,452)
{
link(onEvent1,5502751:doMask,[])
link(onEvent2,11858575:doEnum,[(213,465)(213,332)])
}
Add(Math,10723087,453,389)
{
Op2=1
link(onResult,10261534:doString,[(542,395)(542,395)])
link(Op1,11858575:Index,[(459,381)(270,381)])
}
Add(HubEx,13788423,663,382)
{
link(onEvent,8069467:doText,[])
}
Add(DoData,9680534,390,445)
{
Data=Integer(1)
link(onEventData,9562208:doValue,[])
}
Add(IndexToChanel,2414896,453,501)
{
Data=String(Искомое слово не найдено)
Point(Index)
link(onEvent2,13788423:doWork3,[(667,514)])
link(Index,9562208:Value,[])
}
Add(Memory,9562208,453,445)
{
Default=Integer(0)
}
Add(StrMask,5502751,257,445)
{
link(onFalse,9680534:doData,[])
link(onTrue,9265375:doEvent1,[(367,458)(367,332)])
}
Add(StrCat,5486100,341,326)
{
Str2=" "
link(onStrCat,5502751:doCompare,[(383,332)(383,401)(247,401)(247,451)])
link(Str1,11858575:Item,[(347,316)(315,316)(315,368)(263,368)])
}
карма: 22

0
файлы: 1code_504.txt [2.2KB] [500]
Ответов: 9906
Рейтинг: 351
#3: 2006-10-29 10:01:56 ЛС | профиль | цитата
Мда...
Надо выкладывать свои For и ArrayEnum ...
карма: 9

0
Разработчик
Ответов: 26071
Рейтинг: 2122
#4: 2006-10-29 11:39:30 ЛС | профиль | цитата
Galkov, а что? Нарисовал мз того, что в среде. Кстати, лучше бы о маске подумали. А то, она EndOfString не понимает как символ, и приходится добавлять в конец лишний символ или организовывать две маски вида *ххх* и *ххх.
карма: 22

0
Ответов: 262
Рейтинг: 6
#5: 2006-10-29 15:51:22 ЛС | профиль | цитата
Galkov, насколько я помню твои for и Enum имеют доп. точки onStop и onEnd, полезные такие точки и почему ты их не внедрил где нибудь в версии 3хх не знаю Я тоже боролся с опознанием прерывания цикла. Даже вспоминать не хочется.
карма: 0

0
Ответов: 9906
Рейтинг: 351
#6: 2006-10-29 18:32:07 ЛС | профиль | цитата
папка Example не выложена на SVN, между прочим.
А внедрение For, к примеру, приведет к несовместимости в ExampleDrawArcanoid.sha
карма: 9

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2006-10-29 19:56:39 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-02 09:43:08
карма: 0

0
Ответов: 3655
Рейтинг: 69
#8: 2006-10-29 21:00:14 ЛС | профиль | цитата
А я предлагал сделать ArrayEnum с поиском внутри компонента
Решает все проблемы сразу и совместимость и поиск.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2006-10-29 22:05:18 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-02 09:43:08
карма: 0

0
Ответов: 8888
Рейтинг: 823
#10: 2006-10-29 23:05:10 ЛС | профиль | цитата
unalex, поиск слова достаточно много отличается от поиска комбинации символов, надо бы уточнить задачу.
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2006-10-30 00:33:58 правка | ЛС | профиль | цитата


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

0
Разработчик
Ответов: 26071
Рейтинг: 2122
#12: 2006-10-30 00:43:46 ЛС | профиль | цитата
unalex, на держи. По твоему описанию code_509
Ищется любое слово в любой строке по маске независимо от длины слова и количества строк. Подобный метод у меня обрабатывает около 40000 строк в течении 3 - 5 сек.
карма: 22

0
файлы: 1code_509.txt [1.7KB] [582]
Ответов: 655
Рейтинг: 0
#13: 2006-10-30 00:43:48 ЛС | профиль | цитата
code_510

...............
не до конца прочитал чего надо
карма: 0

0
файлы: 1code_510.txt [804B] [354]
Разработчик
Ответов: 26071
Рейтинг: 2122
#14: 2006-10-30 00:54:40 ЛС | профиль | цитата
AVC, ну и что ты нарисовал, у тебя только первая позиция в строке ищется? Компонент Copy там совсем не нужен -- он привязан к позиции.
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#15: 2006-10-30 04:06:26 правка | ЛС | профиль | цитата


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

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