Работа с массивом

Форумы Помощь по пакетуРабота с массивом ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 96

Рейтинг: 1

#1: 2010-10-29 08:39:43 ЛС | профиль | цитата

В хелпе есть вот такой пример. А как сделать, чтобы выводилась информация только по нужному параметру. Например задаешь Вася и тебе выдает только количество Вась.
За ранее спасибо.

code_21297.txt

карма: 0

файлы: 1

code_21297.txt [1.2KB] [147]

Ответов: 8975

Рейтинг: 824

#2: 2010-10-29 10:10:46 ЛС | профиль | цитата

[b]301992[/b], использовать БД :D или


Add(MainForm,13105371,385,168)
{
 Width=396
 Height=265
 Caption="ArrayCountRepeats"
 Position=1
 link(onCreate,6143661:doData,[])
}
Add(StrList,3068266,434,105)
{
 Strings=#4:Ваня|4:Вася|4:Маша|4:Вася|4:Нюра|14:Вася Семенович|13:Аня Семенович|0:|
 Point(doGetIndex)
 Point(onGetIndex)
}
Add(Button,9912960,385,266)
{
 Left=50
 Top=205
 Width=105
 TabOrder=-1
 Caption="CountRepeats"
 Data=Integer(0)
 link(onClick,1184839:doEvent1,[])
}
Add(Memo,7888607,490,161)
{
 Left=10
 Top=10
 Width=180
 Height=190
}
Add(DoData,6143661,434,182)
{
 link(onEventData,7888607:doText,[])
 link(Data,3068266:Text,[])
}
Add(Hub,1184839,434,266)
{
 link(onEvent1,11179287:doClear,[(597,272)(597,293)])
 link(onEvent2,682505:doCount,[])
}
Add(ArrayCountRepeats,682505,462,273)
{
 link(onCount,12650620:doStr,[])
 link(Array,3068266:Array,[(468,172)(454,172)])
}
Add(StringTable,11179287,609,280)
{
 Left=195
 Top=10
 Width=185
 Height=190
 Columns=#4:name|5:count|
}
Add(MT_String,12650620,504,273)
{
 Mask="%1 %2"
 link(onResult,1334919:doCompare,[])
}
Add(Edit,16748492,385,224)
{
 Left=185
 Top=205
 Text="Вася"
 link(onChange,3202767:doString,[])
}
Add(StrMask,1334919,553,273)
{
 Mask="*Вася*"
 Point(doMask)
 link(onTrue,11179287:doAdd,[])
}
Add(FormatStr,3202767,427,224)
{
 DataCount=1
 Mask="*%1*"
 link(onFString,1334919:doMask,[(542,230)(542,286)])
}

карма: 19

Ответов: 96

Рейтинг: 1

#3: 2010-10-29 10:59:18 ЛС | профиль | цитата

А можно, чтобы имя не выскакивало? Выбыраешь Вася, а их к примеру в списке 2, то выдает просто количество 2 или другое число равное количеству этих самых вась.

карма: 0

Ответов: 8975

Рейтинг: 824

#4: 2010-10-29 13:48:45 ЛС | профиль | цитата

[b]301992[/b], ну а посмотреть, как строки обрабатывать хотя бы в примерах, некогда?

Add(MainForm,13105371,315,140)
{
 Width=396
 Height=265
 Caption="ArrayCountRepeats"
 Position=1
}
Add(Button,9912960,315,182)
{
 Left=50
 Top=205
 Width=105
 TabOrder=-1
 Caption="CountRepeats"
 Data=Integer(0)
 link(onClick,7189993:doEvent1,[])
}
Add(Memo,7888607,378,126)
{
 Left=10
 Top=10
 Width=180
 Height=190
 Strings=#4:Ваня|4:Вася|4:Маша|4:Вася|4:Нюра|14:Вася Семенович|13:Аня Семенович|
}
Add(Edit,16748492,315,231)
{
 Left=185
 Top=205
 Width=105
 Text="Вася"
 link(onChange,6257408:doString,[])
}
Add(StrMask,1334919,441,189)
{
 Mask="*Вася*"
 CaseSensitive=0
 Point(doMask)
 link(onTrue,5802335:doOperation,[])
}
Add(Label,1917362,532,245)
{
 Left=305
 Top=210
 Caption=""
}
Add(Convertor,1609833,490,245)
{
 Mode=16
 Word_1="штука"
 Word_2="штуки"
 Word_5="штук"
 link(onResult,1917362:doText,[])
 link(Data,11957913:Var2,[])
}
Add(Hub,7189993,357,182)
{
 link(onEvent1,5802335:doClear,[(480,188)(480,209)])
 link(onEvent2,1682828:doEnum,[])
}
Add(Math,5802335,490,196)
{
 Op2=1
 ResultType=0
 Point(doClear)
 link(Op1,11957913:Var1,[(496,184)(484,184)(484,234)])
}
Add(GetDataEx,11957913,490,229)
{
 link(Data,5802335:Result,[])
}
Add(ArrayEnum,1682828,392,189)
{
 link(onItem,1334919:doCompare,[])
 link(onEndEnum,1609833:doConvert,[(432,202)(432,251)])
 link(Array,7888607:Array,[])
}
Add(FormatStr,6257408,392,231)
{
 DataCount=1
 Mask="*%1*"
 link(onFString,1334919:doMask,[(437,237)(437,202)])
}