Вверх ↑
Этот топик читают: Гость
Ответов: 817
Рейтинг: 52
#1: 2009-09-29 20:55:00 ЛС | профиль | цитата
Приятного времени суток господа!

Есть список, в котором каждая строка это любой набор символов, список каждый раз разный, как по содержимому, так и по размеру
Например:

    
    Вася
    Петя12
    Петя
    yandex.ru
    Ольга Игоревна
    На дворе трава, на траве дрова
    Петя
    .......
    Вася
    Манька-облигация
    Петя
    и т.д.
Как можно посчитать сколько раз каждая строка встречается?
Заранее всем спасибо за советы.
карма: 1

0
Ответов: 4641
Рейтинг: 334
#2: 2009-09-29 22:03:58 ЛС | профиль | цитата
как вариант на ночь глядя!

Add(MainForm,2953706,35,133)
{
Width=410
Height=279
link(onCreate,13350902:doEvent1,[])
}
Add(StrList,3068266,126,105)
{
Strings=#4:Вася|6:Петя12|4:Петя|9:yandex.ru|14:Ольга Игоревна|30:На дворе трава, на траве дрова|4:Петя|7:.......|4:Вася|16:Манька-облигация|4:Петя|6:и т.д.|
Point(doSort)
}
Add(ArrayEnum,15267502,140,182)
{
link(onItem,302024:doEvent1,[])
link(Array,3068266:Array,[])
}
Add(Hub,13350902,91,147)
{
link(onEvent1,3068266:doSort,[])
link(onEvent2,15267502:doEnum,[(112,160)(112,188)(112,188)])
}
Add(ChangeMon,1277339,217,182)
{
link(onData,15076541:doAdd,[])
}
Add(StrList,15076541,266,182)
{
Point(doGetIndex)
Point(onGetIndex)
Point(String)
Point(doGetString)
Point(onGetString)
link(onGetIndex,13839128:doEvent1,[])
}
Add(FormatStr,12744511,350,266)
{
link(onFString,4565890:doAdd,[])
link(Str1,15076541:String,[(356,247)(293,247)])
link(Str2,11459636:Count,[])
}
Add(Counter,11459636,357,189)
{
}
Add(Hub,13299041,217,224)
{
link(onEvent1,10825246:doData,[(240,230)(240,265)])
link(onEvent2,15076541:doGetIndex,[(245,237)(245,230)])
}
Add(ChangeMon,10825246,266,259)
{
link(onData,7793306:doEvent1,[])
}
Add(Memo,4565890,406,266)
{
Left=220
Top=15
Width=145
Height=190
}
Add(Hub,7793306,315,259)
{
link(onEvent1,12744511:doString,[(343,265)(343,272)])
link(onEvent2,11459636:doReset,[(337,272)(337,209)])
}
Add(Hub,13839128,308,189)
{
link(onEvent1,11459636:doNext,[])
link(onEvent2,15076541:doGetString,[(330,202)(330,236)(254,236)(254,237)])
}
Add(Hub,302024,182,182)
{
link(onEvent1,1277339:doData,[])
link(onEvent2,13299041:doEvent1,[(203,195)(203,230)])
}



карма: 1
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:-= DriveR =-
Ответов: 1328
Рейтинг: 69
#3: 2009-09-29 23:07:31 ЛС | профиль | цитата
Ravilr, а и т.д. посему не считается?
карма: 2

0
Ответов: 4641
Рейтинг: 334
#4: 2009-09-29 23:09:58 ЛС | профиль | цитата
Konst писал(а):
а и т.д.

code_15087.txt
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_15087.txt [1.8KB] [170]
Ответов: 16884
Рейтинг: 1239
#5: 2009-09-29 23:15:41 ЛС | профиль | цитата
Ravilr, а что за первый 0
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1328
Рейтинг: 69
#6: 2009-09-29 23:16:11 ЛС | профиль | цитата
Ravilr, че то я неувидел разницы в схеме... в последнем выдает code_15088.txt
карма: 2

1
файлы: 1code_15088.txt [3.4KB] [204]
Голосовали:-= DriveR =-
Ответов: 4641
Рейтинг: 334
#7: 2009-09-29 23:18:09 ЛС | профиль | цитата
Konst, разница в onEndEnum

Tad писал(а):
а что за первый 0

