Вверх ↑
Этот топик читают: Гость
Ответов: 91
Рейтинг: 0
#1: 2017-07-17 17:16:58 ЛС | профиль | цитата
Нужно найти в текстовом файле первую попавшуюся строку по образцу (например YYYYYY) и от нее до конца файла удалить или заменить от нее до конца весь текст. Как проще и на каких элементах сделать. А то получается разными способами, но как то криво и громоздко.
Удалять построчно или сразу можно от выбранной и до последней строки? В примерах нашел только работу с отдельными строками.

Редактировалось 3 раз(а), последний 2017-07-17 19:22:22
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 88
Рейтинг: 20
#2: 2017-07-17 19:25:11 ЛС | профиль | цитата
Думаю лучше удалить и снова создать этот txt'овик
карма: 0
Ильичёв IKA
0
Ответов: 91
Рейтинг: 0
#3: 2017-07-17 19:34:03 ЛС | профиль | цитата
Нужную строку найти можно ListBox doSelectString.
ili4yov_ika писал(а):
Думаю лучше удалить и снова создать этот txt'овик

Как считать содержимое файла от начала до "образца (например YYYYYY)", что бы добавить новые строки и создать новый файл?

Редактировалось 2 раз(а), последний 2017-07-17 19:45:35
карма: 0

0
Ответов: 8886
Рейтинг: 823
#4: 2017-07-17 20:10:28 ЛС | профиль | цитата
wvlas, можно и через файл, и через ListBox. Пример поиска в файле 10 шт символов (экспериментировал с файлом License.txt из HiAsm)
пример поиска


