Вверх ↑
Этот топик читают: Гость
Ответов: 519
Рейтинг: 28
#1: 2011-07-23 10:42:46 ЛС | профиль | цитата
Для наглядности.


Имееться 2 списка,с разными словами ( возможно и одинаковыми).
Вопрос: как сделать сравнение 2х списков и при совпадении любого слова , происходило действие (слова могут находиться на разных строках)
Дальше перебора массива не ушла(
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#2: 2011-07-23 10:58:59 ЛС | профиль | цитата
http://forum.hiasm.com//getfile/24664
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 171
Рейтинг: 19
#3: 2011-07-23 11:25:25 ЛС | профиль | цитата
Ну как то так можно сделать
Add(MainForm,2953706,21,105)
{
Width=348
Height=339
}
Add(ArrayFind,4469877,490,196)
{
link(onFind,1124850:doRead,[])
link(Array,308923:Var2,[])
link(Value,15958383:Item,[(510,184)(461,184)(461,240)(412,240)])
}
Add(ListBox,16705157,392,119)
{
Left=15
Top=15
Width=135
Height=165
Strings=#4:Маша|4:Саша|6:Валера|5:Ваня |
}
Add(ListBox,14871117,476,119)
{
Left=170
Top=15
Width=135
Height=165
Strings=#7:Дмитрий|6:Степан|5:Настя|4:Боря|4:Саша|6:Пикачу|0:|
}
Add(ArrayEnum,15958383,406,196)
{
link(onItem,4469877:doFind,[])
link(Array,16705157:Array,[])
}
Add(ArrayRW,1124850,546,196)
{
link(onRead,11412268:doText,[])
link(Array,308923:Var3,[(552,173)])
}
Add(GetDataEx,308923,490,168)
{
link(Data,14871117:Array,[])
}
Add(Edit,11412268,602,196)
{
Left=30
Top=220
Width=250
}
Add(Button,9940981,336,196)
{
Left=90
Top=265
Width=115
link(onClick,15958383:doEnum,[])
}




карма: 0

1
файлы: 1code_24702.txt [946B] [101]
Голосовали:zeta211
Ответов: 519
Рейтинг: 28
#4: 2011-07-23 11:31:10 ЛС | профиль | цитата
Спасибо
карма: 0

0
Ответов: 172
Рейтинг: 1
#5: 2025-06-17 05:16:31 ЛС | профиль | цитата
Подскажите, почему данная схема не работает с цифрами...?
Add(MainForm,10529488,399,196)
{
Width=348
Height=339
}
Add(ArrayFind,4469877,567,273)
{
link(onFind,1124850:doRead,[])
link(Array,308923:Var2,[])
link(Value,15958383:Item,[(587,261)(538,261)(538,317)(489,317)])
}
Add(ListBox,16705157,469,196)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,553,196)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,483,273)
{
link(onItem,4469877:doFind,[])
link(Array,16705157:Array,[])
}
Add(ArrayRW,1124850,623,273)
{
link(onRead,960894:doMessage,[])
link(Array,308923:Var3,[(629,250)])
}
Add(GetDataEx,308923,567,245)
{
link(Data,14871117:Array,[])
}
Add(Button,9940981,413,273)
{
Left=105
Top=200
Width=115
link(onClick,15958383:doEnum,[])
}
Add(Message,960894,679,273)
{
}



А вообще, мне нужно сделать чтобы был список с цифрами которых нет в списке слева, не могу что то понять как...

Add(MainForm,10529488,385,77)
{
Width=875
Height=351
}
Add(ListBox,16705157,490,77)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,644,77)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:77|2:99|2:17|2:18|2:19|
}
Add(ArrayEnum,15958383,504,175)
{
link(onItem,3578993:doEvent1,[])
link(Array,16705157:Array,[])
}
Add(Button,9940981,434,175)
{
Left=105
Top=200
Width=115
link(onClick,15958383:doEnum,[])
}
Add(StrMask,7754921,735,168)
{
Point(doMask)
link(onFalse,13631575:doAdd,[])
link(onTrue,7425760:doAdd,[])
}
Add(ArrayEnum,10413887,658,182)
{
link(onItem,7754921:doCompare,[(709,188)(709,174)])
link(Array,14871117:Array,[])
}
Add(Hub,3578993,595,175)
{
link(onEvent1,7754921:doMask,[])
link(onEvent2,10413887:doEnum,[])
}
Add(Memo,7425760,812,175)
{
Left=350
Top=20
Width=235
Height=290
ScrollBars=2
}
Add(Memo,13631575,882,168)
{
Left=600
Top=20
Width=235
Height=290
ScrollBars=2
}


