Вверх ↑
Этот топик читают: Гость
Ответов: 204
Рейтинг: 2
#1: 2018-01-25 17:17:40 ЛС | профиль | цитата
стыдно сказать, споткнулся на элементарной задаче!
Есть строчка с цифрами разделенная запятыми. " 1,12,5,2,1,12" нужно удалить одинаковые числа оставив только одно. чтобы получилось вот так: "1,12,5,2"

Подскажите решение, пожалуйста! А то что-то я совсем затупил!!!

Как назло и поиск на форуме чудит. (((


Редактировалось 1 раз(а), последний 2018-01-25 17:18:52
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 4621
Рейтинг: 746
#2: 2018-01-25 18:04:36 ЛС | профиль | цитата
Разбиваешь строку по запятым, числа добавляешь в список/массив. С помощью компонента ArrayFilterRepeats удаляешь повторения.
карма: 26

0
Ответов: 8888
Рейтинг: 823
#3: 2018-01-25 19:58:46 ЛС | профиль | цитата
ogrif, или на "рассыпухе" то же самое
То же


Add(MainForm,2953706,252,119)
{
link(onCreate,1400075:doWork1,[(291,139)(291,125)])
}
Add(Edit,9994111,406,182)
{
Left=45
Top=240
Width=335
}
Add(Memo,11792703,357,119)
{
Left=5
Top=5
Width=375
Height=205
}
Add(Button,15339906,252,161)
{
Left=5
Top=215
Caption="New"
link(onClick,1400075:doWork2,[(298,167)(298,132)])
}
Add(Button,14239844,308,182)
{
Left=5
Top=240
Width=35
Caption=">>"
link(onClick,3784743:doParse,[])
}
Add(MultiElementEx,3784743,357,182)
{
@Hint=#23:Удаление повторов строк|
link(onParse,9994111:doText,[])
link(StrForParse,11792703:Text,[])
}
BEGIN_SDK
Add(EditMultiEx,9238216,21,21)
{
WorkCount=#7:doParse|
EventCount=#7:onParse|
DataCount=#11:StrForParse|
Width=335
Height=270
HOffset=49
link(doParse,8878397:doEvent1,[(32,27)(32,118)])
}
Add(Str_Enum,5009525,70,119)
{
Delimiter=","
link(onEnum,4128855:doEnum,[])
link(onEndEnum,14644207:doData,[(109,132)(109,230)])
link(String,9238216:StrForParse,[])
}
Add(Hub,8878397,42,112)
{
link(onEvent1,2206075:doClear,[(109,118)(109,55)])
link(onEvent2,5009525:doEnum,[])
}
Add(StrList,2206075,168,42)
{
}
Add(ArrayEnum,4128855,182,119)
{
onBreakEnable=0
Point(onBreak)
link(onItem,14565076:doCompare,[])
link(onEndEnum,2360394:doData,[(221,132)(221,188)])
link(Array,2206075:Array,[])
}
Add(If_else,14565076,238,119)
{
link(onTrue,4128855:doStop,[(280,125)(280,160)(172,160)(172,132)])
link(Op1,2535594:Var1,[(244,110)(163,110)])
}
Add(DoData,2360394,238,182)
{
link(onEventData,2206075:doAdd,[(288,188)(288,31)(158,31)(158,48)])
link(Data,2535594:Var3,[(244,175)])
}
Add(GetDataEx,2535594,157,170)
{
Angle=3
link(Data,5009525:Part,[(83,175)])
}
Add(DoData,14644207,140,224)
{
link(onEventData,3919676:doReplace,[])
link(Data,2206075:Text,[(146,96)(174,96)])
}
Add(Replace,3919676,189,224)
{
SubStr="\10"
link(onReplace,1187460:doReplace,[])
}
Add(Replace,1187460,238,224)
{
SubStr="\13"
DestStr=","
link(onReplace,5920612:doTrim,[])
}
Add(Trim,5920612,287,224)
{
Char=","
link(onTrim,9238216:onParse,[(332,230)(332,27)])
}
END_SDK
Add(MultiElement,1400075,308,119)
{
@Hint=#21:10000 цифр от 1 до 20|
link(onEvent1,11792703:doAdd,[])
link(onEvent2,11792703:doClear,[])
}
BEGIN_SDK
Add(EditMulti,613567,21,21)
{
EventCount=2
WorkCount=2
VOffset=14
link(doWork1,7259496:doEvent1,[])
link(doWork2,2387046:doWork2,[(32,48)(32,69)])
}
Add(For,4119610,98,70)
{
End=9999
link(onEvent,2268329:doRandom,[])
link(onStop,8284545:doEvent1,[(144,83)(144,132)])
}
Add(Random,2268329,161,70)
{
Min=1
Max=20
link(onRandom,9803161:doStrCatDlm,[])
}
Add(Hub,7259496,35,35)
{
link(onEvent1,2268329:doRandomize,[(151,41)(151,83)])
link(onEvent2,2387046:doWork1,[(60,48)])
}
Add(Hub,11461128,70,63)
{
link(onEvent1,613567:onEvent2,[(137,69)(137,48)])
link(onEvent2,4119610:doFor,[])
}
Add(StrCatDelim,9803161,217,70)
{
Delimiter=","
Point(doClear)
link(Str1,5076369:Var1,[(223,61)(209,61)(209,110)])
}
Add(DoData,12688821,217,126)
{
link(onEventData,1017570:doTrim,[])
link(Data,5076369:Var2,[])
}
Add(GetDataEx,5076369,217,105)
{
link(Data,9803161:Result,[])
}
Add(Hub,8284545,175,126)
{
link(onEvent1,12688821:doData,[])
link(onEvent2,9803161:doClear,[(200,139)(200,83)])
}
Add(HubEx,2387046,56,63)
{
link(onEvent,11461128:doEvent1,[])
}
Add(Trim,1017570,259,126)
{
Char=","
link(onTrim,613567:onEvent1,[(298,132)(298,41)])
}
END_SDK

карма: 19

0
Ответов: 204
Рейтинг: 2
#4: 2018-01-25 20:11:00 ЛС | профиль | цитата
Ох, спасибо вам большое! )))

