Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2012-11-21 22:37:11 ЛС | профиль | цитата
VarNick, посмотри этот вариант. Вроде всё работает.

Add(MainForm,5939290,238,203)
{
Width=474
Height=502
}
Add(Memo,2219104,329,105)
{
Left=15
Top=10
Width=195
Height=455
Strings=#7:1. Папа|7:2. Мама|6:3. Сын|4:....|9:150. Дочь|10:1500. Авто|16:10000. Компьютер|0:|19:или без точек|0:|6:1 Папа|6:2 Мама|5:3 Сын|4:....|8:150 Дочь|9:1500 Авто|15:10000 Компьютер|0:|19:и даже без пробелов|0:|5:1Папа|5:2Мама|4:3Сын|4:....|7:150Дочь|8:1500Авто|14:10000Компьютер|0:|29:нужно получить чистые данные:|0:|4:Папа|4:Мама|3:Сын|4:....|4:Дочь|4:Авто|9:Компьютер|0:|10:1. abcd.ru|17:2. www.google.com|25:3. http://forum.hiasm.com|12:4. 123abc.ws|0:|22:и может быть без точки|0:|9:1 abcd.ru|16:2 www.google.com|24:3 http://forum.hiasm.com|11:4 123abc.ws|
ScrollBars=3
}
Add(RE_Search,319367,434,203)
{
Expression="^[0-9.]"
ModifierM=0
ModifierX=0
link(onMatch,10140256:doDelete,[])
link(onNotFound,7930103:doEnum,[])
}
Add(Delete,10140256,476,203)
{
link(onDelete,528938:doWork1,[(520,209)(520,200)(375,200)])
link(Str,3503242:Var2,[])
link(Position,319367:MatchPos,[(489,186)(535,186)(535,254)(447,254)])
link(Count,319367:MatchLen,[(496,193)(527,193)(527,245)(454,245)])
}
Add(Trim,13046289,595,210)
{
Char=" "
Mode=7
link(onTrim,4438604:doAdd,[])
}
Add(Str_Enum,7930103,546,210)
{
Delimiter="
"
From=0
link(onEnum,13046289:doTrim,[])
link(onEndEnum,6300716:doFilter,[(590,223)(590,272)])
link(String,3503242:Var3,[(552,180)])
}
Add(GetDataEx,3503242,476,175)
{
Angle=3
link(Data,5970792:Value,[(427,180)(427,247)(391,247)])
}
Add(Memory,5970792,385,203)
{
link(onData,319367:doExec,[])
}
Add(DoData,12294419,329,203)
{
link(onEventData,528938:doWork2,[])
link(Data,2219104:Text,[])
}
Add(HubEx,528938,371,203)
{
link(onEvent,5970792:doValue,[])
}
Add(Memo,2176698,742,266)
{
Left=255
Top=10
Width=195
Height=455
ScrollBars=3
}
Add(ArrayFilterRepeats,6300716,679,266)
{
link(onFilter,2176698:doAdd,[])
link(Array,4438604:Array,[])
}
Add(StrList,4438604,665,210)
{
}
Add(Button,8750880,238,154)
{
Left=215
Top=35
Width=35
Height=80
Caption=">>"
link(onClick,1093190:doEvent1,[])
}
Add(Hub,1093190,287,154)
{
OutCount=3
link(onEvent1,2176698:doClear,[(718,160)(718,279)])
link(onEvent2,4438604:doClear,[(640,167)(640,223)])
link(onEvent3,12294419:doData,[(315,174)(315,209)])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0