Вверх ↑
Этот топик читают: Гость
Ответов: 68
Рейтинг: 0
#1: 2022-10-25 23:47:15 ЛС | профиль | цитата
Добрый день. Подскажите пожалуйста по такой задаче:
Есть 2 списка, нужно сравнить строки в них, одинаковые убрать из обоих списков.
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8799
Рейтинг: 817
#2: 2022-10-26 10:44:49 ЛС | профиль | цитата


Add(MainForm,2953706,63,28)
{
Width=606
link(onCreate,108353:doEvent1,[])
}
Add(ListBox,10536458,294,112)
{
Left=10
Top=20
Width=185
Height=230
}
Add(ListBox,1727801,350,112)
{
Left=200
Top=20
Width=185
Height=230
}
Add(ListBox,685493,504,182)
{
Left=395
Top=20
Width=185
Height=230
}
Add(Button,521992,210,175)
{
Left=360
Caption="Delet"
link(onClick,13327723:doEvent1,[])
}
Add(ArrayEnum,6461886,308,182)
{
link(onItem,11679551:doEnum,[])
link(onEndEnum,10520705:doEnum,[(347,195)(347,328)])
link(Array,10536458:Array,[])
}
Add(ArrayEnum,11679551,364,182)
{
link(onItem,12388729:doCompare,[])
link(Array,1727801:Array,[])
}
Add(Hub,13327723,266,175)
{
link(onEvent1,14757201:doEvent1,[(291,181)(291,307)])
link(onEvent2,6461886:doEnum,[])
}
Add(If_else,12388729,420,182)
{
link(onTrue,7781633:doEvent1,[])
link(Op1,6461886:Item,[(426,166)(412,166)(412,222)(314,222)])
}
Add(StrList,14910342,420,259)
{
AddType=1
}
Add(FormatStr,9740913,364,259)
{
Mask="%1;%2"
link(onFString,14910342:doAdd,[])
link(Str1,6461886:Index,[(370,235)(321,235)])
link(Str2,11679551:Index,[])
}
Add(Hub,7781633,462,182)
{
link(onEvent1,685493:doAdd,[])
link(onEvent2,9740913:doString,[(487,195)(487,230)(354,230)(354,265)])
}
Add(Hub,14757201,364,301)
{
link(onEvent1,14910342:doClear,[(403,307)(403,272)])
link(onEvent2,685493:doClear,[(494,314)(494,195)])
}
Add(ArrayEnum,10520705,434,322)
{
link(onItem,5091495:doSplit,[])
link(Array,14910342:Array,[])
}
Add(MultiStrData,5091495,483,322)
{
link(onPart1,10536458:doDelete,[(543,328)(543,160)(284,160)(284,132)])
link(onPart2,1727801:doDelete,[(550,335)(550,153)(340,153)(340,132)])
}
Add(MultiElement,3210884,189,42)
{
@Hint=#15:Случайный текст|
link(onEvent1,12938338:doNext,[(228,48)(228,83)(130,83)(130,97)])
}
BEGIN_SDK
Add(EditMulti,90280,28,21)
{
EventCount=2
WorkCount=2
DataCount=1
VarCount=2
Width=489
Height=158
VOffset=7
HOffset=28
link(doWork1,15240120:doEvent1,[])
link(doWork2,15286128:doFor,[(39,41)(39,55)])
link(Var1,15286128:Position,[(62,173)(55,173)])
link(Var2,4498498:Value,[(69,152)(454,152)])
}
Add(For,15286128,49,49)
{
@Hint=#18:Количество абзацев|
End=21
IncludeEnd=1
link(onEvent,9486001:doRandom,[])
link(onStop,90280:onEvent2,[(88,62)(88,142)(503,142)(503,41)])
}
Add(For,11842154,154,49)
{
@Hint=#29:Количество слов в предложении|
link(onEvent,5410569:doText,[])
link(onStop,15892992:doEvent1,[(193,62)(193,97)])
link(End,9486001:Random,[(167,40)(146,40)(146,89)(111,89)])
}
Add(Random,9486001,105,49)
{
Min=7
Max=15
link(onRandom,11842154:doFor,[])
}
Add(InlineCode,5410569,203,42)
{
WorkPoints=#7:doStart|6:doText|
EventPoints=#5:onRes|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|23: onRes : THI_Event;|5: |52: procedure doStart(var _Data:TData; Index:Word); |50: procedure doText(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doStart;|6: begin|12: Randomize;|5: end;|0:|29:procedure THiAsmClass.doText;|15:var sss:string;|16: i,j:integer;|16: _Rnd:double;|5:BEGIN|11: sss:=' ';|24: j:=round(Random*12)+2;|19: for i:=0 to j do|9: begin|18: _Rnd:=Random;|42: if _Rnd<0.0003 then sss:=sss+'ё' else|42: if _Rnd<0.0007 then sss:=sss+'ъ' else|42: if _Rnd<0.0033 then sss:=sss+'ф' else|42: if _Rnd<0.0065 then sss:=sss+'э' else|42: if _Rnd<0.0101 then sss:=sss+'щ' else|42: if _Rnd<0.0149 then sss:=sss+'ц' else|42: if _Rnd<0.0213 then sss:=sss+'ю' else|42: if _Rnd<0.0286 then sss:=sss+'ш' else|41: if _Rnd<0.038 then sss:=sss+'ж' else|42: if _Rnd<0.0477 then sss:=sss+'х' else|42: if _Rnd<0.0598 then sss:=sss+'й' else|42: if _Rnd<0.0742 then sss:=sss+'ч' else|42: if _Rnd<0.0901 then sss:=sss+'б' else|42: if _Rnd<0.1066 then sss:=sss+'з' else|42: if _Rnd<0.1236 then sss:=sss+'г' else|41: if _Rnd<0.141 then sss:=sss+'ь' else|40: if _Rnd<0.16 then sss:=sss+'ы' else|42: if _Rnd<0.1801 then sss:=sss+'я' else|42: if _Rnd<0.2063 then sss:=sss+'у' else|42: if _Rnd<0.2344 then sss:=sss+'п' else|42: if _Rnd<0.2642 then sss:=sss+'д' else|42: if _Rnd<0.2963 then sss:=sss+'м' else|42: if _Rnd<0.3312 then sss:=sss+'к' else|42: if _Rnd<0.3752 then sss:=sss+'л' else|42: if _Rnd<0.4206 then sss:=sss+'в' else|42: if _Rnd<0.4679 then sss:=sss+'р' else|42: if _Rnd<0.5226 then sss:=sss+'с' else|42: if _Rnd<0.5852 then sss:=sss+'т' else|42: if _Rnd<0.6522 then sss:=sss+'н' else|42: if _Rnd<0.7257 then sss:=sss+'и' else|42: if _Rnd<0.8058 then sss:=sss+'а' else|42: if _Rnd<0.8903 then sss:=sss+'е' else|34: if _Rnd<1 then sss:=sss+'о'; |9: end;|25: _hi_onEvent(onRes,sss);|4:END;|0:|0:|4:end.|
link(onRes,15879034:doWork2,[])
}
Add(StrCat,13455235,308,42)
{
Point(doClear)
link(Str1,7063167:Var3,[(314,33)(328,33)(328,82)])
}
Add(Hub,15240120,70,28)
{
link(onEvent1,5410569:doStart,[(193,34)(193,48)])
link(onEvent2,9486001:doRandomize,[(95,41)(95,62)])
}
Add(DoData,7170534,308,98)
{
link(onEventData,16600547:doTrim,[])
link(Data,7063167:Var2,[])
}
Add(GetDataEx,7063167,308,77)
{
link(Data,13455235:Result,[])
}
Add(Hub,15892992,203,91)
{
OutCount=3
link(onEvent1,7526937:doData,[(242,97)(242,62)])
link(onEvent2,7170534:doData,[])
link(onEvent3,13455235:doClear,[(298,111)(298,55)])
}
Add(DoData,7526937,252,56)
{
Data=String(. )
link(onEventData,15879034:doWork3,[(291,62)])
}
Add(HubEx,15879034,287,42)
{
link(onEvent,13455235:doStrCat,[])
}
Add(StrCase,14266070,406,98)
{
Type=3
link(onModify,4498498:doValue,[])
}
Add(Trim,16600547,357,98)
{
Char=" "
Mode=4
link(onTrim,14266070:doModify,[])
}
Add(Memory,4498498,448,98)
{
link(onData,90280:onEvent1,[(488,104)(488,34)])
}
END_SDK
Add(Hub,108353,147,42)
{
link(onEvent1,3210884:doWork1,[])
link(onEvent2,3210884:doWork2,[])
}
Add(IndexToChanel,11967270,196,91)
{
Count=3
Point(Data)
link(onEvent1,1711209:doWork2,[])
link(onEvent2,7935473:doWork2,[])
link(onEvent3,4368870:doEvent1,[])
link(Data,3210884:Var2,[])
}
Add(Counter,12938338,140,91)
{
Max=2
link(onNext,11967270:doEvent,[])
}
Add(Hub,4368870,238,105)
{
link(onEvent1,7935473:doWork3,[(263,111)])
link(onEvent2,1711209:doWork3,[(277,118)])
}
Add(HubEx,7935473,259,98)
{
link(onEvent,10536458:doAdd,[(284,104)(284,118)])
}
Add(HubEx,1711209,273,91)
{
link(onEvent,1727801:doAdd,[(340,97)(340,118)])
}
Add(InfoTip,16703510,126,21)
{
Info=#27:Третьи строки одинаковые|
Font=[MS Sans Serif,8,1,255,1]
Width=155
Height=116
}

