Pro_X7_Gaming писал(а): А что ты вводишь в строку?
Да ничего я в строку не ввожу. Это для отображения хода текущей операции фильтрования. Просто нажимаю кнопку, выбираю лог и смотрю как мелькают строки, после чего файл создается, выдается мессага -- End of Filtered, и файл переоткрывается в Memo
------------ Дoбавленo в 17.18:
Вот то же самое, только со статусной строкой и с диалогом записи, результат фильтрации выводится сразу в Memo
Add(MainForm,21479,42,84) { Width=540 Height=350 Caption="Log_Filtered" Position=1 } Add(StrList,15424801,805,224) { Point(doSort) } Add(Button,11584877,42,133) { Left=200 Top=285 Width=60 TabOrder=-1 Caption="Filtered" link(onClick,10378579:doEvent1,[]) } Add(BlockFind,4059547,441,133) { StartBlock="PlayerKilled" EndBlock="]" link(onSearch,2288523:doReplace,[]) } Add(Charset,6235083,392,133) { Type=9 link(onCharset,4059547:doSearch,[]) } Add(FileStream,10959428,294,133) { FileName="20121123_events.log" link(onLoad,14499661:doConvert,[]) } Add(StreamConvertor,14499661,343,133) { Mode=6 link(onResult,6235083:doCharset,[]) } Add(Hub,10378579,98,133) { OutCount=5 link(onEvent1,2828444:doExecute,[(140,139)(140,90)]) link(onEvent2,4766785:doCount,[(223,146)(223,216)]) link(onEvent3,15424801:doSort,[(215,153)(215,272)]) link(onEvent4,1158065:doMessage,[]) link(onEvent5,8308135:doData,[(140,167)(140,328)]) } Add(Replace,2288523,490,133) { SubStr="PlayerKilled9" link(onReplace,16660670:doSearch,[]) } Add(StrList,4414373,609,140) { } Add(ArrayCountRepeats,4766785,623,210) { link(onCount,14185035:doStr,[]) link(Array,4414373:Array,[]) } Add(BlockFind,16660670,539,133) { IncludeBlock=1 Delete=0 StartBlock=" " EndBlock="[" link(onEndSearch,4414373:doAdd,[]) } Add(MT_String,14185035,672,210) { Delimeter=" " link(onResult,3424103:doEvent1,[]) } Add(Message,1158065,161,154) { Message="End of Filtered" } Add(Hub,3424103,721,210) { OutCount=3 link(onEvent1,2054021:doText,[(760,216)(760,146)]) link(onEvent2,7177860:doProcessMessages,[(770,223)(770,188)]) link(onEvent3,15424801:doAdd,[]) } Add(Application,7177860,805,182) { Wait=1 } Add(ODialog,2828444,161,84) { Filter="*.log|*.log" link(onExecute,5741477:doEvent1,[]) } Add(Hub,5741477,217,84) { OutCount=5 link(onEvent1,5196492:doSplit,[(263,90)(263,62)]) link(onEvent2,15424801:doClear,[(712,97)(712,237)]) link(onEvent3,4414373:doClear,[(591,104)(591,153)]) link(onEvent4,10959428:doOpen,[(263,111)(263,139)]) link(onEvent5,10959428:doClose,[(256,118)(256,146)]) } Add(StrCat,6925969,371,56) { Str2=".txt" } Add(MultiStrPart,5196492,322,56) { Char="." Count=1 Direct=1 link(onSplit,6925969:doStrCat,[]) } Add(Memo,5443624,861,301) { Left=5 Top=5 Width=515 Height=275 Font=[Courier New,10,1,0,204] ScrollBars=3 } Add(StatusBar,2054021,805,140) { } Add(SDialog,8442537,371,259) { Point(FileName) link(onExecute,15424801:doSave,[]) link(FileName,6925969:Result,[]) } Add(Button,16264335,315,259) { Left=270 Top=285 Width=60 TabOrder=-1 Caption="Save" link(onClick,8442537:doExecute,[]) } Add(DoData,8308135,805,322) { link(onEventData,5443624:doText,[]) link(Data,15424801:Text,[]) }
|