Редактировалось 2 раз(а), последний 2025-06-17 06:14:46
карма: 1

0
Ответов: 1133
Рейтинг: 81
#6: 2025-06-17 08:18:57 ЛС | профиль | цитата
Gitarist писал(а):
Подскажите, почему данная схема не работает с цифрами...?



Неправда


Add(MainForm,15480528,203,175)
{
Width=348
Height=339
}
Add(ArrayFind,4469877,427,252)
{
link(onFind,1124850:doRead,[])
link(Array,308923:Var2,[])
link(Value,15958383:Item,[(447,240)(342,240)(342,296)(293,296)])
}
Add(ListBox,16705157,273,175)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,413,175)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,287,252)
{
link(onItem,16613536:doData,[])
link(Array,16705157:Array,[])
}
Add(ArrayRW,1124850,483,252)
{
link(onRead,960894:doMessage,[])
link(Array,308923:Var3,[(489,229)])
}
Add(GetDataEx,308923,427,224)
{
link(Data,14871117:Array,[])
}
Add(Button,9940981,217,252)
{
Left=105
Top=200
Width=115
link(onClick,15958383:doEnum,[])
}
Add(Message,960894,539,252)
{
}
Add(DoData,16613536,364,252)
{
link(onEventData,4469877:doFind,[])
}

карма: 2

0
Ответов: 172
Рейтинг: 1
#7: 2025-06-17 09:15:56 ЛС | профиль | цитата
tom-it писал(а):
Неправда

Хааа...)) Нежданчик... Поток перебивает работу))

Gitarist писал(а):
А вообще, мне нужно сделать чтобы был список с цифрами которых нет в списке слева, не могу что то понять как...

А в этом вопросе можете помочь?

....
всё, вроде понял как))
Add(MainForm,10529488,238,182)
{
Width=729
Height=339
link(onCreate,15958383:doEnum,[])
}
Add(ArrayFind,4469877,462,196)
{
link(onFind,622269:doCompare,[])
link(Array,14871117:Array,[])
link(Value,6011753:Var2,[])
}
Add(ListBox,16705157,308,112)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,448,112)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,322,196)
{
link(onItem,10236892:doData,[])
link(Array,16705157:Array,[])
}
Add(Message,960894,574,196)
{
link(Message,6011753:Var3,[(580,184)])
}
Add(DoData,10236892,399,196)
{
link(onEventData,4469877:doFind,[])
}
Add(If_else,622269,518,196)
{
Type=1
Op2=Integer(0)
link(onTrue,960894:doMessage,[])
}
Add(GetDataEx,6011753,476,179)
{
Angle=3
link(Data,15958383:Item,[(377,184)(377,240)(328,240)])
}


Редактировалось 1 раз(а), последний 2025-06-17 09:27:33
карма: 1

0
Ответов: 1133
Рейтинг: 81
#8: 2025-06-17 09:25:25 ЛС | профиль | цитата
Gitarist писал(а):
А в этом вопросе можете помочь?

так?


Add(MainForm,15480528,231,147)
{
Width=474
Height=339
}
Add(ArrayFind,4469877,455,224)
{
link(onFind,12045151:doCompare,[])
link(Array,308923:Var2,[])
link(Value,14859548:Var2,[])
}
Add(ListBox,16705157,301,147)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,441,147)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,315,224)
{
link(onItem,16613536:doData,[])
link(Array,16705157:Array,[])
}
Add(ArrayRW,1124850,609,273)
{
link(onRead,960894:doMessage,[])
link(Array,308923:Var3,[(615,201)])
}
Add(GetDataEx,308923,455,196)
{
link(Data,14871117:Array,[])
}
Add(Button,9940981,245,224)
{
Left=105
Top=200
Width=115
link(onClick,15958383:doEnum,[])
}
Add(Message,960894,672,273)
{
}
Add(DoData,16613536,392,224)
{
link(onEventData,4469877:doFind,[])
}
Add(If_else,12045151,525,224)
{
Op2=Integer(-1)
link(onTrue,14716316:doData,[])
}
Add(Memo,1264880,728,224)
{
Left=315
Top=15
Width=120
Height=155
}
Add(DoData,14716316,665,224)
{
link(onEventData,1264880:doAdd,[])
link(Data,14859548:Var3,[(671,212)])
}
Add(GetDataEx,14859548,469,207)
{
Angle=3
link(Data,15958383:Item,[(370,212)(370,268)(321,268)])
}