карма: 18

0
Ответов: 5179
Рейтинг: 577
#3: 2022-10-26 18:06:26 ЛС | профиль | цитата
а задача то не конкретная.
Serascer писал(а):
одинаковые убрать из обоих списков.

1) Что значит убрать? т.е не оставить их не в одном из списков. Смысл какой?, непонятно.
2) Может нужен 1 список без дубликатов?
3) Регистр важен или нет?

Короче чем больше дров тем крепче партизаны.
карма: 4
0
Ответов: 68
Рейтинг: 0
#4: 2022-10-26 18:33:10 ЛС | профиль | цитата
Леонид писал(а):

Спасибо большое )

--- Добавлено в 2022-10-26 18:35:45

andrestudio писал(а):
а задача то не конкретная.
Serascer писал(а):
одинаковые убрать из обоих списков.

1) Что значит убрать? т.е не оставить их не в одном из списков. Смысл какой?, непонятно.
2) Может нужен 1 список без дубликатов?
3) Регистр важен или нет?

Короче чем больше дров тем крепче партизаны.


Смысл в сравнении двух списков товаров с целью выявления какие пропадают и новые появляются ) Т.е. запустил я программу, загрузился список товаров. Через 8 часов срабатывает таймер и список грузится заново и сравнивается со старым. Дубли убираются из каждого списка и остатки фиксируются в отдельный список и возможно сохраняются в файл. Я пока не решил точно.

