Вверх ↑
Этот топик читают: Гость
Ответов: 4
Рейтинг: 0
#1: 2018-08-15 08:50:58 ЛС | профиль | цитата
Добрый день.
Помогите пожалуйста: есть несколько десятков строк и нужно их все объединить в одну строку через пробел.
С помощью замены ‹#13#10› с помощью MultiReplace ничего не выходит...
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8885
Рейтинг: 823
#2: 2018-08-15 10:42:05 ЛС | профиль | цитата
245795,
Так?


Add(MainForm,2953706,77,91)
{
Height=347
link(onCreate,13212670:doWork2,[])
}
Add(MultiElement,2208692,161,105)
{
link(onEvent1,6783672:doAdd,[])
link(Data1,4325185:Value,[])
}
BEGIN_SDK
Add(EditMulti,4178385,28,21)
{
EventCount=2
WorkCount=2
DataCount=1
Width=440
Height=158
VOffset=7
HOffset=28
link(doWork1,6183338:doEvent1,[])
link(doWork2,13911014:doFor,[(39,41)(39,55)])
}
Add(For,13911014,49,49)
{
@Hint=#18:Количество абзацев|
IncludeEnd=1
link(onEvent,1735618:doRandom,[])
link(onStop,4178385:onEvent2,[(88,62)(88,140)(455,140)(455,41)])
link(End,4178385:Data1,[])
}
Add(For,16519698,154,49)
{
@Hint=#29:Количество слов в предложении|
link(onEvent,16566872:doText,[])
link(onStop,1012864:doEvent1,[(193,62)(193,97)])
link(End,1735618:Random,[(167,40)(146,40)(146,89)(111,89)])
}
Add(Random,1735618,105,49)
{
Min=7
Max=15
link(onRandom,16519698:doFor,[])
}
Add(InlineCode,16566872,203,42)
{
WorkPoints=#7:doStart|6:doText|
EventPoints=#5:onRes|
VarPoints=#
DataPoints=#
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,7447713:doWork2,[])
}
Add(StrCat,399866,308,42)
{
Point(doClear)
link(Str1,7074704:Var3,[(314,33)(328,33)(328,82)])
}
Add(Hub,6183338,70,28)
{
link(onEvent1,16566872:doStart,[(193,34)(193,48)])
link(onEvent2,1735618:doRandomize,[(95,41)(95,62)])
}
Add(DoData,9445290,308,98)
{
link(onEventData,13659012:doTrim,[])
link(Data,7074704:Var2,[])
}
Add(GetDataEx,7074704,308,77)
{
link(Data,399866:Result,[])
}
Add(Hub,1012864,203,91)
{
OutCount=3
link(onEvent1,13278328:doData,[(242,97)(242,62)])
link(onEvent2,9445290:doData,[])
link(onEvent3,399866:doClear,[(298,111)(298,55)])
}
Add(DoData,13278328,252,56)
{
Data=String(. )
link(onEventData,7447713:doWork3,[(291,62)])
}
Add(HubEx,7447713,287,42)
{
link(onEvent,399866:doStrCat,[])
}
Add(StrCase,8150804,406,98)
{
Type=3
link(onModify,4178385:onEvent1,[(445,104)(445,34)])
}
Add(Trim,13659012,357,98)
{
Char=" "
Mode=4
link(onTrim,8150804:doModify,[])
}
END_SDK
Add(ListBox,6783672,217,105)
{
Left=5
Top=5
Width=370
Height=135
}
Add(Hub,11381210,133,105)
{
link(onEvent1,2208692:doWork1,[])
link(onEvent2,2208692:doWork2,[])
}
Add(Memory,4325185,161,56)
{
Default=Integer(9)
}
Add(Button,6507937,161,168)
{
Left=165
Top=145
Width=40
Caption="V"
link(onClick,7181342:doReplace,[])
}
Add(Replace,7181342,217,168)
{
SubStr="\r\n"
DestStr=" "
link(onReplace,3134223:doTrim,[])
link(Str,6783672:Text,[])
}
Add(Trim,3134223,266,168)
{
Mode=7
link(onTrim,14824288:doAdd,[])
}
Add(Memo,14824288,315,168)
{
Left=5
Top=170
Width=370
Height=135
ScrollBars=2
}
Add(Button,3984844,49,147)
{
Left=5
Top=145
Caption="New"
link(onClick,4767244:doEvent1,[])
}
Add(Hub,4767244,98,147)
{
OutCount=3
link(onEvent1,6783672:doClear,[(200,153)(200,118)])
link(onEvent2,14824288:doClear,[(305,160)(305,181)])
link(onEvent3,13212670:doWork3,[(123,167)])
}
Add(HubEx,13212670,119,105)
{
link(onEvent,11381210:doEvent1,[])
}

карма: 19

0
Ответов: 4
Рейтинг: 0
#3: 2018-08-16 12:36:30 ЛС | профиль | цитата
Да, спасибо большое...
карма: 0

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