Add(Button,5150873,98,63)
{
Left=20
Top=15
Caption="Открыть"
link(onClick,5446505:doExecute,[])
}
Add(ODialog,5446505,154,63)
{
Filter="TXT|*.txt"
link(onExecute,4306220:doEvent1,[])
}
Add(FileStream,9377437,315,63)
{
Point(doPosition)
}
Add(DataToFile,2033716,315,133)
{
Point(Position)
Point(doPosition)
link(onGet,6708181:doConvert,[])
link(Stream,11321535:Var2,[])
}
Add(Hub,4306220,196,63)
{
link(onEvent1,9377437:doOpen,[])
link(onEvent2,5467044:doOperation,[(221,76)(221,83)])
}
Add(Button,12951053,98,140)
{
Left=90
Top=15
Caption="Искать"
link(onClick,15388179:doFor,[])
}
Add(Convertor,6708181,364,133)
{
Mode=4
link(onResult,11216222:doWork2,[])
}
Add(Math,5467044,231,77)
{
OpType=1
Op2=1
ResultType=0
link(onResult,9377437:doPosition,[])
link(Op1,12349670:Var3,[(237,61)(272,61)])
}
Add(Hub,16541756,245,140)
{
link(onEvent1,2033716:doGet,[])
link(onEvent2,13622628:doOperation,[])
}
Add(MemFifo,7677535,441,133)
{
Default=String()
Count=10
link(onData,10160869:doString,[(522,139)(522,125)(431,125)(431,188)])
}
Add(FormatStr,10160869,441,182)
{
DataCount=10
Mask="%1%2%3%4%5%6%7%8%9%10"
Point(FString)
link(onFString,16521736:doCompare,[])
link(Str1,7677535:Value1,[])
link(Str2,7677535:Value2,[])
link(Str3,7677535:Value3,[])
link(Str4,7677535:Value4,[])
link(Str5,7677535:Value5,[])
link(Str6,7677535:Value6,[])
link(Str7,7677535:Value7,[])
link(Str8,7677535:Value8,[])
link(Str9,7677535:Value9,[])
link(Str10,7677535:Value10,[])
}
Add(Edit,8409296,539,133)
{
Left=155
Top=15
Width=70
Text=" сообщать "
}
Add(Math,13622628,273,147)
{
OpType=1
Op2=2
ResultType=0
link(onResult,2033716:doPosition,[])
link(Op1,369914:Var2,[])
}
Add(If_else,16521736,539,182)
{
Type=5
link(onFalse,2832107:doEvent1,[])
link(Op1,8409296:Text,[])
}
Add(For,15388179,154,140)
{
Start=1
IncludeEnd=1
onBreakEnable=0
Point(onBreak)
link(onEvent,16541756:doEvent1,[])
link(onStop,16392108:doString,[(235,153)(235,195)])
link(End,3026465:Var1,[(167,110)])
link(onBreak,3197531:doOperation,[(193,160)(193,237)])
}
Add(GetDataEx,12349670,266,98)
{
Angle=1
link(Data,9377437:Size,[(328,103)])
}
Add(Message,10232249,294,231)
{
Caption="Найдено!"
}
Add(Math,3197531,203,231)
{
OpType=1
Op2=11
link(onResult,6915930:doStrCat,[])
link(Op1,2373242:Var2,[])
}
Add(GetDataEx,369914,273,115)
{
Angle=1
link(Data,9377437:Position,[(335,120)])
}
Add(StrCat,6915930,245,231)
{
Str1="Позиция №"
link(onStrCat,10232249:doMessage,[])
}
Add(Message,12457358,294,189)
{
Caption="Не найдено"
}
Add(FormatStr,16392108,245,189)
{
DataCount=1
Mask="Проверено %1 байт"
link(onFString,12457358:doMessage,[])
}
Add(DataToFile,6141953,280,392)
{
Type=8
Point(doPosition)
link(onGet,3962294:doEnum,[])
link(Stream,11321535:Var1,[(286,278)(314,278)(314,110)])
}
Add(GetDataEx,11321535,315,105)
{
link(Data,9377437:Stream,[])
}
Add(Button,7309271,35,392)
{
Left=25
Top=70
Width=115
Caption="Искать строки"
link(onClick,11457934:doEvent1,[])
}
Add(Str_Enum,3962294,329,392)
{
Delimiter=""
Direct=1
link(onEnum,11216222:doWork3,[(417,398)])
}
Add(HubEx,11216222,413,133)
{
link(onEvent,7677535:doValue,[])
}
Add(Thread,606038,112,399)
{
Delay=0
link(onExec,1043381:doCompare,[])
}
Add(If_else,1043381,196,399)
{
Type=2
link(onTrue,6141953:doGet,[])
link(onFalse,15998017:doString,[(235,412)(235,454)])
link(Op1,9761314:Var2,[])
link(Op2,15293105:Var2,[])
}
Add(GetDataEx,3026465,182,105)
{
Angle=1
link(Data,12349670:Var2,[(191,110)(272,110)])
}
Add(GetDataEx,2373242,203,196)
{
link(Data,369914:Var1,[(209,120)])
}
Add(Hub,2832107,581,189)
{
link(onEvent1,15388179:doStop,[(606,195)(606,272)(144,272)(144,153)])
link(onEvent2,16006013:doEvent1,[(613,202)(613,440)(39,440)(39,454)])
}
Add(Message,6097863,252,490)
{
Caption="Найдено!"
}
Add(StrCat,6086981,203,490)
{
Str1="Позиция №"
link(onStrCat,6097863:doMessage,[])
link(Str2,15293105:Var3,[(216,383)])
}
Add(Message,7093953,308,448)
{
Caption="Не найдено"
}
Add(FormatStr,15998017,252,448)
{
DataCount=1
Mask="Проверено %1 байт"
link(onFString,7093953:doMessage,[])
link(Str1,9761314:Var3,[(258,432)(251,432)(251,376)])
}
Add(GetDataEx,9761314,196,371)
{
link(Data,3026465:Var2,[(202,131)(188,131)])
}
Add(Hub,16006013,49,448)
{
link(onEvent1,6086981:doStrCat,[(158,454)(158,496)])
link(onEvent2,132615:doStart,[])
}
Add(Thread,132615,84,455)
{
Delay=0
FastStop=0
link(onExec,606038:doStop,[(123,461)(123,447)(102,447)(102,412)])
}
Add(Hub,11457934,77,392)
{
link(onEvent1,9140562:doData,[(102,398)(102,349)])
link(onEvent2,606038:doStart,[])
}
Add(DoData,9140562,119,343)
{
Data=Integer(0)
link(onEventData,6141953:doPosition,[(256,349)(256,412)])
}
Add(InfoTip,1305607,28,329)
{
Info=#10:По строкам|
Font=[MS Sans Serif,12,1,255,1]
HAlign=2
Width=470
Height=200
}
Add(InfoTip,8401277,56,112)
{
Info=#14:По символам |
Font=[MS Sans Serif,12,1,255,1]
HAlign=2
Width=624
Height=179
}
Add(GetDataEx,15293105,203,378)
{
link(Data,2373242:Var3,[(209,278)(223,278)(223,201)])
}

