Вверх ↑
Этот топик читают: Гость
Ответов: 1535
Рейтинг: 176
#16: 2013-09-07 00:06:44 ЛС | профиль | цитата
Chipset писал(а):
Мне нужен текст конкретной нажатой строки.

Думаю можно воспользоваться компонентом HilightMemo вместо простого RichEdit.
Add(MainForm,13874595,161,112)
{
Width=385
Height=589
}
Add(Edit,8583328,287,70)
{
Left=5
Top=5
Width=90
Text="красн"
Point(doSetFocus)
}
Add(HilightMemo,81032,343,84)
{
Left=5
Top=30
Width=360
Height=450
Font=[Courier New,8,0,0,1]
Strings=#24:групп компаний RDS GROUP|19:Яр Краска, ООО, ТПК|25:Яндекс.Маркет. Красноярск|19:Юнитест-Сибирь, ООО|12:Юнирбау, ЗАО|9:ЮУТК, ООО|17:ЮМАКОМ, Компания |12:Эпсилон, ООО|22:Энергометкомплект, ООО|25:Энергомаш ОАО - г.Тверь|27:Энергогарант ООО - г. Томск|10:Эмаль, ООО|12:Элсервис ООО|13:Электрум, ЗАО|27:Электрофорфор - МО г.Реутов|15:Электроснаб ООО|20:Электропоставка, ООО|11:Электронебо|16:Электромотор НПО|19:Электрокаталог, ООО|18:Электроизделия, ТД|31:Электродстройкомплект, ООО, ЭСК|18:Электро-Мастер ООО|21:Экспресс-мастер-2, ТД|19:Эксперт-Сибирь, ООО|21:Эксперт-Ойл, компания|35:Экострой Град ООО (Пеностекло, ООО0|11:Эконом, ООО|14:Экоградгаз ООО|16:ЭкоПром-Сиб, ООО|16:Экип-Металл, ООО|8:Эгопласт|10:Эврика ООО|18:Эверест-Строй, ООО|7:ЭТМ ООО|10:ЭСТИМ, ТПК|10:ЭРТАГ, ООО|27:ЭПК Энергопромкомплекс, ООО|16:ЭНПЦ ЭПИТАЛ, ЗАО|26:ЭНЕРГОПРОМ МЕНЕДЖМЕНТ, ЗАО|15:ЭЛРОСА Компания|29:ЭЛКЗ ТД Электрокабельный з-д |22:ЭЛЕКТРОМОНТАЖ МПО, ЗАО|23:ЭЛДЭНСТРОЙСНАБ, ООО, ТК|6:ЭЛДИАМ|15:ЭКОДОРСНАБ, ООО|25:Шиноремонтный завод, ООО |30:Чугунолитейный завод БКМЗ, ОАО|15:ЧипДип магазин |22:Четыре сезона, ООО, ТК|16:Чемпион, ООО, ТФ|27:Циклон Завод ЗАО - г.Москва|17:ЦентроКамень, ООО|18:ЦентрЦемРесурс ООО|30:Центр дорожных технологий, ООО|14:Центр РТИ, ООО|18:Цена по Челябинску|25:Цена по ССЦ 81-77-2010-12|21:Цементресурс, ООО, ТД|27:Хозуниверсал, склад-магазин|29:Хозоптторг, ИП Слепченко В.В.|10:Химпэк, ГК|19:Химпромтара ТД, ООО|20:Химпром Компания ООО|17:Химпродукция, ОАО|20:Химические товары ГК|25:Химиком, оптовая компания|34:Химико-металлургический завод, ОАО|29:ХимСтройРесурс, ООО (г. Тула)|32:Фотоаптека, ООО интернет магазин|11:Форум, ООО |14:Формос ТК, ООО|15:Формопласт, ООО|25:Форвард, магазин (филиал)|16:Флора Сибири ООО|12:Флигель, ООО|30:Флагман, строительная компания|14:Фирма Янус ООО|54:Фирма Энергозащита, ОАО, филиал Назаровский завод ТИиК|30:Фин-Трейд, ООО, г. Новосибирск|11:Феррум, ООО|14:Факел, ООО, ТД|16:ФОЛЬГОПЛАСТ, ООО|19:Уяржелезобетон, ОАО|25:УралэнергоПромпроект, ЗАО|41:Уральский завод рельсовых скреплений, ЗАО|36:Уральские трубопроводные системы ООО|33:Уральские буровые технологии, ООО|48:Уральская промышленно-строительная компания, ООО|39:Уральская металло-трубная компания, ООО|17:Уралтрубпром, ОАО|24:Уралтрубосталь, ЗАО, ТД |30:Уралсибсервис, ООО (г. Тюмень)|20:Уралрегионхимреактив|18:Уралплит, компания|20:УралТрубСнаб ТД, ЗАО|32:УралСибТрейд-Красноярск, ООО, ТК|17:УралИнтерьер, ООО|28:УралАктив ООО г.Екатеринбург|15:Урал-Трейд, ООО|64:Управление зеленого строительства. МП (Совхоз Октябрьский, МУП) |37:Управление зеленого строительства, МП|25:Универсал-Красноярск, ООО|15:УдмуртСнаб, ООО|9:УЭМК, ООО|16:Тёплый край, ООО|20:Тяжпромкомплект. ООО|18:ТэоХим-Сибирь, ООО|15:Трубный мир ООО|45:Третье Красноярское монтажное управление, ООО|15:Третий Рим, ООО|25:Трасмаш ООО г.Москва, СПб|40:Трансхимэкспорт, ООО, ГК Трансхимреактив|23:Трансмаш ГК - г. Москва|13:Транском, ООО|16:Транзит Хим, ООО|25:Тракт-Красноярск, ЗАО, ТК|22:Торгснаб-Огнеупор, ООО|35:Торговый дом сантехники - Север ООО|21:Торговый дом РТИ, ООО|29:Торговый дом Балт-Трейд, ООО|19:Торговый дизайн ООО|50:Торгово-производственное объединение техком, ООО, |12:ТоргМет, ООО|15:Топаз-Плюс, ООО|27:Тойма Казанский завод связи|18:Тинко Торговый Дом|12:Тимерлан ООО|12:Тиатера, ООО|26:Техэнерго интернет магазин|31:Техторг (Красэмаль), ООО, завод|32:Техпромимпэкс ТД ООО (г. Москва)|28:Техносервис ООО, г. Волжский|17:Технониколь, ООО |15:Технология, ООО|21:Технические газы, ООО|23:Техническая бумага, ООО|36:ТехникСан Интернет магазин г. Москва|15:Техмаркет групп|41:ТехПромСервис (Волгоградстроймонтаж), ООО|23:ТехПодъём компания, ООО|34:Тех-Хим ООО (Красхимснаб, ООО, КФ)|10:Терсь ООО |20:Терминалнефтегаз ЗАО|17:Теплотек, ООО, ТК|13:Теплоком, ООО|16:ТеплоТен магазин|19:ТеплоСфера, ООО, ТД|30:Текстиль-Дом ТК, (Аметист, ТК)|17:Текнос-Охтэк, ООО|10:Талас, ООО|32:Тайм компания г. Санкт-Петербург|17:ТТЦ ЭМИ плюс ООО |8:ТСК, ООО|8:ТПК, ООО|12:ТПК Инфрахим|13:ТОР-Импекс ГК|21:ТЛТ ООО г.С-Петербург|11:ТЗЭТ ТД ООО|25:ТД ЦветКомплексМеталл ООО|12:ТД Технотекс|25:ТД Сибирская усадьба, ООО|27:ТД Инвайер интернет магазин|24:ТД Дорогобужкотломаш ООО|51:Сывеловские краски-завод лакокрасочных изделий, ООО|24:Сфера, ООО (м-н Электро)|14:Стронекс , ООО|13:Стромэкс, ООО|17:Стройхолдинг, ООО|21:Стройтехснаб, ООО, ПК|26:Стройтеплосервис, ООО, ТД |20:Стройстекло, ООО, ТК|21:Стройресурс - г.Пенза|31:Строймир-М, ООО (г.Красногорск)|13:Строймаш, ООО|46:Стройиндустрия, ОАО, производственная компания|15:Стройинвест ООО|30:Стройгрупп-I, ТД (Сатурн), ООО|27:Стройбытмет, ООО (Стройбыт)|14:Стройбург, ООО|14:СтройТэкс, ООО|21:СтройТехСнабжение ООО|26:СтройПерспектива, ООО, ТК |16:СтройМастер, ООО|20:СтройИнжиниринг, ООО|16:СтройИмпэкс ООО |18:Строй-Транс Н, ООО|25:Строительный крепеж, ООО |30:Строительные системы БАСФ, ООО|33:Строительные материалы, ООО, ПКФ |34:Строительные материалы ИП Мезенцев|40:Строительные Материалы и Технологии, ООО|37:Строительная керамика, торговая фирма|29:Стратегия и паритет Компания |33:Страна тепла интернет магазин СПб|16:Страйк Сити, ООО|27:Стоун, ООО, кирпичный завод|18:Стиропласт, завод |14:СтинКабель ООО|12:Стимэкс, ООО|16:Стержень СП ЗАО |22:Стекломастер плюс, ООО|15:Старт г. Москва|13:Стан-Мет, ООО|20:Стальмонтаж, ЗАО, СК|16:Стальмаш ГП, ООО|11:Стальком ПФ|14:СтальТранс ООО|47:СтальПрокат (Трубная компания) Красноярск, ООО|56:Сталепромышленная компания, ЗАО, филиал в г. Красноярске|22:Средние рыночные цены |18:Спецэмаль НПФ, ООО|28:Спецэлектродсервис, ООО, ПКП|15:Спецтехснаб ООО|30:Спецстройсервис-2009, ООО, ТПК|15:Спецкраски, ООО|21:СпецКомплект, ООО, ТК|21:СпецКомплекс, ООО, ТК|18:Спец-Торг, ООО, ТК|10:Сорбис ООО|7:Сом, ТД|34:Содружество, ООО (кирпичный завод)|48:Советское, ОАО, ремонтно-техническое предприятие|38:Снабкомплект г. Москва , г.С-Петербург|42:Снабженец, магазин строительных материалов|40:Служба пути Красноярской железной дороги|14:Скан, ООО, ПТК|27:Синдика-О магазин г. Москва|10:Синай, ООО|41:Сикуреза комплексные системы безопасности|26:Сибтеплоизоляция, ЗАО, КСУ|24:Сибрезинотехника НПП ООО|22:Сибпромсырье, ООО, ТК |15:Сибпроммаш, ООО|13:Сибмонтаж, ПК|13:Сиблитмаш ОАО|32:Сибкраска , лакокрасочный завод |42:Сибиряк, управляющая строительная компания|33:Сибирское буровое снабжение, ООО |22:Сибирский элемент, ООО|31:Сибирский центр флористики, ООО|20:Сибирский стиль, ООО|38:Сибирский производственный альянс, ООО|38:Сибирский партер ООО (Строй-линия) ООО|22:Сибирский ориентир, ГК|32:Сибирский оазис частный питомник|25:Сибирский металл, ООО, ТК|26:Сибирский гранитный карьер|42:Сибирский бизнес, ООО, Красноярский филиал|25:Сибирский бетон, ООО, ТПК|24:Сибирский Центр РТИ, ООО|40:Сибирские трубопроводные системы ТД, ООО|28:Сибирская упаковка, ООО, ТПК|30:Сибирская торговая группа, ООО|34:Сибирская стекольная компания, ЗАО|23:Сибирская пальмира, ТД |26:Сибирская Усадьба, ООО, СК|21:Сибагропромстрой, ЗАО|21:СибТрансАзия, ООО, ТК|26:СибТеплоКомплект, ООО, СТК|11:СибТара, ТК|20:СибСантехСервис, ООО|11:СибВек, ООО|23:Серебряный Водолей, ООО|27:Семена для Сибири, ООО, ПКФ|31:Севзапэлектромонтаж ПКЦ ООО СПб|19:Северокоопснаб, ЗАО|13:Север-Юг, ООО|30:Связьстройдеталь ЗАО -г.Москва|16:Связьдеталь ООО |18:Связь Комплект, ТД|31:Светотехника, ТК, ООО Техноград|15:Сварог ПКФ, ООО|14:Сварка КФ, ООО|20:Саратов Комплект ООО|30:Сантехсклад г. Санкт-Петербург|26:Сантехприбор ОАО, г.Казань|25:Сантехлайт г.Екатеринбург|19:Сантехкомплект, ООО|20:Сантехзавод N3, ООО |14:Сантехарматура|11:СанТехПласт|16:Сады Енисея, ООО|18:СТС-Красноярск ООО|19:СТРОЙИНДУСТРИЯ, ООО|21:СТК Аксиома г.Москва|11:СТ-Холод ТК|14:СПЕЦСТРОЙ, ООО|9:СОЮЗ ТК |14:СКС-ЮНИОН, ООО|16:СК-Полимеры, ООО|15:СК ХимПром, ООО|17:СИБНАФТА, ООО, ТК|45:СЗЛМК, ООО Сибирский завод металлоконструкций|11:СВ и ВС ООО|24:САТЭКС завод - г. Москва|10:САНЛИТ ООО|11:САВИТЕК ООО|14:С-Эксперт, ООО|37:Рязанский шпалопропиточный завод, ОАО|17:Русский Химик ООО|16:Рускомплект, ООО|10:Русич, ООО|17:РусДорбизнес, ООО|13:Рубин ТД, ООО|13:Рострейд, ООО|21:РостеплоИзоляция, ООО|29:Российский нефтяной союз, ООО|24:РосполимерСтрой, ГК, ООО|8:Ровен ГК|21:Рика сервис, ООО, ПКФ|27:Ремстройторг (Лакомир), ООО|17:Ремстройпуть, ЗАО|9:Ремес ООО|10:Регул, ООО|19:РегионПром, ООО, ПК|23:Регион-ХимСнаб, ООО, ТК|18:РеалСнаб, ООО, ККС|13:Реактив, ООО |6:Расчет|15:Разал, компания|21:Радуга Красок ПК, ООО|13:РадиоТехИмидж|21:РУСНасос.ру -г.Москва|14:РСБ -Акватерм |15:РС Холдинг, ООО|16:РОСТТОРГ ТД, ООО|13:РОСТ ПКФ, ООО|49:РН-Красноярскнефтепродукт (АЗС Роснефть), ООО, ТК|9:РАСКО НПФ|13:Путь-СПб, ООО|32:Пульс цен г. Пермь - Водотехника|
HilightStrings=#
HilightFont=[Courier New,8,0,0,1]
ReadOnly=0
Point(doHilightStrings)
Point(onMouseUp)
Point(PositionY)
link(onMouseUp,8176411:doRead,[(394,97)(394,155)(345,155)(345,181)])
}
Add(ArrayRW,8176411,357,175)
{
link(onRead,1818948:doText,[])
link(Array,81032:Array,[])
link(Index,81032:PositionY,[])
}
Add(StrCat,2471233,287,126)
{
Str2="=red=b"
link(onStrCat,81032:doHilightStrings,[])
link(Str1,8583328:Text,[])
}
Add(Button,13359265,217,126)
{
Left=100
Top=5
link(onClick,15153279:doEvent1,[])
}
Add(Hub,15153279,259,126)
{
link(onEvent1,2471233:doStrCat,[])
link(onEvent2,8583328:doSetFocus,[(280,139)(280,90)])
}
Add(Label,1818948,406,175)
{
Left=10
Top=485
Width=354
Height=59
Caption=""
AutoSize=1
}

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8918
Рейтинг: 823
#17: 2013-09-07 01:16:13 ЛС | профиль | цитата
г. ость,
Chipset, наверное так (на простом RichEdit-е ):
code_31757.txt
карма: 19

