Вверх ↑
Этот топик читают: Гость
Ответов: 636
Рейтинг: 18
#1: 2018-12-19 23:49:12 ЛС | профиль | цитата
Добрый вечер!

Как с помощь MultiBlckFind получить "123" и "222" из данных вида:

data: 123
score: 222
load: 777

Пробовал так:

{**c -- data_val-- c**}
{**s} data: {**x} \n {**e}
{**c -- score_val-- c**}
{**s} score: {**x} \n {**e}

Получаю runtime error....
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8283
Рейтинг: 773
#2: 2018-12-20 00:13:23 ЛС | профиль | цитата
Gunnman, а нужен он, MultiBlckFind без опыта
Просто


Add(MainForm,2953706,98,77)
{
}
Add(Memo,10910801,196,84)
{
Left=15
Top=10
Width=95
Strings=#10:data: 123 |11:score: 222 |9:load: 777|
}
Add(ListBox,10854422,364,161)
{
Left=140
Top=15
Width=100
}
Add(ListBox,15111399,364,224)
{
Left=260
Top=15
Width=110
}
Add(Button,12265315,91,147)
{
Left=90
Top=105
Caption=">>"
link(onClick,8506708:doEvent1,[])
}
Add(ArrayEnum,2918336,210,154)
{
link(onItem,5581836:doSplit,[])
link(onEndEnum,2896610:doEvent1,[(249,167)(249,195)(151,195)(151,216)])
link(Array,10910801:Array,[])
}
Add(Hub,8506708,140,147)
{
link(onEvent1,10854422:doClear,[(350,153)(350,174)])
link(onEvent2,2918336:doEnum,[])
}
Add(MultiStrData,5581836,259,154)
{
Char=":"
link(onPart2,5792714:doTrim,[])
}
Add(Trim,5792714,308,161)
{
Mode=7
link(onTrim,10854422:doAdd,[])
}
Add(Trim,8315188,308,224)
{
link(onTrim,15111399:doAdd,[])
}
Add(BlockFind,4466124,259,224)
{
IncludeBlock=1
StartBlock=":"
EndBlock="\13\10"
link(onSearch,8315188:doTrim,[])
}
Add(StrCat,6202452,196,224)
{
Str2="\13\10"
link(onStrCat,4466124:doSearch,[])
link(Str1,10910801:Text,[])
}
Add(Hub,2896610,161,210)
{
link(onEvent1,15111399:doClear,[(351,216)(351,237)])
link(onEvent2,6202452:doStrCat,[(186,223)(186,230)])
}

карма: 14

0
Разработчик
Ответов: 25393
Рейтинг: 2070
#3: 2018-12-20 00:36:16 ЛС | профиль | цитата
Gunnman писал(а):
Как с помощь MultiBlckFind получить "123" и "222" из данных вида:

Использую показанные теги не получится реализовать, тк в представлении перевода строки '\n' используется экранирующий символ '\'
Это можно реализовать попыткой подмены символов перевода строки

Схема

Add(MainForm,3757232,315,266)
{
Width=440
Height=305
Position=1
}
Add(MultiBlockFind,14377089,448,322)
{
Count=3
TagList="{**c -- data_val-- c**} \r\n{**s} data: {**x} #13#10 {**e} \r\n{**c -- score_val-- c**} \r\n{**s} score: {**x} #13#10 {**e} \r\n{**c -- load_val-- c**} \r\n{**s} load: {**x} #13#10 {**e}"
link(onResult1,2666556:doText,[])
link(onResult2,6626779:doText,[(508,335)(508,363)])
link(onResult3,8043819:doText,[(501,342)(501,405)])
}
Add(ListBox,4015013,392,266)
{
Left=15
Top=10
Width=400
Height=190
Strings=#10:data: 123 |11:score: 222 |9:load: 777|1: |
}
Add(Edit,2666556,518,322)
{
Left=75
Top=205
Width=80
Text=""
}
Add(Edit,6626779,518,357)
{
Left=170
Top=205
Width=80
Text=""
}
Add(Edit,8043819,518,399)
{
Left=265
Top=205
Width=80
Text=""
}
Add(Button,9638335,315,322)
{
Left=180
Top=235
TabOrder=-1
link(onClick,7069876:doReplace,[])
}
Add(Replace,7069876,392,322)
{
SubStr="\r\n"
DestStr="#13#10"
link(onReplace,14377089:doMultiBlockFind,[])
link(Str,4015013:Text,[])
}

Редактировалось 1 раз(а), последний 2018-12-20 00:36:35
карма: 19

0
Ответов: 636
Рейтинг: 18
#4: 2018-12-21 21:18:48 ЛС | профиль | цитата
Всем большое спасибо за примеры!
карма: 0

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