карма: 19

0
Ответов: 91
Рейтинг: 0
#5: 2017-07-17 21:17:20 ЛС | профиль | цитата
Спасибо за пример с файлом. Я немного по другому искал первую совпадающую строку по образцу в текстовом файле. Через файл вроде как то заморочено получается.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=505
Height=641
}
Add(ListBox,8160084,413,273)
{
Left=10
Top=125
Width=405
Height=445
Point(doSelectString)
Point(onSelect)
Point(Index)
link(FileName,14497544:Text,[])
}
Add(Button,3155483,224,301)
{
Left=15
Top=15
Data=String(The license agreement)
link(onClick,8426066:doEvent1,[])
}
Add(Hub,8426066,308,301)
{
OutCount=3
link(onEvent1,8160084:doLoad,[])
link(onEvent2,8160084:doSelectString,[(374,314)(374,321)])
link(onEvent3,7982908:doMessage,[(354,321)(354,384)])
}
Add(Edit,14497544,420,182)
{
Left=15
Top=50
Width=355
Text="C:\\Users\\user\\AppData\\Roaming\\HiAsm_AltBuild\\License.txt"
}
Add(Message,7982908,490,378)
{
link(Message,8160084:Index,[(496,352)(440,352)])
}


Искал "The license agreement", вышла позиция "20 строка". Позиция определяется, как быстро от этой позиции удалить все остальное в файле до самого низа?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2017-07-17 21:48:59 ЛС | профиль | цитата
Компонент BlockFind .
Советчикам иногда полезно мозги включать.
Специально для таких задач и разработан.

Редактировалось 1 раз(а), последний 2017-07-17 21:52:24
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8886
Рейтинг: 823
#7: 2017-07-17 22:00:55 ЛС | профиль | цитата
wvlas, не надо выкладывать схему из блокнота, надо в рабочем поле HiAsm вsделить и скопипастить в теги Code, вот так:


Add(MainForm,3983990,364,168)
{
}
Add(ListBox,8160084,462,203)
{
Left=10
Top=45
Width=365
Height=210
Point(doSelectString)
Point(onSelect)
Point(Index)
link(FileName,14497544:Text,[])
}
Add(Button,3155483,364,231)
{
Left=15
Top=15
Data=String(The license agreement)
link(onClick,8426066:doEvent1,[])
}
Add(Hub,8426066,413,231)
{
OutCount=3
link(onEvent1,8160084:doLoad,[])
link(onEvent2,8160084:doSelectString,[(447,244)(447,251)])
link(onEvent3,7982908:doMessage,[(438,251)(438,272)])
}
Add(Edit,14497544,469,147)
{
Left=80
Top=15
Width=125
Text="License.txt"
}
Add(Message,7982908,553,266)
{
}
Add(Button,11487548,364,329)
{
Left=215
Top=15
Caption="Del"
link(onClick,955449:doOperation,[])
}
Add(Button,11308220,364,280)
{
Left=300
Top=15
Caption="Save"
link(onClick,8160084:doSave,[(452,286)(452,244)])
}
Add(For,16363779,567,329)
{
link(onEvent,8716316:doData,[])
link(End,955449:Result,[(580,320)(559,320)(559,377)(475,377)])
}
Add(Math,955449,469,329)
{
OpType=1
link(onResult,9976172:doOperation,[])
link(Op1,8160084:Count,[])
link(Op2,7671070:Var1,[(482,278)])
}
Add(Math,9976172,511,329)
{
Op2=1
ResultType=0
link(onResult,16363779:doFor,[])
link(Op1,7671070:Var3,[(517,278)])
}
Add(GetDataEx,7671070,483,273)
{
link(Data,8160084:Index,[])
}
Add(DoData,8716316,609,329)
{
link(onEventData,8160084:doDelete,[(648,335)(648,195)(452,195)(452,223)])
link(Data,9976172:Result,[(615,314)(552,314)(552,369)(517,369)])
}

Коллегам легче копировать схему одним кликом!
карма: 19

0
Ответов: 91
Рейтинг: 0
#8: 2017-07-17 22:43:42 ЛС | профиль | цитата
Буду без блокнота .

Как BlockFind может найти строку по образцу, и заменить или удалить все что осле этой строки до последней строки файла?
карма: 0

0
Ответов: 497
Рейтинг: 16
#9: 2017-07-17 23:30:48 ЛС | профиль | цитата
если точно