Редактировалось 2 раз(а), последний 2022-10-26 18:36:11
карма: 1

0
Ответов: 457
Рейтинг: 84
#5: 2022-10-26 22:49:13 ЛС | профиль | цитата
Serascer писал(а):
сравнении двух списков товаров с целью выявления какие пропадают и новые появляются

Стрелки в правом столбце показывают в каком списке находится товар.
Add(MainForm,4978943,105,133)
{
Width=661
Height=597
}
Add(Button,521992,189,140)
{
Left=285
Top=255
Width=70
Height=25
Caption="Сравнить"
link(onClick,12356033:doString,[])
}
Add(FormatStr,12356033,266,140)
{
Mask="$list1 = @'\r\n%1\r\n'@\r\n$list2 = @'\r\n%2\r\n'@\r\n\r\n[String[]]$array1 = $list1.split([Environment]::NewLine) -ne ''\r\n[String[]]$array2 = $list2.split([Environment]::NewLine) -ne ''\r\n\r\nCompare-Object -ReferenceObject $array1 -DifferenceObject $array2 \r\n\r\n"
link(onFString,7014996:doConsoleExec,[])
link(Str1,13028984:Text,[(272,131)(251,131)])
link(Str2,14956928:Text,[(279,96)(293,96)])
}
Add(WinExec,7014996,336,126)
{
FileName="POWERSHELL"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(doConsoleTerminate)
Point(onConsoleTerminate)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,1998131:doWork2,[])
link(onConsoleError,1998131:doWork3,[(389,160)])
}
Add(Charset,15431191,413,147)
{
link(onCharset,3198413:doText,[])
}
Add(HubEx,1998131,385,147)
{
link(onEvent,15431191:doCharset,[])
}
Add(Memo,13028984,245,56)
{
Left=10
Top=10
Width=300
Height=230
Font=[Lucida Console,12,0,0,204]
Strings=#5:Твикс|4:Марс|23:Скумбрия в томат. соусе|7:Сникерс|6:Баунти|17:Плитки шоколадные|18:Конфеты шоколадные|8:Ставрида|8:Карамели|19:Карамельные леденцы|8:Мармелад|5:Вафли|7:Пряники|6:Паштет|13:Пряники к чаю|20:Печенье "Эсмеральда"|17:Печенье ювелирное|15:Печенье овсяное|16:Печенье утреннее|8:Кальмары|19:Печенье "Юбилейное"|5:Кексы|11:Мини рулеты|6:Рулеты|16:Коржи бисквитные|17:Сухари "Киевские"|6:Спрайт|5:Сушки|30:Пюре карт. мягк. уп. (120 гр.)|5:Орбит|5:Дирол|5:Холлс|
ScrollBars=3
}
Add(Memo,14956928,287,56)
{
Left=325
Top=10
Width=300
Height=230
Font=[Lucida Console,12,0,0,204]
Strings=#5:Твикс|4:Марс|7:Сникерс|6:Баунти|37:Чай "Ахмад" разовый (чёрный, зелёный)|17:Плитки шоколадные|18:Конфеты шоколадные|8:Карамели|19:Карамельные леденцы|21:Чай "Липтон" (чёрный)|8:Мармелад|5:Вафли|7:Пряники|13:Пряники к чаю|20:Печенье "Эсмеральда"|7:Каркаде|17:Печенье ювелирное|15:Печенье овсяное|16:Печенье утреннее|19:Печенье "Юбилейное"|8:Мак кофе|5:Кексы|11:Мини рулеты|6:Рулеты|16:Коржи бисквитные|17:Сухари "Киевские"|16:Ананасы консерв.|5:Сушки|30:Пюре карт. мягк. уп. (120 гр.)|5:Орбит|5:Дирол|5:Холлс|
ScrollBars=3
}
Add(Memo,3198413,476,126)
{
Left=10
Top=300
Width=610
Height=230
Font=[Lucida Console,11,0,0,204]
ScrollBars=3
}