а это так..... пища (бублик, сушка) для последователей
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 2271
Рейтинг: 677
#8: 2009-09-29 23:46:36 ЛС | профиль | цитата
Вариант на один элемент больше чем в схему у Ravilr, но ему тоже предется добавить чтоб удалить первую строку с нолем.
карма: 11

1
файлы: 1code_15089.txt [1.8KB] [350]
Голосовали:Tad
Ответов: 16884
Рейтинг: 1239
#9: 2009-09-30 00:41:58 ЛС | профиль | цитата
sla8a, зря на себя наговариваешь. Хаб после второго If_Else.onFalse лишний - так что уложился в 15 компонент и без лишних строк.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2271
Рейтинг: 677
#10: 2009-09-30 02:13:40 ЛС | профиль | цитата
На рекорд
Add(MainForm,13105371,378,273)
{
Width=711
Height=480
link(onCreate,7802121:doEvent1,[])
}
Add(StrList,3068266,455,245)
{
Strings=#4:Вася|6:Петя12|4:Петя|9:yandex.ru|14:Ольга Игоревна|30:На дворе трава, на траве дрова|4:Петя|7:.......|4:Вася|16:Манька-облигация|4:Петя|6:и т.д.|
Point(doSort)
}
Add(Hub,7802121,420,287)
{
link(onEvent1,3068266:doSort,[])
link(onEvent2,15267502:doEnum,[(448,300)(448,314)])
}
Add(ArrayEnum,15267502,469,308)
{
link(onItem,2812176:doEvent1,[])
link(onEndEnum,2812176:doEvent2,[])
link(Array,3068266:Array,[])
}
Add(StrList,6112822,574,196)
{
Point(String)
Point(doGetString)
link(onChange,6112822:doGetString,[(624,202)(624,258)(568,258)(568,244)])
}
Add(FormatStr,12744511,630,322)
{
link(onFString,4565890:doAdd,[])
link(Str1,93107:Var3,[(636,292)])
link(Str2,11191516:Var3,[(643,285)])
}
Add(Memo,4565890,679,322)
{
Left=220
Top=40
Width=235
Height=190
link(onChange,6112822:doClear,[(723,328)(723,276)(546,276)(546,209)])
}
Add(If_else,14312302,546,308)
{
Op2=Integer(0)
link(onFalse,2672414:doCompare,[])
link(Op1,93107:Var2,[])
}
Add(If_else,2672414,588,315)
{
link(onFalse,12744511:doString,[])
link(Op2,11191516:Var2,[])
}
Add(GetDataEx,11191516,595,280)
{
link(Data,6112822:String,[])
}
Add(GetDataEx,93107,546,287)
{
link(Data,6112822:Count,[(552,267)(587,267)])
}
Add(Hub,2812176,518,308)
{
InCount=2
link(onEvent1,14312302:doCompare,[])
link(onEvent2,6112822:doAdd,[(538,321)(538,202)])
}
карма: 11

1
Голосовали:-= DriveR =-
Ответов: 817
Рейтинг: 52
#11: 2009-09-30 09:09:23 ЛС | профиль | цитата
Ну господа вы головасты
спасибо, ща буду разбираться с каждой схемой
Всем по ++
------------ Дoбавленo в 09.11:
Блин, чего то больше одного плюса не ставиться
Говорит что я уже голосовал
карма: 1

0
Ответов: 242
Рейтинг: 13
#12: 2009-09-30 09:52:41 ЛС | профиль | цитата
Извините но как то тему создавал для создания эталонного списка . Т.Е. есть список

12123
777
234
324апв
345345
234
777

который должен остаться без дубликатов. Схемку потерял к сожалению . (было в начале августа)

карма: 0

0
Ответов: 4641
Рейтинг: 334
#13: 2009-09-30 09:58:46 ЛС | профиль | цитата
Bams писал(а):
остаться без дубликатов

используй ChangeMon
------------ Дoбавленo в 10.00:
и посмотри мой первый пост! Там все просто!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:Bams
Гость
Ответов: 17029
Рейтинг: 0
#14: 2009-10-18 22:13:02 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:36:33
карма: 0

0
Ответов: 4641
Рейтинг: 334
#15: 2009-10-18 22:13:43 ЛС | профиль | цитата
был выше я. Вылетел!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)