Add(StrList,15033615,329,98)
{
}
Add(Position,7788993,189,175)
{
link(onSearch,15777783:doLength,[])
link(Str,3465546:Var1,[(195,117)])
link(Target,2139634:Var2,[])
}
Add(Edit,11635599,196,63)
{
Left=5
Top=5
Width=295
Height=25
Text="текст"
}
Add(RichEdit,3893304,301,21)
{
Left=5
Top=35
Width=360
Height=210
Strings=#32:внимание текст в котором шаримся|
}
Add(Button,4041791,133,175)
{
Left=305
Top=5
Caption="найти"
link(onClick,7788993:doSearch,[])
}
Add(Length,15777783,259,175)
{
link(onLength,16742179:doLength,[])
link(Str,2139634:Var3,[(265,124)])
}
Add(GetDataEx,2139634,196,119)
{
link(Data,11635599:Text,[])
}
Add(Delete,6440139,231,315)
{
link(onDelete,3893304:doText,[(282,321)(282,41)])
link(Str,10857488:Var1,[(237,89)])
link(Position,16116435:Result,[(244,296)(223,296)])
link(Count,16742179:Result,[(251,261)(328,261)])
}
Add(GetDataEx,10857488,301,84)
{
link(Data,3893304:Text,[])
}
Add(Math,16116435,217,245)
{
link(onResult,6440139:doDelete,[(261,251)(261,286)(219,286)(219,321)])
link(Op1,7788993:Position,[(223,226)(195,226)])
link(Op2,15777783:Result,[(230,226)(265,226)])
}
Add(Length,16742179,322,175)
{
link(onLength,16116435:doOperation,[(366,181)(366,216)(205,216)(205,251)])
link(Str,3465546:Var3,[(328,117)])
}
Add(GetDataEx,3465546,301,112)
{
link(Data,10857488:Var2,[])
}



если по маске


Add(Edit,11635599,308,77)
{
Left=5
Top=5
Width=295
Height=25
Text="?-?"
link(onChange,10547938:doMask,[(387,83)(387,188)])
}
Add(RichEdit,3893304,203,98)
{
Left=5
Top=35
Width=360
Height=210
Strings=#32:внимание-текст в котором шаримся|
}
Add(Button,4041791,133,175)
{
Left=305
Top=5
Caption="найти"
link(onClick,1404158:doLength,[])
}
Add(StrMask,10547938,434,175)
{
Mask="?-?"
Point(doMask)
link(onTrue,5439964:doEvent1,[])
}
Add(Length,1404158,203,175)
{
link(onLength,14348894:doFor,[])
link(Str,7107206:Var2,[])
}
Add(For,14348894,259,175)
{
link(onEvent,15077174:doLength,[])
link(End,8390304:Var3,[(272,163)(240,163)(240,219)])
}
Add(Copy,13077348,371,175)
{
link(onCopy,10547938:doCompare,[])
link(Str,9626084:Var3,[(377,152)])
link(Position,8826813:Var3,[(384,163)(324,163)(324,219)])
link(Count,2932580:Var2,[(391,163)(353,163)(353,219)(314,219)])
}
Add(Length,15077174,308,175)
{
link(onLength,13077348:doCopy,[])
link(Str,11635599:Text,[])
}
Add(GetDataEx,7107206,203,147)
{
link(Data,3893304:Text,[])
}
Add(Hub,5439964,497,182)
{
link(onEvent1,14348894:doStop,[(516,188)(516,176)(247,176)(247,188)])
link(onEvent2,10936640:doOperation,[])
}
Add(Delete,5368828,616,189)
{
link(onDelete,3893304:doText,[(674,195)(674,157)(191,157)(191,118)])
link(Str,9626084:Var2,[(622,173)(237,173)])
link(Position,10936640:Result,[(629,177)(591,177)(591,233)(552,233)])
link(Count,8390304:Var1,[(636,177)(223,177)])
}
Add(GetDataEx,9626084,231,147)
{
Angle=3
link(Data,7107206:Var3,[])
}
Add(GetDataEx,8826813,273,214)
{
Angle=3
link(Data,14348894:Position,[(265,219)])
}
Add(GetDataEx,8390304,217,214)
{
Angle=3
link(Data,1404158:Result,[(209,219)])
}
Add(Math,10936640,546,189)
{
link(onResult,5368828:doDelete,[])
link(Op1,8826813:Var1,[(552,177)(279,177)])
link(Op2,2932580:Var3,[(559,177)(438,177)(438,215)])
}
Add(GetDataEx,2932580,308,210)
{
link(Data,15077174:Result,[])
}