Редактировалось 2 раз(а), последний 2022-10-27 07:04:13
карма: 10

0
Ответов: 68
Рейтинг: 0
#6: 2022-10-27 07:45:56 ЛС | профиль | цитата
Спасибо )
карма: 1

0
Ответов: 5179
Рейтинг: 577
#7: 2022-10-27 22:03:11 ЛС | профиль | цитата
Никогда не понимал всякого рода фрилансеров которые впаривают такое ПО заказчику. В нормальных интернет магазинах предоставляется API для доступа и поиска к публикациям которые не напрягают сервис. И это так называемое открытое сотрудничество. Всё остальное жлобство и шарлатанство. Поясню, жлобство потому как исполнитель данного ПО знает что парсер не сработает при изменении сервиса генерирующего ссылки а шарлатанство что во всяком случае клиент попадает в зависимость для обновления ПО. Вот в принципе и весь расклад. Жаль конечно что всё таки ещё кто то на это ведётся.
p.s Ну сейчас конечно Вам скажут что всё это происки врагов и это нужно только для меня (Serascer) лично . Ну, ну.

Редактировалось 2 раз(а), последний 2022-10-27 22:10:49
карма: 4
0
Ответов: 68
Рейтинг: 0
#8: 2022-10-27 23:17:28 ЛС | профиль | цитата
andrestudio писал(а):
и

Я так-то не фрилансер ) на благо родной фирмы стараюсь ) Надо понять от какого поставщика и какой именно товар тысячами пропадает из прайса.
карма: 1

0
Ответов: 68
Рейтинг: 0
#9: 2022-10-28 11:03:30 ЛС | профиль | цитата
Подскажите, а как в MultiReplace пробелы то вставлять? Например мне надо заменить "\" на ", "? После запятой пробел есть. Я его указал в списке замены, а заменяется чисто на запятую )
карма: 1

0
Ответов: 212
Рейтинг: 4
#10: 2022-10-28 16:56:02 ЛС | профиль | цитата
В справку надо заглядывать по чаще

Add(MainForm,11922845,497,224)
{
Width=287
Height=232
}
Add(Button,15343263,532,336)
{
Left=15
Top=10
Width=140
TabOrder=-1
Caption="заменить на пробел"
link(onClick,13466306:doMultiReplace,[])
}
Add(Memo,8892279,595,266)
{
Left=15
Top=35
Width=235
Height=140
Strings=#20:1-1-1-1-1-1-1-222222|15:333311111555555|3:213|8:81915161|
ScrollBars=2
}
Add(MultiReplace,13466306,616,336)
{
link(onResult,8892279:doText,[(689,342)(689,252)(579,252)(579,293)])
link(Text,8892279:Text,[(622,317)(601,317)])
link(ReplaceList,2328807:Text,[(629,317)(650,317)])
}
Add(Edit,2328807,644,266)
{
@Hint=#8:1=пробел|
Left=165
Top=10
Width=85
Text="1=\ \;"
AddHint(53,-65,43,13,Text)
AddHint(43,-86,63,13,@Hint)
}

карма: 1

0
Ответов: 68
Рейтинг: 0
#11: 2022-10-28 17:35:54 ЛС | профиль | цитата
ric писал(а):
В справку надо заглядывать по чаще

Add(MainForm,11922845,497,224)
{
Width=287
Height=232
}
Add(Button,15343263,532,336)
{
Left=15
Top=10
Width=140
TabOrder=-1
Caption="заменить на пробел"
link(onClick,13466306:doMultiReplace,[])
}
Add(Memo,8892279,595,266)
{
Left=15
Top=35
Width=235
Height=140
Strings=#20:1-1-1-1-1-1-1-22222215:333311111555555|3:213|8:81915161|
ScrollBars=2
}
Add(MultiReplace,13466306,616,336)
{
link(onResult,8892279:doText,[(689,342)(689,252)(579,252)(579,293)])
link(Text,8892279:Text,[(622,317)(601,317)])
link(ReplaceList,2328807:Text,[(629,317)(650,317)])
}
Add(Edit,2328807,644,266)
{
@Hint=#8:1=пробел|
Left=165
Top=10
Width=85
Text="1=\ \;"
AddHint(53,-65,43,13,Text)
AddHint(43,-86,63,13,@Hint)
}