карма: 2

1
Голосовали:Gitarist
Ответов: 172
Рейтинг: 1
#9: 2025-06-17 09:29:09 ЛС | профиль | цитата
tom-it писал(а):

так?

Да, тип того, спасибо за участие в вопросе!
карма: 1

0
Ответов: 2437
Рейтинг: 693
#10: 2025-06-17 09:39:47 ЛС | профиль | цитата
Проще можно:


Add(MainForm,15480528,252,154)
{
Width=474
Height=339
}
Add(ListBox,16705157,308,147)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,378,147)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,322,231)
{
link(onItem,12926713:doGetIndex,[])
link(onEndEnum,12926713:doClear,[(366,244)(366,216)])
link(Array,16705157:Array,[])
}
Add(Button,9940981,252,224)
{
Left=105
Top=200
Width=115
link(onClick,9732047:doEvent1,[])
}
Add(Memo,1264880,462,210)
{
Left=315
Top=15
Width=120
Height=155
link(Str,15958383:Item,[(468,198)(515,198)(515,287)(328,287)])
}
Add(StrList,12926713,378,203)
{
Point(doGetIndex)
Point(onGetIndex)
link(Str,14871117:Text,[])
link(onGetIndex,2823592:doCompare,[])
}
Add(Hub,9732047,294,224)
{
link(onEvent1,12926713:doText,[])
link(onEvent2,15958383:doEnum,[])
}
Add(If_else,2823592,420,210)
{
Op2=Integer(-1)
link(onTrue,1264880:doAdd,[])
AddHint(1,-28,24,13,Op2)
}
карма: 11

1
Голосовали:Gitarist
Ответов: 932
Рейтинг: 197
#11: 2025-06-17 17:52:34 ЛС | профиль | цитата
А можно и сложней. Если списки будут содержать большое количество чисел для сравнения (1000000 и более)

Add(MainForm,15480528,63,154)
{
Width=489
Height=247
Point(onClose)
link(onCreate,6261230:doOpen,[])
link(onClose,6261230:doClose,[])
}
Add(ListBox,16705157,203,105)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,343,112)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,217,168)
{
link(onItem,6238122:doString,[])
link(onEndEnum,15063023:doEnum,[(256,181)(256,209)])
link(Array,16705157:Array,[])
}
Add(DS_SQLite,6261230,112,168)
{
Name="mydb"
FileName=":memory:"
link(onOpen,15493153:doExec,[])
}
Add(DSC_Exec,15493153,161,168)
{
SQL="CREATE TABLE [a]([col1] INTEGER);\r\nCREATE TABLE [b]([col1] INTEGER);\r\n"
DSManager="mydb"
link(onExec,15958383:doEnum,[])
}
Add(DSC_Exec,12649347,315,168)
{
DSManager="mydb"
}
Add(FormatStr,6238122,266,168)
{
Mask="INSERT INTO [a]([col1]) VALUES(%1);"
link(onFString,12649347:doExec,[])
}
Add(ArrayEnum,15063023,357,203)
{
link(onItem,207147:doString,[])
link(onEndEnum,14757544:doQuery,[(396,216)(396,251)])
link(Array,14871117:Array,[])
}
Add(DSC_Exec,14188723,455,203)
{
DSManager="mydb"
}
Add(FormatStr,207147,406,203)
{
Mask="INSERT INTO [b]([col1]) VALUES(%1);"
link(onFString,14188723:doExec,[])
}
Add(DSC_Query,14757544,406,245)
{
SQL="select col1 from b where col1 NOT IN (select col1 from a) ;"
DSManager="mydb"
link(onQuery,8105160:doAdd,[])
}
Add(ListBox,8105160,455,245)
{
Left=325
Top=15
Width=135
Height=165
}

карма: 19

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