0
файлы: 1code_31757.txt [3.1KB] [387]
Ответов: 1535
Рейтинг: 176
#18: 2013-09-07 02:55:45 ЛС | профиль | цитата
Леонид, тогда можно гораздо проще и производительней!
Add(MainForm,2953706,126,84)
{
Width=336
Height=345
}
Add(RichEdit,2397271,210,84)
{
Left=5
Top=30
Width=290
Height=225
Strings=#24:групп компаний RDS GROUP|19:Яр Краска, ООО, ТПК|25:Яндекс.Маркет. Красноярск|19:Юнитест-Сибирь, ООО|12:Юнирбау, ЗАО|9:ЮУТК, ООО|17:ЮМАКОМ, Компания |12:Эпсилон, ООО|22:Энергометкомплект, ООО|25:Энергомаш ОАО - г.Тверь|27:Энергогарант ООО - г. Томск|10:Эмаль, ООО|12:Элсервис ООО|13:Электрум, ЗАО|0:|
ScrollBars=2
ReadOnly=0
CanDragOle=1
ParseLinks=0
Point(doSetSelStart)
Point(doSetSelLength)
Point(doFormatSel)
Point(Position)
Point(onMouseUp)
link(onMouseUp,8729519:doEnum,[(253,97)(253,73)(198,73)(198,174)])
}
Add(Edit,5298288,420,168)
{
Left=5
Top=265
Width=295
Text=""
ClearAfterEnter=1
link(onChange,8729519:doStop,[(473,174)(473,229)(198,229)(198,181)])
link(Str,8729519:Part,[(426,152)(404,152)(404,218)(223,218)])
}
Add(Str_Enum,8729519,210,168)
{
Delimiter="
"
link(onEnum,14199495:doLength,[])
link(onEndEnum,13773146:doClear,[])
link(String,2397271:Text,[])
}
Add(If_else,8738010,364,168)
{
Type=4
link(onTrue,5298288:doText,[])
link(Op2,2397271:Position,[(377,151)(237,151)])
}
Add(Length,14199495,259,168)
{
link(onLength,13773146:doOperation,[])
}
Add(Math,13773146,315,168)
{
Point(doClear)
link(onResult,8738010:doCompare,[])
link(Op1,13773146:Result,[(321,156)(309,156)(309,212)(321,212)])
}

карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:Chipset
Гость
Ответов: 17029
Рейтинг: 0
#19: 2013-09-07 05:56:10 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-06-24 08:51:24
карма: 0

0
Ответов: 186
Рейтинг: 9
#20: 2013-09-07 08:09:38 ЛС | профиль | цитата
ser_davkin, спасибо, то что надо.
А я не допер, 2 дня крутил вертел по всякому.

Квалификации видимо маловато

Леонид, тоже работает, но намудрил

ser_davkin писал(а):
Думаю можно воспользоваться компонентом HilightMemo вместо простого RichEdit.

code_31758.txt
Я тоже хотел его использовать, но в нем выделяется все слово, а нужно только то что написано в Edit

Как бы то ни было, для себя я задачу решил, ser_davkin, Леонид, спасибо за помощь.
карма: 0

0
файлы: 1code_31758.txt [16.8KB] [476]
Ответов: 8918
Рейтинг: 823
#21: 2013-09-07 09:59:41 ЛС | профиль | цитата
ser_davkin писал(а):
проще и производительней
Проще да, а производительней нет
карма: 19

0
Ответов: 1535
Рейтинг: 176
#22: 2013-09-07 12:44:09 ЛС | профиль | цитата
Леонид писал(а):
Проще да, а производительней нет