|
Первым делом и заглянул ) Кстати там примеры корявые.
Вот кусок программы моей. В ReplaceList в модуле MultiReplace прописаны пробелы. А они не ставятся. Если вставить текст в поле ДЛЯ вида 2020/5050/6060, то он заменится на 2020,5050,6060. Пробелов не будет.
Add(MainForm,2953706,21,105)
{
Width=675
Height=520
}
Add(Memo,1047243,1260,105)
{
Left=10
Top=380
Width=560
Font=[MS Sans Serif,8,0,0,204]
link(onChange,5246067:doRussianKbd,[])
}
Add(Button,9566726,1218,161)
{
Left=10
Top=350
Width=70
Caption="Копировать"
link(onClick,15896286:doPutText,[])
}
Add(Clipboard,15896286,1260,161)
{
Point(PutText)
link(PutText,1047243:Text,[])
}
Add(Hub,6505118,889,126)
{
InCount=9
OutCount=1
link(onEvent1,7065329:doString,[])
}
Add(FormatStr,7065329,924,126)
{
DataCount=9
Mask="%1%2%3%4%9%5%6%7%8"
link(onFString,1047243:doText,[])
link(Str1,7753586:String,[(930,118)(139,118)])
link(Str2,688585:Text,[(937,118)(181,118)])
link(Str3,16390556:Value,[(944,114)(629,114)(629,499)(314,499)])
link(Str4,13483997:Value,[(951,114)(769,114)(769,205)(573,205)])
link(Str5,10319880:Value,[(958,114)(772,114)(772,352)(573,352)])
link(Str6,11855064:Value,[(965,114)(769,114)(769,408)(573,408)])
link(Str7,13165277:Value,[(972,114)(769,114)(769,492)(566,492)])
link(Str8,1602056:Value,[(979,114)(773,114)(773,646)(566,646)])
link(Str9,7358153:Value,[(986,114)(776,114)(776,793)(566,793)])
}
Add(KeyboardLayout,5246067,1316,98)
{
}
Add(ComboBox,7753586,126,77)
{
Left=100
Top=10
Width=120
Height=21
Strings=#0:|14:Чёрный [Black]|25:Фото чёрный [Photo Black]|28:Матовый чёрный [Matte Black]|14:Голубой [Cyan]|27:Светло-голубой [Light Cyan]|19:Пурпурный [Magenta]|32:Светло-пурпурный [Light Magenta]|15:Жёлтый [Yellow]|13:Красный [Red]|12:Серый [Gray]|25:Светло-серый [Light Gray]|12:Синий [Blue]|
Text=""
ReadOnly=0
DropDownCount=80
link(onClick,6505118:doEvent1,[(524,90)(524,132)])
}
Add(Label,4373426,126,35)
{
Left=10
Top=15
Width=29
Height=17
Caption="Цвет"
}
Add(Edit,5812158,252,133)
{
Left=180
Top=40
Width=40
Text=""
link(onChange,14575967:doEvent2,[(289,139)(289,153)(205,153)(205,188)])
}
Add(CheckBox,7633038,119,168)
{
Left=100
Top=40
Width=80
Caption="Количество"
link(onCheck,4373306:doCase,[])
}
Add(FormatStr,8250489,252,175)
{
Mask="%1 x "
Point(FString)
link(onFString,13207797:doValue,[(302,181)(302,167)])
link(Str1,5812158:Text,[])
}
Add(Case,4373306,161,168)
{
Value=String(1)
link(onNextCase,13207797:doClear,[])
link(onTrue,14575967:doEvent1,[])
}
Add(Memory,13207797,308,161)
{
link(onData,1562718:doEvent2,[(352,167)(352,325)(205,325)(205,482)])
}
Add(Hub,14575967,217,175)
{
InCount=3
OutCount=3
link(onEvent3,8250489:doString,[(247,195)(247,181)])
}
Add(ComboBox,16131654,497,126)
{
Left=100
Top=95
Width=120
Height=21
Strings=#0:|6:флакон|8:канистра|5:пакет|7:коробка|
Text=""
ReadOnly=0
DropDownCount=80
link(onClick,14592789:doEvent2,[(541,139)(541,163)(464,163)(464,188)])
}
Add(CheckBox,5172458,378,168)
{
Left=10
Top=95
Width=70
Caption="Упаковка"
link(onCheck,1523344:doCase,[])
}
Add(Edit,16764114,539,126)
{
Left=230
Top=95
Width=105
Text=""
link(onChange,14592789:doEvent3,[(583,132)(583,164)(464,164)(464,195)])
}
Add(CheckBox,13470645,119,266)
{
Left=405
Top=40
Width=35
Caption="мл"
link(onCheck,14721925:doCase,[])
}
Add(CheckBox,6910270,119,462)
{
Left=10
Top=40
Width=60
Caption="Ресурс"
link(onCheck,5821401:doCase,[])
}
Add(Edit,5358191,273,413)
{
Left=230
Top=40
Width=105
Text=""
link(onChange,1562718:doEvent3,[(317,419)(317,454)(205,454)(205,489)])
}
Add(Edit,688585,175,77)
{
Left=230
Top=10
Width=105
Text=""
link(onChange,6505118:doEvent2,[(548,83)(548,139)])
}
Add(CheckBox,5882613,119,217)
{
Left=340
Top=40
Width=65
Caption="страниц"
link(onCheck,11164368:doCase,[])
}
Add(CheckBox,13864317,371,602)
{
Left=10
Top=200
Width=45
Caption="Для"
link(onCheck,10553986:doCase,[])
}
Add(Edit,9201018,504,504)
{
Left=100
Top=200
Width=540
Height=85
Text=""
link(onChange,10281728:doMultiReplace,[(548,510)(548,538)(492,538)(492,566)])
}
Add(CheckBox,12017167,119,364)
{
Left=505
Top=40
Width=80
Caption="килограмм"
link(onCheck,8821536:doCase,[])
}
Add(CheckBox,13405229,119,315)
{
Left=445
Top=40
Caption="грамм"
link(onCheck,16534275:doCase,[])
}
Add(FormatStr,16048838,252,469)
{
DataCount=6
Mask=", %1%2%3%4%5%6"
Point(FString)
link(onFString,16390556:doValue,[(302,475)(302,461)])
link(Str1,13207797:Value,[(258,331)(314,331)])
link(Str2,5358191:Text,[(265,457)(279,457)])
link(Str3,6119085:Value,[(272,355)(314,355)])
link(Str4,16242409:Value,[(279,380)(314,380)])
link(Str5,13361885:Value,[(286,405)(314,405)])
link(Str6,7812047:Value,[(293,429)(314,429)])
}
Add(Case,5821401,161,462)
{
Value=String(1)
link(onNextCase,16390556:doClear,[])
link(onTrue,1562718:doEvent1,[])
}
Add(Memory,16390556,308,455)
{
link(onData,6505118:doEvent3,[(614,461)(614,146)])
}
Add(Hub,1562718,217,469)
{
InCount=7
OutCount=3
link(onEvent3,16048838:doString,[(247,489)(247,475)])
}
Add(FormatStr,10701806,511,175)
{
Mask=", %1%2"
Point(FString)
link(onFString,13483997:doValue,[(561,181)(561,167)])
link(Str1,16131654:String,[(517,167)(510,167)])
link(Str2,16764114:Text,[(524,167)(545,167)])
}
Add(Case,1523344,420,168)
{
Value=String(1)
link(onNextCase,13483997:doClear,[])
link(onTrue,14592789:doEvent1,[])
}
Add(Memory,13483997,567,161)
{
link(onData,6505118:doEvent4,[(751,167)(751,153)])
}
Add(Hub,14592789,476,175)
{
InCount=3
OutCount=3
link(onEvent3,10701806:doString,[(506,195)(506,181)])
}
Add(FormatStr,7711659,252,322)
{
Mask=" гр"
Point(FString)
link(onFString,13361885:doValue,[(302,328)(302,314)])
}
Add(Case,16534275,161,315)
{
Value=String(1)
link(onNextCase,13361885:doClear,[])
link(onTrue,6345173:doEvent1,[])
}
Add(Memory,13361885,308,308)
{
link(onData,1562718:doEvent6,[(352,314)(352,412)(205,412)(205,510)])
}
Add(Hub,6345173,217,322)
{
InCount=3
OutCount=3
link(onEvent3,7711659:doString,[(247,342)(247,328)])
}
Add(FormatStr,4530990,504,609)
{
Mask=", для %1"
Point(FString)
link(onFString,1602056:doValue,[(554,615)(554,601)])
link(Str1,10281728:Result,[])
}
Add(Case,10553986,413,602)
{
Value=String(1)
link(onNextCase,1602056:doClear,[])
link(onTrue,15103514:doEvent1,[])
}
Add(Memory,1602056,560,595)
{
link(onData,6505118:doEvent8,[(740,601)(740,181)])
}
Add(Hub,15103514,469,609)
{
InCount=3
OutCount=3
link(onEvent3,4530990:doString,[(499,629)(499,615)])
}
Add(FormatStr,1921720,252,371)
{
Mask=" кг"
Point(FString)
link(onFString,7812047:doValue,[(302,377)(302,363)])
}
Add(Case,8821536,161,364)
{
Value=String(1)
link(onNextCase,7812047:doClear,[])
link(onTrue,12691564:doEvent1,[])
}
Add(Memory,7812047,308,357)
{
link(onData,1562718:doEvent7,[(352,363)(352,440)(205,440)(205,517)])
}
Add(Hub,12691564,217,371)
{
InCount=3
OutCount=3
link(onEvent3,1921720:doString,[(247,391)(247,377)])
}
Add(FormatStr,16135352,252,224)
{
Mask=" страниц"
Point(FString)
link(onFString,6119085:doValue,[(302,230)(302,216)])
}
Add(Case,11164368,161,217)
{
Value=String(1)
link(onNextCase,6119085:doClear,[])
link(onTrue,11230450:doEvent1,[])
}
Add(Memory,6119085,308,210)
{
link(onData,1562718:doEvent4,[(352,216)(352,356)(205,356)(205,496)])
}
Add(Hub,11230450,217,224)
{
InCount=3
OutCount=3
link(onEvent3,16135352:doString,[(247,244)(247,230)])
}
Add(FormatStr,113426,252,273)
{
Mask=" мл"
Point(FString)
link(onFString,16242409:doValue,[(302,279)(302,265)])
}
Add(Case,14721925,161,266)
{
Value=String(1)
link(onNextCase,16242409:doClear,[])
link(onTrue,7452048:doEvent1,[])
}
Add(Memory,16242409,308,259)
{
link(onData,1562718:doEvent5,[(352,265)(352,384)(205,384)(205,503)])
}
Add(Hub,7452048,217,273)
{
InCount=3
OutCount=3
link(onEvent3,113426:doString,[(247,293)(247,279)])
}
Add(Edit,3188876,518,280)
{
Left=450
Top=95
Width=120
Text=""
link(onChange,10460318:doEvent2,[(555,286)(555,300)(464,300)(464,335)])
}
Add(CheckBox,4405506,378,315)
{
Left=340
Top=95
Width=70
Caption="Фасовка"
link(onCheck,15738923:doCase,[])
}
Add(FormatStr,15920355,511,322)
{
Mask=", фасовка %1%2"
Point(FString)
link(onFString,10319880:doValue,[(561,328)(561,314)])
link(Str1,15858124:Value,[(517,289)(573,289)])
link(Str2,3188876:Text,[])
}
Add(Case,15738923,420,315)
{
Value=String(1)
link(onNextCase,10319880:doClear,[])
link(onTrue,10460318:doEvent1,[])
}
Add(Memory,10319880,567,308)
{
link(onData,6505118:doEvent5,[(751,314)(751,160)])
}
Add(Hub,10460318,476,322)
{
InCount=3
OutCount=3
link(onEvent3,15920355:doString,[(506,342)(506,328)])
}
Add(CheckBox,14634464,378,231)
{
Left=410
Top=95
Width=40
Caption="РФ"
link(onCheck,2939809:doCase,[])
}
Add(FormatStr,14284749,511,238)
{
Mask="РФ"
Point(FString)
link(onFString,15858124:doValue,[(561,244)(561,230)])
}
Add(Case,2939809,420,231)
{
Value=String(1)
link(onNextCase,15858124:doClear,[])
link(onTrue,14350264:doEvent1,[])
}
Add(Memory,15858124,567,224)
{
link(onData,10460318:doEvent3,[(611,230)(611,286)(464,286)(464,342)])
}
Add(Hub,14350264,476,238)
{
InCount=3
OutCount=3
link(onEvent3,14284749:doString,[(506,258)(506,244)])
}
Add(CheckBox,8077495,378,371)
{
Left=10
Top=125
Width=80
Caption="Химический"
link(onCheck,10729737:doCase,[])
}
Add(FormatStr,1892004,511,378)
{
Mask=", химический"
Point(FString)
link(onFString,11855064:doValue,[(561,384)(561,370)])
}
Add(Case,10729737,420,371)
{
Value=String(1)
link(onNextCase,11855064:doClear,[])
link(onTrue,6199045:doEvent1,[])
}
Add(Memory,11855064,567,364)
{
link(onData,6505118:doEvent6,[(744,370)(744,167)])
}
Add(Hub,6199045,476,378)
{
InCount=3
OutCount=3
link(onEvent3,1892004:doString,[(506,398)(506,384)])
}
Add(Label,6346140,378,126)
{
Left=10
Top=75
Width=35
Height=17
Caption="Тонер"
}
Add(Edit,7188752,504,420)
{
Left=160
Top=125
Width=320
Text=""
link(onChange,6415069:doEvent2,[(548,426)(548,440)(457,440)(457,475)])
}
Add(CheckBox,10630891,371,455)
{
Left=100
Top=125
Width=60
Caption="Другое"
link(onCheck,4713045:doCase,[])
}
Add(FormatStr,4870932,504,462)
{
Mask=", %1"
Point(FString)
link(onFString,13165277:doValue,[(554,468)(554,454)])
link(Str1,7188752:Text,[])
}
Add(Case,4713045,413,455)
{
Value=String(1)
link(onNextCase,13165277:doClear,[])
link(onTrue,6415069:doEvent1,[])
}
Add(Memory,13165277,560,448)
{
link(onData,6505118:doEvent7,[(740,454)(740,174)])
}
Add(Hub,6415069,469,462)
{
InCount=3
OutCount=3
link(onEvent3,4870932:doString,[(499,482)(499,468)])
}
Add(Edit,11017113,504,826)
{
Left=170
Top=170
Width=100
Text=""
link(onChange,9666172:doEvent2,[(548,832)(548,846)(457,846)(457,881)])
}
Add(CheckBox,8400345,371,861)
{
Left=10
Top=170
Width=60
Caption="Аналог"
link(onCheck,6891744:doCase,[])
}
Add(FormatStr,827663,504,868)
{
DataCount=4
Mask=", аналог %3%4 %1%2"
Point(FString)
link(onFString,7358153:doValue,[(554,874)(554,860)])
link(Str1,11017113:Text,[])
link(Str2,71682:Value,[(517,835)(566,835)])
link(Str3,4266601:Value,[(524,772)(566,772)])
link(Str4,6471744:Value,[(531,793)(566,793)])
}
Add(Case,6891744,413,861)
{
Value=String(1)
link(onNextCase,7358153:doClear,[])
link(onTrue,9666172:doEvent1,[])
}
Add(Memory,7358153,560,854)
{
link(onData,6505118:doEvent9,[(740,860)(740,188)])
}
Add(Hub,9666172,469,868)
{
InCount=5
OutCount=3
link(onEvent3,827663:doString,[(499,888)(499,874)])
}
Add(Edit,16535472,504,742)
{
Left=415
Top=170
Width=100
Text=""
link(onChange,14381822:doEvent2,[(548,748)(548,762)(457,762)(457,797)])
}
Add(CheckBox,8969012,371,777)
{
Left=290
Top=170
Width=120
Caption="Артикул картриджа"
link(onCheck,5993488:doCase,[])
}
Add(FormatStr,8515677,504,784)
{
Mask=" [%1]"
Point(FString)
link(onFString,71682:doValue,[(554,790)(554,776)])
link(Str1,16535472:Text,[])
}
Add(Case,5993488,413,777)
{
Value=String(1)
link(onNextCase,71682:doClear,[])
link(onTrue,14381822:doEvent1,[])
}
Add(Memory,71682,560,770)
{
link(onData,9666172:doEvent3,[(604,776)(604,832)(457,832)(457,888)])
}
Add(Hub,14381822,469,784)
{
InCount=3
OutCount=3
link(onEvent3,8515677:doString,[(499,804)(499,790)])
}
Add(CheckBox,8819338,371,651)
{
Left=70
Top=160
Width=80
Caption="картриджа"
link(onCheck,12003545:doCase,[])
}
Add(CheckBox,14967462,371,693)
{
Left=70
Top=180
Width=95
Caption="фотобарабана"
link(onCheck,10208378:doCase,[])
}
Add(FormatStr,7299958,504,658)
{
Mask="картриджа"
Point(FString)
link(onFString,4266601:doValue,[(554,664)(554,650)])
}
Add(Case,12003545,413,651)
{
Value=String(1)
link(onNextCase,4266601:doClear,[])
link(onTrue,7263089:doEvent1,[])
}
Add(Memory,4266601,560,644)
{
link(onData,9666172:doEvent5,[(604,650)(604,776)(457,776)(457,902)])
}
Add(Hub,7263089,469,658)
{
InCount=3
OutCount=3
link(onEvent3,7299958:doString,[(499,678)(499,664)])
}
Add(FormatStr,16664218,504,700)
{
Mask="фотобарабана"
Point(FString)
link(onFString,6471744:doValue,[(554,706)(554,692)])
}
Add(Case,10208378,413,693)
{
Value=String(1)
link(onNextCase,6471744:doClear,[])
link(onTrue,3332884:doEvent1,[])
}
Add(Memory,6471744,560,686)
{
link(onData,9666172:doEvent4,[(604,692)(604,794)(457,794)(457,895)])
}
Add(Hub,3332884,469,700)
{
InCount=3
OutCount=3
link(onEvent3,16664218:doString,[(499,720)(499,706)])
}
Add(MultiReplace,10281728,504,560)
{
ReplaceList="/~, §\r\n/ ~, §\r\n;~, §"
Delimiter="~"
EndSymbol="§"
link(onResult,15103514:doEvent2,[(548,566)(548,594)(457,594)(457,622)])
link(Text,9201018:Text,[])
}