Кстати, а почему так жестко лагает поиск на форуме? По некоторым запросам он находит ответы в wiki и выводит пустые окна?! Насколько помню раньше такого небыло. За годы существования HiAsm столько всего наспрашивали, что еще недавно, можно было найти ответ практически на любую задачку, а сейчас чуть что посложнее и нету или отсылка к wiki какторая не робит?!
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#5: 2018-01-25 21:05:56 ЛС | профиль | цитата
ogrif, то о чём писал Netspirit:


Add(MainForm,2953706,21,77)
{
Height=79
Position=1
}
Add(Str_Enum,1357210,140,84)
{
Delimiter=","
link(onEnum,10525918:doAdd,[(205,90)(205,76)])
link(onEndEnum,15151108:doFilter,[(212,97)(212,146)])
link(String,15714988:Text,[])
}
Add(Button,9522335,70,77)
{
Left=155
Top=10
Caption=">>>"
link(onClick,4420159:doEvent1,[])
}
Add(Edit,15714988,140,28)
{
Left=30
Top=10
Width=107
Height=18
Text="1,12,5,2,1,12"
}
Add(Edit,12306356,378,133)
{
Left=230
Top=10
Width=130
Text=""
}
Add(StrList,10525918,238,70)
{
Point(doGetString)
Point(Index)
}
Add(Hub,4420159,112,77)
{
link(onEvent1,10525918:doClear,[])
link(onEvent2,1357210:doEnum,[])
}
Add(ArrayFilterRepeats,15151108,252,140)
{
link(onFilter,5609309:doStrCatDlm,[])
link(onEndFilter,8285186:doDelete,[(301,153)(301,202)])
link(Array,10525918:Array,[])
}
Add(StrCatDelim,5609309,329,140)
{
Delimiter=","
link(onStrCatDlm,594143:doWork2,[])
link(Str1,9974090:Var2,[])
}
Add(Delete,8285186,315,196)
{
Count=1
link(onDelete,594143:doWork3,[(368,202)])
link(Str,9974090:Var1,[(321,120)])
}
Add(GetDataEx,9974090,329,115)
{
Angle=1
link(Data,12306356:Text,[(420,120)(420,177)(384,177)])
}
Add(HubEx,594143,364,140)
{
link(onEvent,12306356:doText2,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5227
Рейтинг: 588
#6: 2018-01-26 21:39:19 ЛС | профиль | цитата
ogrif писал(а):
Кстати, а почему так жестко лагает поиск на форуме? По некоторым запросам он находит ответы в wiki и выводит пустые окна?! Насколько помню раньше такого небыло. За годы существования HiAsm столько всего наспрашивали, что еще недавно, можно было найти ответ практически на любую задачку, а сейчас чуть что посложнее и нету или отсылка к wiki какторая не робит?!

Сам то чем помог проекту . Рыбаков то много, художников что рыбу рисуют не хватает
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 204
Рейтинг: 2
#7: 2018-01-27 13:08:55 ЛС | профиль | цитата
andrestudio писал(а):
Сам то чем помог проекту . Рыбаков то много, художников что рыбу рисуют не хватает


вообще-то мой вопрос не был претензией что нет "рыбы" как таковой! Я спросил отчего те "рыбы" что были на форуме ранее, теперь недоступны?!
Чисто информационный вопрос без претензий!

По поводу помощи проекту, да я всеми лапами только за! Вот только кому помогать? форум медленно умирает. Вот так зайдешь на форум, посмотришь внизу страницы на тех кто на форуме и кто заходил за 24часа и как-то становится грустно. Список все короче и короче, а новых ников все меньше!

На форуме одни и теже люди из года в год. Можно было бы затеять совместными усилиями продвижение, но только смысл в этом? Ведь и сам разработчик (Dilma), похоже что давно отказался от развития проекта. (Hion - я не рассматриваю так как это уже совсем про другое).
И все это очень грустно так как адекватной альтернативы данному проекту увы нет!
карма: 1

0
Ответов: 537
Рейтинг: 14
#8: 2018-01-27 17:27:11 ЛС | профиль | цитата
С чего ты взял такую эресть, люди на форуме наоборот добавляющийся не считая тебя - Пожалуйста -1
карма: 4

0
Ответов: 4621
Рейтинг: 746
#9: 2018-01-29 12:22:27 ЛС | профиль | цитата
ogrif писал(а):
Я спросил отчего те "рыбы" что были на форуме ранее, теперь недоступны?!
После переноса форума на новый движок часть файлов потерялась, часть ссылок на темы не сконвертировалась в новый формат.
карма: 26

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