--- Добавлено в 2017-07-17 23:32:12

зачем все так усложнять

--- Добавлено в 2017-07-17 23:34:17

wvlas,
wvlas писал(а):
Как считать содержимое файла от начала до "образца (например YYYYYY)"

ну так как я показал с примером по маске только немного другие компоненты

--- Добавлено в 2017-07-17 23:35:58

Tad,
Tad писал(а):
BlockFind
мимо
Tad писал(а):
Советчикам иногда полезно мозги включать.
и не говорите

Редактировалось 3 раз(а), последний 2017-07-17 23:35:58
карма: 1
        ]  
0
Ответов: 16884
Рейтинг: 1239
#10: 2017-07-18 00:18:20 ЛС | профиль | цитата
Del_BlockFind.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 497
Рейтинг: 16
#11: 2017-07-18 00:21:58 ЛС | профиль | цитата
Tad, код в студию
карма: 1
        ]  
0
Ответов: 88
Рейтинг: 20
#12: 2017-07-18 02:09:00 ЛС | профиль | цитата
RAWY_EX,
карма: 0
Ильичёв IKA
0
Ответов: 537
Рейтинг: 14
#13: 2017-07-18 08:12:34 ЛС | профиль | цитата
Удаляет от указанного слова до конца строк и сохраняет

Add(MainForm,2953706,21,168)
{
link(onCreate,15381611:doExecute,[])
}
Add(Delete,1856882,231,378)
{
link(onDelete,15502664:doEvent1,[])
link(Str,28556:Var2,[])
link(Position,12499524:Position,[])
link(Count,7263068:Position,[(251,366)(272,366)(272,479)(223,479)])
}
Add(ODialog,15381611,70,182)
{
link(onExecute,2377438:doEvent1,[])
}
Add(Edit,959078,245,231)
{
Left=5
Top=5
Width=365
Text=""
}
Add(Position,12499524,238,322)
{
ShortSearch=1
link(onSearch,9007889:doEvent1,[])
link(Str,14350323:Var2,[])
link(Target,959078:Text,[])
}
Add(GetDataEx,14350323,238,287)
{
link(Data,219047:Text,[])
}
Add(StrList,219047,238,161)
{
Point(EndIdx)
Point(doGetString)
Point(onGetString)
link(FileName,4487202:GetData,[])
link(onGetString,12763116:doData,[])
}
Add(Position,7263068,217,434)
{
ShortSearch=1
link(onSearch,1856882:doDelete,[(261,440)(261,412)(219,412)(219,384)])
link(Str,28556:Var1,[(223,362)])
link(Target,12763116:GetData,[(230,282)(377,282)])
}
Add(GetDataEx,28556,231,357)
{
link(Data,14350323:Var1,[(237,292)])
}
Add(EventFromData,12763116,371,168)
{
}
Add(Hub,9007889,287,322)
{
link(onEvent1,426995:doData,[])
link(onEvent2,7263068:doSearch,[(323,335)(323,416)(205,416)(205,440)])
}
Add(Button,10070301,154,322)
{
Left=5
Top=30
Caption="Удалить"
link(onClick,12499524:doSearch,[])
}
Add(DoData,426995,329,322)
{
link(onEventData,219047:doGetString,[(373,328)(373,266)(231,266)(231,209)])
link(Data,219047:EndIdx,[(335,229)(265,229)])
}
Add(Hub,2377438,126,182)
{
link(onEvent1,4487202:doData,[(192,188)(192,118)])
link(onEvent2,219047:doLoad,[])
}
Add(EventFromData,4487202,245,112)
{
}
Add(Hub,15502664,287,378)
{
link(onEvent1,219047:doText,[(319,384)(319,283)(226,283)(226,188)])
link(onEvent2,219047:doSave,[(313,391)(313,294)(219,294)(219,202)])
}
карма: 4

0
Ответов: 9906
Рейтинг: 351
#14: 2017-07-18 09:19:46 ЛС | профиль | цитата
Tad писал(а):
Del_BlockFind.png
Tad, конечно же -- жульничает.
Ибо его установка: вовсе не достижение конечного результата.
А -- "прокукарекать", подвинув других, тем самым, к мыслительному процессу.
Что вовсе не всегда адекватно. Но, как говорится: "а там хоть не рассветай"