Не понял тебя.
idstr.jpg
Add(RichEdit,16605657,259,28)
{
Left=5
Top=5
Width=285
Height=222
ScrollBars=2
Point(Position)
Point(onMouseUp)
Point(FileName)
link(onMouseUp,9072109:doEvent1,[(303,41)(303,104)(9,104)(9,167)])
}
Add(Str_Enum,2922802,259,168)
{
Delimiter=""
Point(doFrom)
link(onEnum,3739855:doConvert,[])
link(onEndEnum,16505171:doStop,[(303,181)(303,233)(102,233)(102,174)])
link(String,7104611:Var2,[])
}
Add(Convertor,3739855,315,168)
{
Mode=3
link(onResult,16324632:doCompare,[])
}
Add(If_else,16324632,357,168)
{
Op2=Integer(13)
link(onTrue,143657:doEvent1,[])
}
Add(Hub,5155164,217,161)
{
link(onEvent1,4168281:doEvent1,[(242,167)(242,160)(331,160)(331,118)])
link(onEvent2,2922802:doEnum,[])
}
Add(Copy,15920253,644,238)
{
link(onCopy,14510567:doText,[])
link(Str,7104611:Var3,[(650,145)])
link(Position,537073:Var3,[(657,222)])
}
Add(MemFifo,4285532,595,175)
{
Default=Integer(0)
Point(Data)
link(Data,316372:Var3,[(601,152)])
}
Add(If_else,3954745,497,175)
{
Type=3
Op2=Integer(0)
link(onTrue,3818584:doWork2,[])
link(onFalse,3173821:doEvent1,[])
link(Op1,316372:Var2,[])
link(Op2,97585:Result,[(510,138)(552,138)])
}
Add(Hub,3173821,546,182)
{
OutCount=3
link(onEvent1,3818584:doWork3,[(571,188)])
link(onEvent2,1350772:doCalc,[(585,195)(585,244)])
link(onEvent3,2922802:doStop,[(565,202)(565,219)(247,219)(247,181)])
}
Add(HubEx,3818584,567,175)
{
link(onEvent,4285532:doValue,[])
}
Add(MathParse,1350772,595,238)
{
MathStr="%1 - %2"
ResultType=0
link(onResult,15920253:doCopy,[])
link(X1,4285532:Value1,[])
link(X2,537073:Var2,[])
}
Add(GetDataEx,7104611,259,140)
{
link(Data,16605657:Text,[])
}
Add(GetDataEx,316372,497,147)
{
Angle=3
link(Data,2922802:NumSubStr,[(398,152)(398,208)(265,208)])
}
Add(GetDataEx,537073,602,217)
{
link(Data,4285532:Value2,[])
}
Add(Counter,2706752,497,98)
{
Max=999999999
link(onNext,97585:doOperation,[])
}
Add(Math,97585,546,98)
{
link(Op1,14352556:Var3,[(552,82)])
}
Add(Hub,143657,406,168)
{
link(onEvent1,2706752:doNext,[(428,174)(428,104)])
link(onEvent2,3954745:doCompare,[])
}
Add(Hub,4168281,469,112)
{
link(onEvent1,2706752:doReset,[])
link(onEvent2,4285532:doClear,[(490,125)(490,159)(583,159)(583,188)])
}
Add(MainForm,2953706,98,14)
{
Width=629
Height=278
link(onCreate,10679631:doFor,[])
}
Add(Edit,5298288,490,273)
{
Left=305
Top=65
Width=290
Text=""
ClearAfterEnter=1
link(onChange,8729519:doStop,[(536,279)(536,333)(226,333)(226,286)])
link(Str,8729519:Part,[(496,259)(478,259)(478,323)(244,323)])
}
Add(Str_Enum,8729519,231,273)
{
Delimiter="
"
link(onEnum,14199495:doLength,[])
link(onEndEnum,1691853:doEvent1,[])
link(String,7104611:Var1,[(237,145)])
}
Add(If_else,8738010,434,273)
{
Type=4
link(onTrue,5298288:doText,[])
link(Op2,14352556:Var2,[])
}
Add(Length,14199495,329,273)
{
link(onLength,13773146:doOperation,[])
}
Add(Math,13773146,385,273)
{
Point(doClear)
link(onResult,8738010:doCompare,[])
link(Op1,13773146:Result,[(391,261)(379,261)(379,317)(391,317)])
}
Add(Edit,14510567,693,238)
{
Left=305
Top=150
Width=291
Text=""
}
Add(Label,9674154,161,168)
{
Left=375
Top=125
}
Add(TimeCounter,16505171,112,161)
{
Precision=1
link(onStart,5155164:doEvent1,[])
link(onStop,9674154:doText,[])
}
Add(TimeCounter,1585188,112,273)
{
Precision=1
link(onStart,8729519:doEnum,[])
link(onStop,650494:doText,[])
}
Add(Hub,1691853,287,280)
{
link(onEvent1,13773146:doClear,[])
link(onEvent2,1585188:doStop,[(315,293)(315,318)(87,318)(87,286)])
}
Add(Label,650494,168,280)
{
Left=375
Top=40
}
Add(Label,12052074,42,7)
{
Left=305
Top=40
Width=56
Height=17
Caption="ser_davkin"
}
Add(Label,10269639,49,14)
{
Left=305
Top=125
Width=42
Height=17
Caption="Леонид"
}
Add(Hub,9072109,28,161)
{
link(onEvent1,16505171:doStart,[])
link(onEvent2,1585188:doStart,[(87,174)(87,279)])
}
Add(For,10679631,147,28)
{
End=1000
link(onEvent,6660462:doStrCat,[])
}
Add(StrCat,6660462,203,28)
{
Str2="-ая условная строка"
link(onStrCat,16605657:doAdd,[])
}
Add(GetDataEx,14352556,441,77)
{
Angle=3
link(Data,16605657:Position,[(286,82)])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1idstr.jpg [131KB] [512]
Ответов: 8918
Рейтинг: 823
#23: 2013-09-07 15:00:56 ЛС | профиль | цитата
ser_davkin, 1000 строк всего-то (их и ручками можно), вот результат на 370 кБайт:
373kb.jpg
и чем больше файл, тем больше разница
карма: 19

1
файлы: 1373kb.jpg [137.6KB] [501]
Голосовали:Tad
Ответов: 1535
Рейтинг: 176
#24: 2013-09-08 12:12:56 ЛС | профиль | цитата
Леонид писал(а):
и чем больше файл, тем больше разница
Тогда, я вообще ничего не понимаю. Либо ты меня водишь за нос (не исключаю), либо что-то непонятное для нас обоих. К тому же, ты в своей схеме некорректно находишь строку.
idstr2.jpg
Add(RichEdit,16605657,392,21)
{
Left=5
Top=30
Width=660
Height=127
ScrollBars=3
Point(Position)
Point(onMouseUp)
Point(FileName)
link(onMouseUp,9072109:doEvent1,[(437,34)(437,9)(13,9)(13,167)])
}
Add(Str_Enum,2922802,238,168)
{
@Color=11206400
Delimiter=""
Point(doFrom)
link(onEnum,3739855:doConvert,[])
link(onEndEnum,16505171:doStop,[(282,181)(282,233)(81,233)(81,174)])
link(String,7104611:Var2,[])
}
Add(Convertor,3739855,294,168)
{
@Color=11206400
Mode=3
link(onResult,16324632:doCompare,[])
}
Add(If_else,16324632,336,168)
{
@Color=11206400
Op2=Integer(13)
link(onTrue,143657:doEvent1,[])
}
Add(Hub,5155164,189,161)
{
@Color=11206400
link(onEvent1,4168281:doEvent1,[(209,167)(209,118)])
link(onEvent2,2922802:doEnum,[])
}
Add(Copy,15920253,623,238)
{
@Color=11206400
link(onCopy,14510567:doText,[])
link(Str,7104611:Var3,[(629,145)])
link(Position,537073:Var3,[(636,222)])
}
Add(MemFifo,4285532,574,175)
{
@Color=11206400
Default=Integer(0)
Point(Data)
link(Data,316372:Var3,[(580,152)])
}
Add(If_else,3954745,476,175)
{
@Color=11206400
Type=3
Op2=Integer(0)
link(onTrue,3818584:doWork2,[])
link(onFalse,3173821:doEvent1,[])
link(Op1,316372:Var2,[])
link(Op2,97585:Result,[(489,138)(531,138)])
}
Add(Hub,3173821,525,182)
{
@Color=11206400
OutCount=3
link(onEvent1,3818584:doWork3,[(550,188)])
link(onEvent2,1350772:doCalc,[(564,195)(564,244)])
link(onEvent3,2922802:doStop,[(544,202)(544,219)(226,219)(226,181)])
}
Add(HubEx,3818584,546,175)
{
link(onEvent,4285532:doValue,[])
}
Add(MathParse,1350772,574,238)
{
@Color=11206400
MathStr="%1 - %2"
ResultType=0
link(onResult,15920253:doCopy,[])
link(X1,4285532:Value1,[])
link(X2,537073:Var2,[])
}
Add(GetDataEx,7104611,238,140)
{
link(Data,16605657:Text,[(244,103)(398,103)])
}
Add(GetDataEx,316372,476,147)
{
Angle=3
link(Data,2922802:NumSubStr,[(377,152)(377,208)(244,208)])
}
Add(GetDataEx,537073,581,217)
{
link(Data,4285532:Value2,[])
}
Add(Counter,2706752,476,98)
{
@Color=11206400
Max=999999999
link(onNext,97585:doOperation,[])
}
Add(Math,97585,525,98)
{
@Color=11206400
link(Op1,14352556:Var3,[(531,82)])
}
Add(Hub,143657,385,168)
{
@Color=11206400
link(onEvent1,2706752:doNext,[(419,174)(419,104)])
link(onEvent2,3954745:doCompare,[])
}
Add(Hub,4168281,448,112)
{
@Color=11206400
link(onEvent1,2706752:doReset,[])
link(onEvent2,4285532:doClear,[(469,125)(469,159)(562,159)(562,188)])
}
Add(MainForm,2621237,112,42)
{
Width=688
Height=296
}
Add(Edit,5298288,476,259)
{
@Color=16755200
Left=5
Top=230
Width=460
Text=""
ClearAfterEnter=1
link(onChange,8729519:doStop,[(515,265)(515,318)(199,318)(199,272)])
link(Str,8729519:Part,[(482,245)(465,245)(465,311)(223,311)])
}
Add(Str_Enum,8729519,210,259)
{
@Color=16755200
Delimiter="
"
link(onEnum,14199495:doLength,[])
link(onEndEnum,1691853:doEvent1,[])
link(String,7104611:Var1,[(216,145)])
}
Add(If_else,8738010,420,259)
{
@Color=16755200
Type=4
link(onTrue,5298288:doText,[])
link(Op2,14352556:Var2,[])
}
Add(Length,14199495,308,259)
{
@Color=16755200
link(onLength,13773146:doOperation,[])
}
Add(Math,13773146,364,259)
{
@Color=16755200
Point(doClear)
link(onResult,8738010:doCompare,[])
link(Op1,13773146:Result,[(370,247)(358,247)(358,303)(370,303)])
}
Add(Edit,14510567,665,238)
{
@Color=11206400
Left=5
Top=185
Width=461
Text=""
}
Add(Label,9674154,140,168)
{
Left=75
Top=165
Font=[MS Sans Serif,10,1,32768,1]
}
Add(TimeCounter,16505171,91,161)
{
Precision=1
link(onStart,5155164:doEvent1,[])
link(onStop,9674154:doText,[])
}
Add(TimeCounter,1585188,91,259)
{
Precision=1
link(onStart,8729519:doEnum,[])
link(onStop,650494:doText,[])
}
Add(Hub,1691853,266,266)
{
@Color=16755200
link(onEvent1,13773146:doClear,[])
link(onEvent2,1585188:doStop,[(294,279)(294,304)(66,304)(66,272)])
}
Add(Label,650494,147,266)
{
Left=75
Top=210
Font=[MS Sans Serif,10,1,16711680,1]
}
Add(Label,12052074,56,35)
{
Left=5
Top=210
Width=56
Height=17
Caption="ser_davkin"
}
Add(Label,10269639,63,42)
{
Left=5
Top=165
Width=42
Height=17
Caption="Леонид"
}
Add(Hub,9072109,28,161)
{
OutCount=3
link(onEvent1,16505171:doStart,[])
link(onEvent2,1585188:doStart,[(67,174)(67,265)])
link(onEvent3,4549093:doOperation,[(55,181)(55,335)])
}
Add(GetDataEx,14352556,427,77)
{
Angle=3
link(Data,16605657:Position,[(419,82)])
}
Add(ODialog,3828325,231,42)
{
link(onExecute,6134210:doEvent1,[])
}
Add(Button,1946677,182,42)
{
Left=5
Top=5
Caption="Открыть"
link(onClick,3828325:doExecute,[])
}
Add(FormatStr,2105277,392,329)
{
DataCount=3
Mask="Текущая строка: %1

Всего строк: %2

Размер файла в байтах: %3"
PColor(Str2,16711935)
PColor(Str3,16755200)
link(onFString,6569515:doText,[])
link(Str2,16605657:Count,[])
link(Str3,1217663:Size,[(412,92)(335,92)])
}
Add(Label,6569515,455,329)
{
Left=475
Top=185
Width=185
Height=65
Caption=""
AutoSize=1
}
Add(Math,4549093,210,329)
{
OpType=1
Op2=1
link(onResult,2105277:doString,[])
link(Op1,8729519:NumSubStr,[])
}
Add(Hub,6134210,280,42)
{
link(onEvent1,16605657:doLoad,[])
link(onEvent2,1217663:doOpen,[])
}
Add(FileStream,1217663,322,49)
{
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1idstr2.jpg [119.2KB] [509]
Ответов: 16884
Рейтинг: 1239
#25: 2013-09-08 14:34:16 ЛС | профиль | цитата
Просветите - в чем задача ? И что за фаллометр.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#26: 2013-09-08 18:48:43 ЛС | профиль | цитата
Tad писал(а):
в чем задача ?
Да, мне не понятно почему замеры по времени, наших схем с Леонидом, различаются до наоборот. Смотри наши скрины.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8918
Рейтинг: 823
#27: 2013-09-08 19:20:58 ЛС | профиль | цитата
ser_davkin, я тоже картинку не понял: в Лицензии 585 кБ и 11455 строк?
Последнюю строку не находит, потому как нет за ней символа перевода строки, упустил
Откройте "ComentIni.txt" для одинаковости опыта, в нём 373 кБ, специально на картинке оставил.
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#28: 2013-09-08 20:21:19 ЛС | профиль | цитата
ser_davkin, ты сделай тест сначала так, как у тебя на схеме, а потом поменяй очерёдность. (на первом хабе)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#29: 2013-09-08 20:43:55 ЛС | профиль | цитата
Леонид писал(а):
я тоже картинку не понял: в Лицензии 585 кБ и 11455 строк?
Лень стало искать txt-файл с похожим или большим размером, поэтому просто многократно копипастил лицензию внутри самого файла.
Леонид писал(а):
Откройте "ComentIni.txt" для одинаковости опыта
Скинь мне его, а то поиком не нашёл.
------------ Дoбавленo в 20.43:
Tad писал(а):
ser_davkin, ты сделай тесть сначала так, как у тебя на схеме, а потом поменяй очерёдность. (на первом хабе)
Поменял. Если курсор ставить на первой строке текста, то результат по времени в целом одинаковый с небольшим перевесом в пользу моей схемы. Если же курсор ставить на последней строке, то снова, как и было, схема Леонида значительно запаздывает. Хм, не думал, что хаб может влиять на время.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#30: 2013-09-08 21:16:01 ЛС | профиль | цитата
Ну тогда и мои два теста :
Текстовый файл - 467 кб.
Леонид - 44176, 44343
ser_davkin - 25524, 21523

и текстовый файл 77 мб (840 000 строк)
Леонид - 2 806 812
ser_davkin -1 445 845

Время в микросекундах.

ser_davkin в ~2 раза быстрее.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)