Редактировалось 1 раз(а), последний 2022-10-28 17:36:21
карма: 1

0
Ответов: 212
Рейтинг: 4
#12: 2022-10-28 18:19:25 ЛС | профиль | цитата
видимо плохо читал
Add(MultiReplace,10281728,532,546)
{
ReplaceList="/~, \§\r\n/ ~, \§\r\n;~, \§"
Delimiter="~"
EndSymbol="§"
link(onResult,15103514:doEvent2,[(576,552)(576,580)(485,580)(485,608)])
link(Text,9201018:Text,[])
AddHint(130,-46,44,39,ReplaceList)
}


Редактировалось 1 раз(а), последний 2022-10-28 18:20:59
карма: 1

0
Ответов: 68
Рейтинг: 0
#13: 2022-10-28 18:33:40 ЛС | профиль | цитата
ric писал(а):
видимо плохо читал
Add(MultiReplace,10281728,532,546)
{
ReplaceList="/~, \§\r\n/ ~, \§\r\n;~, \§"
Delimiter="~"
EndSymbol="§"
link(onResult,15103514:doEvent2,[(576,552)(576,580)(485,580)(485,608)])
link(Text,9201018:Text,[])
AddHint(130,-46,44,39,ReplaceList)
}

Да вот из-за того что там косяки на странице, не сразу заметил ( Спасибо.
карма: 1

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