Но, в данном случае, мысль его правильная. Реализуемая примерно так:
Del_BlockFind.sha

Add(MainForm,11394752,245,21)
{
Width=868
Height=591
}
Add(BlockFind,6286189,448,161)
{
IncludeBlock=1
Point(doEndBlock)
Point(doStartBlock)
Point(doStop)
link(onSearch,11112119:doEvent1,[])
}
Add(Button,13381527,245,84)
{
Left=14
Top=7
Width=104
Caption="Load FILE"
link(onClick,16620189:doExecute,[])
}
Add(Memo,11257195,406,56)
{
Left=14
Top=42
Width=400
Height=497
AddType=1
ScrollBars=2
Point(doLoad)
Point(SelText)
}
Add(Memo,11995381,539,140)
{
Left=434
Top=42
Width=400
Height=497
ScrollBars=2
}
Add(ODialog,16620189,308,84)
{
FileName="License.txt"
link(onExecute,11257195:doLoad,[])
}
Add(DoData,10753809,308,168)
{
link(onEventData,10476694:doEvent1,[])
link(Data,11257195:SelText,[(314,152)(433,152)])
}
Add(Hub,10476694,357,168)
{
OutCount=3
link(onEvent1,6286189:doEndBlock,[])
link(onEvent2,6286189:doStartBlock,[])
link(onEvent3,9794996:doStrCat,[(382,188)(382,167)])
}
Add(StrCat,9794996,399,161)
{
link(onStrCat,6286189:doSearch,[])
link(Str2,11257195:Text,[])
}
Add(Button,7288544,245,168)
{
Left=133
Top=7
Width=118
Caption="Cut to SELECT"
link(onClick,10753809:doData,[])
}
Add(Hub,11112119,497,161)
{
link(onEvent1,11995381:doText,[])
link(onEvent2,6286189:doStop,[(522,174)(522,202)(438,202)(438,188)])
}

Редактировалось 4 раз(а), последний 2017-07-18 09:46:05
карма: 9

0
Ответов: 497
Рейтинг: 16
#15: 2017-07-18 09:49:17 ЛС | профиль | цитата
Galkov,
1. может я не понял(или руки из опы) но получаем блок внутри а нужно и с словом
тогда уж так


Add(MainForm,4521811,217,63)
{
Width=868
Height=591
}
Add(BlockFind,6286189,420,203)
{
IncludeBlock=1
Point(doEndBlock)
Point(doStartBlock)
link(onSearch,11995381:doText,[])
link(onEndSearch,12630389:doData,[])
}
Add(Button,13381527,217,126)
{
Left=14
Top=7
Width=104
Caption="Load FILE"
link(onClick,16620189:doExecute,[])
}
Add(Memo,11257195,378,98)
{
Left=14
Top=42
Width=400
Height=497
AddType=1
ScrollBars=2
Point(SelText)
}
Add(Memo,11995381,532,182)
{
Left=434
Top=42
Width=400
Height=497
ScrollBars=2
}
Add(ODialog,16620189,280,126)
{
FileName="License.txt"
link(onExecute,11257195:doLoad,[])
}
Add(DoData,10753809,280,210)
{
link(onEventData,10476694:doEvent1,[])
link(Data,14661621:Var2,[(286,194)(405,194)])
}
Add(Hub,10476694,329,210)
{
OutCount=3
link(onEvent1,6286189:doEndBlock,[])
link(onEvent2,6286189:doStartBlock,[])
link(onEvent3,9794996:doStrCat,[(354,230)(354,209)])
}
Add(StrCat,9794996,371,203)
{
link(onStrCat,6286189:doSearch,[])
link(Str2,11257195:Text,[])
}
Add(Button,7288544,217,210)
{
Left=133
Top=7
Width=118
Caption="Cut to SELECT"
link(onClick,10753809:doData,[])
}
Add(DoData,12630389,469,210)
{
link(onEventData,11995381:doAdd,[(517,216)(517,188)])
link(Data,14661621:Var3,[(475,166)])
}
Add(GetDataEx,14661621,399,161)
{
link(Data,11257195:SelText,[])
}


и еще может я ошибаюсь но по моему тс нужно не по слову а по маске типа
wvlas писал(а):
YYYYYY

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